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;
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;