Erweiterte Funktion von Daniel B
siehe Beitrag
Erweitert wurde, dass sowohl Kommazahlenstrings, als auch einfache Zahlenstrings unterschieden werden und daraufhin die Trennzeichen gesetzt werden.
ThX an Daniel für die Vorlage...
Delphi-Quellcode:
function ThouSep2(sTemp: String; cTemp: Char): String;
var
iTemp: Integer;
i : Integer;
komma:boolean;
begin
komma := False;
for i := 1 to Length(sTemp) do
begin
if sTemp[i] = ',' then komma := true;
end;
if komma = True then
begin
Result := sTemp;
iTemp := Length(sTemp) -5;
while iTemp > 1 do
begin
Insert(cTemp, Result, iTemp);
iTemp := iTemp -3;
end;
end;
if komma = False then
begin
Result := sTemp;
iTemp := Length(sTemp) -2;
while iTemp > 1 do
begin
Insert(cTemp, Result, iTemp);
iTemp := iTemp -3;
end;
Result := Result + ',00';
end;
end;