Extended To String mit dekadischen Einheiten

[CodeX]

Sorry, aber irgendwie passt das nicht. Ist jetzt noch falscher als vorher.

Zum Testen:

Delphi-Quellcode:

  for i := 0 to 9 do
  begin
    Number := Power(10, i);
    s := s + FloatToStrS(Number, False, False, '', 3, 0) + #13#10;
  end;
  ShowMessage(s);

Erwartete Ausgabe:

Code:

1
10 
100 
1 Kilo
10 Kilo
100 Kilo
1 Mega
10 Mega
100 Mega
1 Giga

Alte Version:

Code:

1 
10 
100 
1E3 
10 Kilo
100 Kilo
1E3 Kilo
10 Mega
100 Mega
1E3 Mega

Neue Version:

Code:

0 Kilo
0 Kilo
0 Kilo
1 Kilo
0 Mega
0 Mega
1 Mega
0 Giga
0 Giga
1 Giga