Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
3. Nov 2009
@General: ich konnte es mir auch nicht verkneifen :oops:
var x: Array of Integer;
P: PInteger;
begin
X := $6d696807;
X := $75737469;
X := Integer(@X);
X := Integer(@X);
P := @X;
if PointsToObj(P) then
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
3. Nov 2009
Sowas ist nicht 100%ig möglich.
einzige wirkliche Lösung: Pointer und Objekte getrennt verwalten
TObject(P) is TXyz
liefert bei Objekten richtige Lösungen (solange das Objekt nicht durch z.B. einen Bufferoverflow zerstört wurde),
aber in anderen Daten, wie z.B. einem Record, können zufällig Werte vorhanden sein, welche der "Signatur" eines Objektes entsprechen, wodurch der Record dann...