Guten Abend,

Kann mir jemand erläutern was bei folgendem Code genau passiert ?

markieren

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var myObj:TObject;
    negNumber: Int64;
begin
  negNumber := -1;
  myObj := TObject(negNumber);
  showmessage(int64(myObj).ToString);
end;

Bei showmessage() wird mir 4294967295 ausgegeben. Ich erwarte aber -1.

Habe bereits einen ähnlichen Artikel gefunden bei dem es um einen extended geht.
https://www.delphipraxis.net/151440-...-extended.html

Ich benötige den Cast ins TObject auch um einer Liste eine ID mitzugeben.
Wie dort beschrieben wäre eine Lösung eine helper Klasse zu erstellen, find ich eigentlich gut soweit. Ich möchte nur verstehen warum bei meinem Beispiel oben nicht -1 ausgegeben wird.

Gruss Int3g3r

PS: Ist eine 32bit Applikation.

Ein Pointer ist 32Bit

Int64 64Bit.

Da passt vielleicht etwas nicht zusammen.

Nur ne Vermutung

Was passiert, wenn du aus dem Int64 ein "normales" integer machst. Nur Probehalber mal.

Klar, man kann über Integer als Zwischenschritt casten, dann sind im Nagetiven 2 Millarden Werte verfügbar, aber dafür geht es im Positiven nun statt bis 4 nur noch bis 2 Milliarden, von den paar Trilliarden des Int64.
Wenn du mal nachsiehts, was mit den Bits im Zweierkomplement los ist, dann weißt du auch warum.


Fazit: Mach es richtig.

Es soll ein Object sein, also nimm auch ein Daten-Objekt und pack den Wert dort rein.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TMyData = class
    Value: Int64;
    constructor Create(Value: Int64);
  end;


procedure TForm1.Button3Click(Sender: TObject);
var myObj:TObject;
    negNumber: Int64;
begin
  negNumber := -1;
  myObj := TMyData.Create(negNumber);
  showmessage(TMyData(myObj).Value.ToString);

  // irgendwo nicht vergessen
  myObj.Free;
end;

Oder das Programm in 64 Bit compilieren.

Besten Dank für die Antworten