[gadmaker]

Здравствуйте! Подскажите:

Код:

TChunk = class(TObject);
Result:=Integer(g.Chunk);

Преобразую тип TObject в Integer. Как преобразовать его обратно TObject?

[NumLock]

Также, но наоборот.

[Bargest]

Только надо помнить:
Integer - 32 бита (если Embarcadero ничего не меняли). TObject - указатель.
Таким образом, в x32-программе такие волшебные преобразования пройдут успешно, а на x64 мы получим обрубок указателя со всеми вытекающими ошибками и исключениями.

[gadmaker]

Спасибо за предупреждение. Только Вы не написали как это сделать.

[NumLock]

Сообщение от gadmaker

Вы не написали как это сделать.

Написали:

Также, но наоборот

Код:

var
  l: TLabel;
  i: Integer;
  k: TLabel;
begin
  l:=TLabel.Create(Self);
  l.Parent:=Self;
  l.Caption:='Lewis Carl Davidson Hamilton';
  i:=Integer(l);
  k:=TLabel(i); (* <-- так *)  
  k.Caption:='"'+k.Caption+'"';
end;

[M.A.D.M.A.N.]

Сообщение от Bargest

Только надо помнить:
Integer - 32 бита (если Embarcadero ничего не меняли). TObject - указатель.
Таким образом, в x32-программе такие волшебные преобразования пройдут успешно, а на x64 мы получим обрубок указателя со всеми вытекающими ошибками и исключениями.

Для этого есть NativeInt, NativeUInt.

[gadmaker]

Сообщение от M.A.D.M.A.N.

Для этого есть NativeInt, NativeUInt.

Поясните пожалуйста подробнее.

[M.A.D.M.A.N.]

Сообщение от gadmaker

Поясните пожалуйста подробнее.

Платформозависимый тип. При компиляции под х86 — 32 бита, при компиляции в х64 — 64 бита.
Разница в том, что первый знаковый, второй беззнаковый.