VPF::Массив процедур - Форум программистов

DarlkElfTen

Дата 15.4.2006, 14:41 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 153
Регистрация: 16.3.2006

Репутация: нет
Всего: 1

вроте он веть так объявляется
var
a:array of procedure //динама!
затем ставлю размер присваиваю процедуру без параметров...вылетает [censored 6] фигня..дебагер....
плохо все..
а если в масссив процедуру с пар.забивать то как работать? smile

--------------------

"Две башни"

Демо

Дата 15.4.2006, 14:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Код


type

  TProcTest=procedure(Parm: Integer);
  TProcTest1=procedure(Parm: Integer; s: String);

var
  ArrProc: array of Pointer;

procedure Test(Parm: Integer);
begin
  ShowMessage(IntTOStr(Parm));
end;

procedure Test1(Parm: Integer; s: String);
begin
  ShowMessage('Str:'+s+', Int:'+IntToStr(Parm));
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLength(ArrProc,1);
  ArrProc[0] := @TEst;
  TProcTest(ArrProc[0])(1);

  SetLength(ArrProc,2);
  ArrProc[1] := @TEst1;

  TProcTest1(ArrProc[1])(7681,'Тест1');
end;

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »