Rest der Division bekommen

[hedie]

Hier die Funktion

Delphi-Quellcode:

Function Division_String(Zaehler,Nenner,NachKommaStellen: integer): string;
var
  l,i,rest : word;
  s : string;
begin
  result := '';
  l := 0;
  i := (zaehler div Nenner);
  s := inttostr(i);
  rest := (Zaehler mod Nenner);
  If Rest <> 0 then s := s + '.';

  while (rest <> 0) and (l < NachKommaStellen) do
  begin
    If (Rest < nenner) then Rest := (Rest * 10);
    i := (Rest div Nenner);
    s := s + inttostr(i);
    rest := (rest mod Nenner);
    inc(l);
  end;
  result := s;
end;

100 = Zähler
3 = Nenner
20 = Komastellen

Aufrufen mit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := Division_String(100,3,20);
end;