Помогите с преобразованим из TObject

← →
axx (2003-12-03 14:08) [0]

Может вопрос и детский но... Помогите с проседурой Рид

Type
PDataOfClient = ^TDataOfClient;
TDataOfClient = packed record
dcID:Integer;
......
end;

Procedure Write
var
f:PDataOfClient;
begin
GetMem(f,SizeOf(f));
AThread.Data:=TObject(f); //AThread.Data - TObject
end;

Procedure Read
var
f:TDataOfClient;
FF:PDataOfClient;
begin
???????

← →
Юрий Федоров (2003-12-03 14:11) [1]

Во первых
Procedure Write
var
f:PDataOfClient;
begin
GetMem(f,SizeOf(f ^));
во вторых

Procedure Read
var
FF:PDataOfClient;
begin
FF:=PDataOfClient(AThread.Data);

← →
Amoeba (2003-12-03 14:12) [2]

TObject(f); - ничего себе преобразование типов: указателя на запись в указатель на экземпляр класса! Может для начала стоит выучить азы?

← →
Reindeer Moss Eater (2003-12-03 14:12) [3]

with PDataOfClient(AThread.Data)^ do
...

← →
axx (2003-12-03 14:14) [4]

To Amoeba Ну извините за глупость
To All Спасибо

← →
Reindeer Moss Eater (2003-12-03 14:18) [5]

TObject(f); - ничего себе преобразование типов: указателя на запись в указатель на экземпляр класса! Может для начала стоит выучить азы?

И что в этом такого криминального что бы бежать изучать азы?

← →
Юрий Федоров (2003-12-03 14:34) [6]

>>Amoeba (03.12.03 14:12) [2]
Нормальное преобразование, и то и другое - указатель, просто надо помнить, что там не объект и не вызывать его методы

← →
axx (2003-12-03 14:58) [7]

Может кинете ссылочку какую-нибуть про указатели,^,@ и т.д. и т.п.
Почитаю , поучусь - может такие вопросы задавать перестану.
:))))

Помогите с преобразованим из TObject Найти похожие ветки