Форум: "Основная";
Текущий архив: 2003.04.07;
Скачать: [xml.tar.bz2];
Вниз
выполенние процедуры по указателю Найти похожие ветки
← →
Pavel_ (2003-03-26 14:25) [0]мне необходимо выполнить процедуру имея указатель на нее
кто нибудь поможет
спасибо
← →
Palladin (2003-03-26 14:28) [1]по мимо указателя тебе бы неплохо былобы знать call convention и список параметров соотвесно...
← →
Pavel_ (2003-03-26 14:34) [2]2 Palladin
я описал процедурный тип
TProcedure = procedure;
procedure doSomething(p:TProcedure);
begin
p;
end;
насколько код корректен?
← →
Digitman (2003-03-26 14:38) [3]в приведенном контексте - вполне корректен
← →
Jel (2003-03-26 14:39) [4]Если процедура без параметров и не из dll, то почему бы и нет?
← →
Pavel_ (2003-03-26 15:23) [5]при вызове doSomething я передаю в нее метод класа и
компилятор мне говорит о несоотв. типов как лечить
← →
Pavel_ (2003-03-26 15:24) [6]мне хотелось бы передавать по указателю типа @Class.Metod
хотя в принципе все равно
← →
Anatoly Podgoretsky (2003-03-26 15:34) [7]Так тогда тебе нужен Method of object
← →
Pavel_ (2003-03-26 15:38) [8]2 Anatoly Podgoretsky © не понял
← →
Digitman (2003-03-26 16:03) [9]
> Pavel_
есть просто процедуры и функции, а есть процедурные и функциональные методы классов/объектов.
вещи весьма различающиеся.
← →
Pavel_ (2003-03-26 16:04) [10]2 Digitman ©
я понял это мне важно другое как описать и вызвать все это
← →
Pavel_ (2003-03-26 16:09) [11]если можно пример кода или ссылку на справку
← →
SDS (2003-03-26 16:27) [12]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
procedure Proc;
end;
TProcedure = procedure of object;
var
Form1: TForm1;
procedure doSomething(p:TProcedure);
implementation
{$R *.dfm}
procedure doSomething(p:TProcedure);
begin
P;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
doSomething(Proc);
end;
procedure TForm1.Proc;
begin
ShowMessage("Это я Proc");
end;
end.
← →
Pavel_ (2003-03-26 16:36) [13]2 SDS © спасибо заработало :-)
по крайней мере синтаксических ошибок нет :-)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.07;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c
