Quitar Puntos a Numeros

[cloayza]

Y que pasaría si:

Código Delphi [-]
var
  s: string;
begin
  //Que pasaría si cambio el formato del número a:
  s := '1,200.34'; //1.200,34
  s := StringReplace(s, '.', '', [rfReplaceAll]);  // 1,20034
  s := StringReplace(s, ',', '.', [rfReplaceAll]); // 1.20034

  ShowMessage(s); //1.20034 ?
  ...

Creo que no es la mejor forma...
Saludos cordiales

[Casimiro Noteví]

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;

[ecfisa]

Hola.

No había reparado que el dato estaba en formato numérico:

Empezado por ingabraham

tengo unos datos numericos que poseen decimas

En ese caso:

Código Delphi [-]
var
 s : string;
 ch: Char;
begin
  ch := DecimalSeparator;
  DecimalSeparator := '.';
  s  := FormatFloat('0.00', ValorNumerico);
  DecimalSeparator := ch;
  ...

Saludos.

[ElMug]

Depende de la base de datos, el aspecto visual de la data se puede corregir en lo que se llama "collation" y son ajustes parametrizados, o pueden formar parte de un query o meta-comando. La data guardada sigue igual.