INI Dateien mit Integer verwenden

[Hawkeye219]

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