|
Registriert seit: 14. Okt 2003
2 Beiträge
|
AW: Ganze Zahl runden
14. Feb 2011, 19:24
Hallo Leute,
also ich hab's so gemacht :
function Runde(N, R : Integer) : string;
begin
repeat inc(N);
until N mod R = 0;
Result := IntToStr(N);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text := Runde(StrToInt(edit1.Text), 5); // auf 5 runden, 10 auf 10 runden
end;
Grüße Manni
|