Extended / integer

[HomerGER]

Hallo
ich versuch grade ein Integer durch eine Extended zu teilen
und bekomme immer die fehlermeldung Ungültige Gleitkommaoperation

Extended / zb. 5 geht - was mach ich falsch?


Homer

[Dax]

Du kannst bei Fließkommawerten nur / verwended, div ist nur für Integer-Werte.

[HomerGER]

aber warum geht

Extended / 5 geht

zahl : Integer;

zahlt := 5

Extended / zahlt geht nicht ????

[Dax]

Also, bei mir geht das hier:

Delphi-Quellcode:

var 
  e: Extended;
  i: Integer;
begin
  e := 4;
  i := 3;
  e := e / i;
end;

Und e ist am Ende 1.3333333333..., kann dein Problem nicht nachvollziehen.

[Christian Seehase]

Moin Homer,

[EDIT]
Mist, zu spät
[/EDIT]

So funktioniert's bei mir

Delphi-Quellcode:

var
  iVar : integer;
  eExt : extended;
  iRes : integer;
  eRes : extended;

begin
  eExt := 1.001;
  iVar := 1000;
  iRes := trunc(eExt / iVar);
  eRes := eExt / iVar;
  ShowMessage(IntToStr(iRes)+#13#10+FloatToStr(eRes));
end;

[HomerGER]

var
e: Extended;
i: Integer;

e := Floatwert aus der DB

i anzahl x

Label.Caption := FormatFloat('0.00 "€"', e / i);

kommt der Fehler

[Dax]

Wie gesagt, dein Fehler tritt bei mir nicht auf.

[HomerGER]

das ist es ja was ich nicht verstehe
es ja auch so richtig , trotzdem bekomme ich den fehler ;-((

[Christian Seehase]

Moin Homer,

als Workaround, bzw. zum Testen, könntest Du den Wert der Integervariablen vorab einer Extendvariablen zuweisen, und die dann im FormatFloat benutzen.

[HomerGER]

der selber fehler

var
e: Extended;
i: Extended;

e := Floatwert aus der DB

i anzahl x

Label.Caption := FormatFloat('0.00 "€"', e / i);

kommt der Fehler