|
Registriert seit: 9. Mär 2005
Ort: Hannover
17 Beiträge
Delphi 7 Personal
|
Re: Aufrunden auf den nöchsten 5 oder 10er
13. Okt 2007, 21:06
Ein bisschen Code zum testen
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var s : string;
begin
i := i + 0.1;
str(I:2:2,S);
label1.Caption := s;
x := (Floor(((I/5)-0.01))*5)+5;
str(x,S);
label2.Caption := s;
end;
mfg
Immer auf der Suche nach der Antwort auf die allumfassende Frage: Wo ist mein Kugelschreiber?
|