Hallo,
Bei folgender Zuweisung bekomme ich einen Runtime Error (Integerüberlauf):

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var w:LongWord;
    i:Integer;
begin
  w:=3;
  i:=-w; // <-- Integerüberlauf
  ShowMessage(IntToStr(w)+' / '+IntToStr(i));
end;

Ich bin mir sicher, dass dieser Code bisher funktioniert hat.
Hat jemand eine Idee wo hier der Fehler liegt?

Danke,
ing

naja.. da Longword einen gültigen Wertebereich von 0..4294967295 hat ist es eigentlich logisch, dass es bei negativer Zuweisung einen Überlauf gibt.

P.S.: Herzlich willkommen in der DP!

Hallo

Er steckt in die LongWord-Variable aber keine negativen Werte rein. Bei Dingen wie w:= -w; wäre das so, aber nicht hier.

Und ich bekomme hier ehrlich gesagt auch keinen Überlauf. Welche Delphi-Version, welche Plattform? (Windows/Mac/... bzw. 32/64 Bit?)

Hallo Lemmy,

Zitat von Lemmy:

da Longword einen gültigen Wertebereich von 0..4294967295 hat ist es eigentlich logisch, dass es bei negativer Zuweisung einen Überlauf gibt.

Das leuchtet mir nicht recht ein:
w ist 3
i ist ein Integerwert
i:=-w; sollte also -3 ergeben. wo soll da ein Überlauf stattfinden?
i:=-3; funktioniert ja ohne Probleme.

Außerdem bin ich mir sicher, dass diese Zuweisung schon länger in meinem Programm drin steht und es bisher noch keine Probleme damit gab. ??

ing

Zitat von Der schöne Günther:

Welche Delphi-Version, welche Plattform?

Ich verwende Delphi 5 Professional (UpdatePack 1) und habe vor kurzem auf Windows 10 Pro (64 Bit) umgestellt.

Hallo und Willkommen in der DP !

So weit hast Du ja auch Recht, aber ... nach mehrmaligen Hinsehen habe ich aber auch erst das Minuszeichen gesehen !

i:= - w;

Das macht nichts weiter als eine Multiplikation mit -1 und schon bist Du aus dem gewähltenm Wertebereich raus und bekommst einen Überlauffehler.

Habe gerade mal ein altes Delphi 7 angeworfen und da steht: Longword = Cardinal (unsigned)

Gruß Thomas

Ein Cast mit i := - Integer( w ); sollte funktionieren.

@Sir Rufo:
Erklärt aber nicht die Ursache. Du bist doch sonst so gründlich Dein Cast würde übrigens trotzdem den Fehler nicht beheben, wenn w einen Inhalt hat (woher auch immer), der zu einem Integer-Überlauf führt.

@Ing:
Hast du denn mal den Debugger bemüht und nachgesehen, was vor der Zuweisung in den Variablen steht? Hast du vielleicht eine der Variablen nochmal woanders (global oder in TForm1) definiert?

Zitat von Der schöne Günther:

Er steckt in die LongWord-Variable aber keine negativen Werte rein. Bei Dingen wie w:= -w; wäre das so, aber nicht hier.

das stimmt, aber er multipliziert einen Longword mit -1 und was ist das Ergebnis? ein Longword.

Zitat von Der schöne Günther:

Und ich bekomme hier ehrlich gesagt auch keinen Überlauf. Welche Delphi-Version, welche Plattform? (Windows/Mac/... bzw. 32/64 Bit?)

schalte mal in den Compileroptionen die Überlaufprüfung ein.

Zitat von Sir Rufo:

Ein Cast mit i := - Integer( w ); sollte funktionieren.

wenn man funktionieren mit "da kommt jetzt keine Exception mehr" übersetzt dann ja:

markieren

Delphi-Quellcode:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var w:LongWord;
    i:Integer;
begin
  w:= High(LongWord);
  i:=-Integer(w);
  ShowMessage(IntToStr(w)+' / '+IntToStr(i));
end;

Das dürfte aber nur in bestimmten Fällen kein Problem sein