Как получить указатель на экземпляр класса из егоже метода

← →
Andrik © (2006-07-21 14:21) [0]

Вобщем описываю класс наследником от TObject, при работе он должен в одном своем методе делать запись своего указателя в отдельно созданый массив.. нифига не получается.
self не работает.
например :

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
{ Private declarations }
public
{ Public declarations }
end;

type TVasya = class
procedure createobject;
end;

var
Form1: TForm1; p1,p: pointer;
Vasya: TVasya ;
implementation

{$R *.dfm}

procedure TVasya.createobject;
begin
p1:=self;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Vasya:=TVasya.Create;
p:=@Vasya;
Vasya.createobject;
if p<>p1 then ShowMessage("не получается мля");
end;
end.

← →
Vlad © (2006-07-21 14:34) [1]

> p:=@Vasya;

p:=Vasya;

Как получить указатель на экземпляр класса из егоже метода Найти похожие ветки