Czyżby komputery były niedokładne ? :D
Procedure WpiszKwote;
Var
Kwota : Real;
KwotaText : String;
Begin
{ wprowadzam kwote np. po przez okienko dialogowe //Zmienna KwotaText}
Kwota:=StrToFloat(KwotaText); { np. KwotaText='1.02'}
Label1.Caption:=FloatToStr(Kwota); {wypisuje wartość 1.0999998092651}
End; { koniec procedury }
Oczywiście można sobie poradzić funkcją Round(), ale nie o to chodzi...
Może ktoś ma jakąś receptę na taki stan (prócz zmiany komputera ;) )
{hello}
--Pawlik67
Zapraszam :-)
www.vebso.pl
UŻYTKOWNIK 9969489