Asi mi nerozumieš.

Porovnaj si tento kód:

function Float2String(r: Real): String;
var 
  fs : TFormatSettings; 
begin
  GetLocaleFormatSettings(0, fs);
  fs.DecimalSeparator := '.';
  fs.ThousandSeparator := '';
  Result := FloatToStr(r, fs);
end;

S týmto:

function Float2String(r: Real): String;
var
  s: String;
begin
  Str(r : 1 : 1, s);
  Result := s;
end;

Ja myslím, že môj je oveľa jednoduchší a v podstate aj rýchlejší, pokiaľ by bolo treba pozerať na rýchlosť. V mojej funkcii si viem určovať jednoducho aj počet desatinných miest, čo sa v tvojej nedá bez ďalších nastavení. Mimochodom, ja som potreboval poradiť s Formať a toto je už ďalšia funkcia navyše, ktorú som mal aj bez toho. V každom prípade za pomoc ďakujem, ale nie je to také ako som si predstavoval.