Скачать: CL | DM;

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

← →
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c