VPF::Как правильно работать с процедурными типами?

danilsl

Дата 29.8.2007, 16:49 (ссылка)

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

Загрузка ...

Шустрый

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

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

Привет всем.
Вот такой код:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TProcType = procedure(Parametr:integer);

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procvar:TProcType;
    procedure gg(Parametr:integer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  procvar(3);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  procvar:[email protected];
end;

procedure TForm1.gg(Parametr: Integer);
begin
  ShowMessage(IntToStr(Parametr));
end;

end.

Я рассчитывал smile

, что в ShowMessage(IntToStr(Parametr)) выскочит тройка, однако вылезло 10781088. Подскажите, что я не так делаю.
Заранее всем спасибо.

lukas

Дата 29.8.2007, 16:55 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 3
Всего: 15

прально... она возвращает адресс процедуры.. а не параметр! smile

Это сообщение отредактировал(а) lukas - 29.8.2007, 16:57

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

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

skyboy

Дата 29.8.2007, 16:57 (ссылка)

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

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 4
Всего: 260

учитывая, что у тебя не процедура, а метод, то тип надо объявить так:

Код


type
  TProcType = procedure(Parametr:integer) of object;

Ибо методу ещё и передается объект, к которому этот метод относится. По всей видимости, этот аргумент должен идти первым(или последним). И если ты работаешь с методом как с обычной процедурой(как у тебя и есть), то процедура будет обрабатывать и аргумент-указатель на объект, а при приведении к типу integer там будет всяко не тройка, а довольно большое число-адрес. Что у тебя и наблюдается. А если мы указываем тип "procedure(...) of object", то указываем пропускать аргумент-указатель и работать только с объявленными программистом аргументами.

lukas

Дата 29.8.2007, 17:04 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 3
Всего: 15

попробуй так...

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  @procvar:[email protected];
end;

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

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

danilsl

Дата 29.8.2007, 17:05 (ссылка)

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

Загрузка ...

Шустрый

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

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

Всем спасибо, разобрался.

skyboy

Дата 30.8.2007, 09:20 (ссылка)

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

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 4
Всего: 260

Цитата(lukas @ 29.8.2007, 16:04

)

@procvar:[email protected];

зачем? в коде есть ещё одна неувязка:

Код


procedure TForm1.gg(parametr: integer);
...
procvar:= TForm1.gg;
...

Т.е. метод относится к конкретному объекту, а работать с ним пытаются как с методом класса. Учитывая, что работа с полями объекта не происходит, вроде бы все ничего, но лучше ошибок не создавать себе и либо объявить метод методом класса:

Код


TForm1 = class(TForm)
...
class procedure gg(PArametr: integer);
...
procvar:= TForm1.gg;

либо получать метод через объект, а не через класс

Код


TForm1 = class(TForm)
...
 procedure gg(Parametr: integer);
...
 procvar:= Self.gg;
...

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