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