Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.394 Beiträge
 
Delphi 10.4 Sydney
 
#23

Re: Fließkommazahlen auf Gleichheit prüfen

  Alt 1. Mai 2009, 23:29
Currency ist ein skalierter Int64, nur das er über die FPU berechnet wird.

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;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat