Periodische Zahl runden

[Monday]

Hallo,

wie kann ich eine periodische Zahl runden?

z.B. solcher Zahl 0,0122726666666667 (z.B. Runden auf 0,022726) oder solcher Zahl 0,125238888888889 (z.B. Runden auf 0,125238).

Ich möchte kein RoundTo verwenden, weil ich mich dann festlegen muss, wann gerundet werden muss. Aber es soll ja nur die periodische Zahl gerundet werden, und da weiß ich nicht, ab wann er auftritt.


Ich habe folgenden Code geschrieben, der aber noch nicht immer richtig funktioniert:

Delphi-Quellcode:

function periodische_Zahl_runden(input: string; periode:integer=3): string;
var
  a: integer;
  treffer: integer;
  neue_zahl : string;
begin
 if (pos(',',input) <= 0) AND (pos('.',input) <= 0) then begin result := input; exit; end; // Nur bei Dezimalzahlen

 //periode := 3; // wenn dreimal hintereinander die Zahl
 treffer := 0;

 for a := 1 to length(RemoveLastChar(input)) do
 begin
  if input[a] = input[a+1] then begin treffer := treffer+1; end else begin treffer := 0; end;

  if treffer >= periode then begin
    neue_zahl := copy(input,0,a-periode+1);
    break;
  end;
 end;

 if treffer < periode then begin
  neue_zahl := input;
 end;

 result := neue_zahl;

end;

Delphi-Quellcode:

  //ShowMessage( periodische_Zahl_runden('151.111324111111111')   );   // OK
  //ShowMessage( periodische_Zahl_runden('123,215')   );               // OK
  //ShowMessage( periodische_Zahl_runden('80170000000')   );           // OK Keine Periodische Zahl
  //ShowMessage( periodische_Zahl_runden('0,220027777777778')   );     // OK
  ShowMessage( periodische_Zahl_runden('0,0000004379')   );            //keine periodische Zahl - Wird zu früh abgeschnitten

Wie kann man den Code verbessern?