Процедурные типы

@BES' · Регистрация: 26.01.2011

Author24 — интернет-сервис помощи студентам

Добрый день!
Возник вопрос:

Завели процедуру Process в классе:

Delphi

 TForm1 = class(TForm)
    .....
        Procedure Process( A: Integer; t: TDateTime; const I: TInfo ); stdcall;
    .....
 end;
implementation
 
{$R *.dfm}
 
procedure TForm1.Process(A: Integer; T: TDateTime;
  const I: TInfo);
begin
  .......
end;

Есть тип:

Delphi

1	TNum = Procedure( A: Integer; T: TDateTime; const I: TInfo ); stdcall;

и переменная этого типа

Delphi

1	var All: TNum;

В обработчике кнопки компилятор ругается на :

Delphi

1	All := process;

Ошибка:
Incompatible types: regular procedure and method pointer

Где исправить, чтобы корректно компилировался код?

@taras atavin · 26.01.2011, 11:23

Сообщение от BES'

AllTranz := proc;

А объявлены all и process? И попробуй в этой строчке явно взять указатель:

Delphi

1	all:=&process;

.

@BES' · 26.01.2011, 11:46 **[ТС]**

All объявлена как глобальная переменная, а процедура
описана в implementation

All :=&process; - не работает
Выдает ошибку:
Illegal character in input file

@taras atavin · 26.01.2011, 12:07

Ну так если глобально, то с этого и надо было начинать.

Delphi

1	all:=@form1.precess;

. В делфях вроде работало без @, но, например, в лазарусе через @.

@BES' · 26.01.2011, 12:30 **[ТС]**

спасибо, работает))
мы по-другому сделали - вынесли процедуру process из класса и все ок!

@taras atavin · 26.01.2011, 12:33

А вот так ещё лучше.

Добавлено через 1 минуту

Сообщение от taras atavin

Delphi

1	all:=@form1.precess;

Этого было бы мало. Если не выносить, то ещё в самом типе надо

Delphi

1	TNum = Procedure(Form:TForm1^; A: Integer; T: TDateTime; const I: TInfo ); stdcall;

. Лучше действительно вынести.

@Mawrat · 26.01.2011, 16:11

Сообщение от taras atavin

Этого было бы мало. Если не выносить, то ещё в самом типе надо

Delphi

1	TNum = Procedure(Form:TForm1^; A: Integer; T: TDateTime; const I: TInfo ); stdcall;

Либо так:

Delphi

1	TNum = Procedure(A: Integer; T: TDateTime; const I: TInfo ) of object; stdcall;

---
И TForm1^ - здесь надо просто TForm1, а лучше TObject.

Delphi

1	TNum = Procedure(Sender : TObject; ...

@CodeMonkey · 26.01.2011, 19:06

Мат-часть.

---
Mawrat: Спасибо, полезная статья.

@BES' 0 / 0 / 0 Регистрация: 26.01.2011 Сообщений: 3
	26.01.2011, 11:46 [ТС]	3
	All объявлена как глобальная переменная, а процедура описана в implementation All :=&process; - не работает Выдает ошибку: Illegal character in input file 0

@BES' 0 / 0 / 0 Регистрация: 26.01.2011 Сообщений: 3
	26.01.2011, 12:30 [ТС]	5
	спасибо, работает)) мы по-другому сделали - вынесли процедуру process из класса и все ок! 0

@CodeMonkey 47 / 47 / 2 Регистрация: 21.01.2011 Сообщений: 151
	26.01.2011, 19:06	8
	Мат-часть. --- Mawrat: Спасибо, полезная статья. 1