Fließkommazahlen auf Gleichheit prüfen

Thema durchsuchen

Ansicht

Themen-Optionen

Fließkommazahlen auf Gleichheit prüfen

Ein Thema von Luckie · begonnen am 12. Nov 2006 · letzter Beitrag vom 3. Mai 2009

Vorheriger Beitrag

Nächster Beitrag

himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.326 Beiträge

Delphi 12 Athens

#23

Re: Fließkommazahlen auf Gleichheit prüfen

1. Mai 2009, 23:29

Currency ist ein skalierter Int64, nur das er über die FPU berechnet wird.

zusammenfalten · markieren

Delphi-Quellcode:

			Procedure TForm2.Button1Click(Sender: TObject);

  Var C: Currency;

    i: Int64 absolute C;

    i2: Integer;

  Begin

    For i2 := 0 to 100 do Begin

      C := i2 * 0.0531;

      Label1.Caption := CurrToStr(C);

      Label2.Caption := FloatToStr(i / 10000) + '    ' + IntToStr(i2);

      Application.ProcessMessages;

      Sleep(250);

    End;

  End;