Hallo,
ich versuche in ein Tag (also Integer) eine Zahl oder ein Objekt zu schreiben.
Hier meine Versuche (i ist dann mal das Tag).
Leider schmiert er mir immer ab.
Hintergrund:
Bisher standen im Tag wirklich nur Integer-Zahlen drin,
jetzt sollen es aber auch zusätzlich mal Objekte sein.
Der alte "Integer in Tag"-Code soll aber trotzdem noch laufen.
Wie mache ich das am Besten?
Danke
Heiko
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
O: TObject;
P: Pointer;
begin
O:= TObject.Create;
i := 33;
P := Pointer(i);
if TObject(P) is TObject then
begin
O := TObject(P);
if O is TObject then
begin
if O.ClassName='TObject' then <<-- Puff
begin
end;
end;
end;
i := Integer(O);
P := Pointer(i);
O := TObject(P);
if O is TObject then
begin
if O.ClassName='TObject' then
begin
end;
end;
end;