Вопросы по Delphi/Pascal

[DirtyAss]

Как сделать шоб моя программа добавляла свой код в другу программу.
Можно ли здесь обойтись без asm?

[K_P]

Цитата: Сообщение от DirtyAss моя программа добавляла свой код в другу программу

Без асма можно. Пишешь длл, пишешь хук на какае-либо событие в чужой проге и внедряешь свой код из длл.

Конечно нупский вопрос... Но надеюсь, что любимый форум поможет в таком деле: задали мне значит курсовую по Паскалю странную (учусь на 1-м курсе) - выполнить параллельное умножение двух матриц. Все бы ничего (про матрицы и формулы - это легко), но напрягает слово - параллельное. Что оно значит и как реализовать параллельные операции в Turbo Pascal ?

[Митрий]

Всем доброго времени суток.
Прошу вашей помоши. В данный момент изучаю Delphi, решил прикупить самоучитель. От выбора глаза разбегаются, а купить много я не в состоянии. Подскажите пожалуйста автора потолковей, папроше.
Заранее спасибо.
С уважением Митрий.

[MaksVik]

Библия Delphi. Если надо пиши в личку скину куда-нибудь. общий вес 200 МБ.

[MrVertigo]

Подскажите, пожалуйста, как можно скрыть кнопку приложения из панели задач?

[Ragimovich]

MrVertigo, ShowWindow(Application.Handle, SW_HIDE);

[MrVertigo]

Цитата: Сообщение от Ragimovich MrVertigo, ShowWindow(Application.Handle, SW_HIDE);

Эта функция скрывет само окно, а как получить хэндл кнопки этого окна в панели задач?

[executer]

Составить блок-схему и программу на языке Турбо Паскаль:

Определить количество столбцов матрицы [Bij]25.10, среди элементов которых имеется одна или более двоек.

С уважением Rokki-boy

[Ragimovich]

Цитата: Сообщение от MrVertigo Эта функция скрывет само окно, а как получить хэндл кнопки этого окна в панели задач?

Я не знаю у кого как, но у мя в Винтукее и Делфи 7 исчезает кнопь с таскбара!

[Ragimovich]

counter := 0;
this_j:= -1;
for j:=0 to Bj do
begin
for i:=0 to Bi do
begin
if ((B[i,j] = 2) and (this_j<>j)) then
begin
this_j:=j;
counter:=Counter+1;
end;
end;
end;
writeln(counter);

Составб блоксхему сам! Если че, ищи меня по асе.

[alxarz]

counter := 0;
for j:=0 to Bj do
begin
for i:=0 to Bi do
begin
if (B[i,j] = 2) then
begin
counter:=Counter+1;
break;
end;
end;
end;
writeln(counter);

[babaich]

Цитата: Сообщение от maximuswande Есть у кого-нибудь рабочий пример? Я пробовал dbExpress - с библиотекой libmysql вроде разобрался. Но при любом запросе к базе вылезает ошибка "Invalide field type". Хотелось бы увидеть пример, чтобы не изобретать велосипед. Компоненты для работе с mysql были выложены в разделе компонеты, но на рапид шаре их уже нет. Если есть у кого-нибудь более менее полный пример? Заранее спасибо.

Т.е. рабочий пример чего - работы с MySQL? У меня все работает замечательно. пример DFM

object DBD: TDBD
  OldCreateOrder = True
  OnCreate = DataModule2Create
  Left = 252
  Top = 301
  Height = 479
  Width = 741
  object FreeQuery: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'select * from qqq'
      'where d1 between :FromDate and :ToDate')
    SQLConnection = MysqlConn
    Left = 120
    Top = 112
  end
  object MysqlConn: TSQLConnection
    ConnectionName = 'MySQLConnection'
    DriverName = 'MySQL'
    GetDriverFunc = 'getSQLDriverMYSQL'
    LibraryName = 'dbexpmysql.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=MySQL'
      'HostName=testdb.loc'
      'Database=online_ready'
      'User_Name=test'
      'Password=test'
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    VendorLib = 'libmysql.dll'
    Left = 32
    Top = 120
  end
end

[executer]

for all: пишит одну и туже ошибку:
Error 36: Begin Expected. и курсор переводится на первую букву первой срочки слова counter, кстати представления не имею как блок схему составить, я первый раз с этим дело имею, может черкнёте в паинте и на емайл кините: 100APMсабакаlist.ru
thx

[Ragimovich]

Пеши студент:-) Проверять не проверял, но должно быть все пучком. Обрати внимание, что после последнего энда стаится точка.

Цитата: program chajnik; var B: array[0..9,0..24] of Integer; this_j,counter,i,j:Integer; begin counter := 0; this_j:= -1; for j:=0 to 24 do begin for i:=0 to 9 do begin if ((B[i,j] = 2) and (this_j<>j)) then begin this_j:=j; counter:=Counter+1; end; end; end; writeln(counter); end.

Рисовать - честно влом. Мож завтра отсканирую нарис. от руки. И кину...
Поправил децл. Попробуй.