EIntOverflow bei LongWord, nicht aber bei Word

[Zacherl]

Ich glaube Günther geht es darum, dass seine Word + Word Expression nicht vor der Addition erweitert wurde (da ja schon erkennbar ist, dass der temporäre Wert direkt einem Double zugewiesen werden soll). Unter C printed folgender Code:

Code:

Word a = 1000;
Word b = 10000;
printf("%f", (double)(a - b))

übrigens "-9000.000000".

[Stevie]

Zitat von Zacherl:

Ich glaube Günther geht es darum, dass seine Word + Word Expression nicht vor der Addition erweitert wurde

Nope, es geht darum, dass je nach Größe des Ordinaltypes trotz {$OVERFLOWCHECKS ON} on keiner kommt.

Zitat von Zacherl:

Unter C printed folgender Code:

Code:

Word a = 1000;
Word b = 10000;
printf("%f", (double)(a - b))

übrigens "-9000.000000".

C schert sich auch nicht um Overflows.

[Zacherl]

Zitat von Stevie:

Zitat von Zacherl:

Ich glaube Günther geht es darum, dass seine Word + Word Expression nicht vor der Addition erweitert wurde

Nope, es geht darum, dass je nach Größe des Ordinaltypes trotz {$OVERFLOWCHECKS ON} on keiner kommt.

Sorry, das "nicht" war mir reingerutscht. Genau, das ist klar. Ohne eine Erweiterung auf 32-Bit würde es aber ja funktionieren. Oder halt wie oben irgendwo angemerkt über das Carry-Flag statt des Overflow-Flags.

Zitat von Stevie:

Zitat von Zacherl:

Unter C printed folgender Code:

Code:

Word a = 1000;
Word b = 10000;
printf("%f", (double)(a - b))

übrigens "-9000.000000".

C schert sich auch nicht um Overflows.

Macht Delphi im Grunde ja auch nicht. Der C-Code schiebt die Werte auch erst in ein 32-Bit Register, verrechnet sie und verwendet dann SSE/AVX für die Konvertierung nach Double. Caste ich statt nach Double in Word, wird einfach Truncated, was dann einem Überlauf gleichkommt. Wollte hiermit nur andeuten, dass die eigentliche Berechnung in Delphi schon soweit konform zu sein scheint. Lediglich der eigentliche Overflow-Check ist halt an der Stelle verbuggt.

[Der schöne Günther]

Eine ganz peinliche Frage, ich mache ja noch nicht lange Delphi

Ich sehe in Delphi keine Äquivalent zu C's (double)(a - b) außer vielleicht a*1.0 - b . Gibt es etwas besseres außer vielleicht einer zusätzlichen Variable der man dann a zuweist?

[gammatester]

Zitat von Der schöne Günther:

Ich sehe in Delphi keine Äquivalent zu C's (double)(a - b) außer vielleicht a*1.0 - b . Gibt es etwas besseres außer vielleicht einer zusätzlichen Variable der man dann a zuweist?

int(a) - int(b) oder int(a-b) sollte auch funktionieren.

[himitsu]

Delphi-Quellcode:

CCast = PascalCast

(double)(a - b) = Double(a - b)

(double)a - b = Double(a) - b

(double)a - (double)b = Double(a) - Double(b)

(double)((integer)a - (integer)b) = Double(Integer(a) - Integer(b))

[Der schöne Günther]

Dann ist mein Delphi wohl kaputt, denn das kompiliert alles nicht.

Delphi-Quellcode:

procedure p();
var
   a:   LongWord;
   b:   LongWord;
   asFloat: Double;
begin
   a := 0;
   b := 1;
   asFloat := Double(a-b); // E2089 "Ungültige Typumwandlung"
end;

[himitsu]

Sehr eigenartig, der implizite Cast asFloat := a-b; funktioniert, aber der Explizite nicht.

Ich mache sowas selten/nie, drum bin ich jetzt auch überrascht, dass nichtmal ein asFloat := Double(a); geht.