Einzelnen Beitrag anzeigen

Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.064 Beiträge
 
Delphi 10.3 Rio
 
#2

Re: Problem mit aneinandergereihten while-Schleifen

  Alt 31. Okt 2008, 14:02
Hallo

Das liegt an der internen Genauigkeit...

Versuch mal

Delphi-Quellcode:
function RealComp(r1,r2:real):boolean;

Var
    S1,S2 : shortstring;

begin
  if r2 = 0.0 then
    r1 := abs(R1);

  Str(R1:10:2,S1);
  Str(R2:10:2,S2);
  RealComp := Boolean( S1 = S2 );
end;
und

WHILE (b>0.01) or realcomp(b,0.01) DO BEGIN Dann funktioniert es!

Grüsse Mavarik
  Mit Zitat antworten Zitat