Príklad:
var
s: string;
fs : TFormatSettings;
GetLocaleFormatSettings(0, fs);
fs.DecimalSeparator := 'D';
fs.ThousandSeparator := 'T';
s := FloatToStr(100 000 * PI, fs);
//s == '3T141T592D65'
predpokladám, že si pochopil...Príklad:
var
s: string;
fs : TFormatSettings;
GetLocaleFormatSettings(0, fs);
fs.DecimalSeparator := 'D';
fs.ThousandSeparator := 'T';
s := FloatToStr(100 000 * PI, fs);
//s == '3T141T592D65'
predpokladám, že si pochopil...