[Casimiro Notevi]

je, je, je...

Código Delphi [-]
var
  s:string;
begin
  s := '1,200.34';
  s := StringReplace(s, '.', '@', [rfReplaceAll]); // 1,200@34
  s := StringReplace(s, ',', '.', [rfReplaceAll]); // 1.200@34
  s := StringReplace(s, '@', ',', [rfReplaceAll]); // 1.200,34
  ShowMessage(s);
end;