Hoffentlich wird das jetzt nicht OT...
Zitat von
Muetze1:
So hatte ich das mal ausprobiert und bin auf das Ergebnis gekommen.
Hier ist mein Testcode:
Delphi-Quellcode:
type
TDummy =
class (TObject)
public
constructor Create;
end;
constructor TDummy.Create;
begin
inherited;
raise Exception.Create ('
oops!');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Dummy : TDummy;
begin
Dummy := Pointer(4711);
try
Dummy := TDummy.Create;
except
ShowMessage (Format('
%d', [Cardinal(Dummy)]));
end;
end;
Die Messagebox zeigt den Wert 4711 an, nicht den Wert 0. Getestet mit Delphi 6 und
BDS 2006.
Gruß Hawkeye