remplazar mas de un caracter en string

[gonza_619]

hola a todos , bueno mi consulta es la sig: tengo este valor tipo money ($1.500) pero necesito remplzar el signo $ y el punto '.' para que qede (1500) entonces luego poder hacer una operacion

lo hice con stringreplace( dbedit2.text, '$', '', ([rfreplaceall])

y me saco el signo $, pero no se como sacar el punto ala misma vez.
gracais de antemano

[urixiv]

Hola,
Una manera sencilla podria ser anidar los stringreplace

Stringreplace(stringreplace( dbedit2.text, '$', '', [rfreplaceall]), '.', '', [rfReplaceAll])

Salu2

[gonza_619]

buenisimo gracias funciono de maravillas

[urixiv]

De nada, un placer poder ayudar!!!!

[ContraVeneno]

¿y si solamente usas ".AsCurrency" en lugar de ".Text"?

[rrf]

Hola.

Está claro que la duda está resuelta y de una forma excelente.

Pero, para mí, lo hubiera resuelto en 2 líneas de código:

Código Delphi [-]
  stringreplace( dbedit2.text, '$', '', ([rfreplaceall]) ;
  stringreplace( dbedit2.text, '.', '', ([rfreplaceall]) ;

El código es más largo, aunque me parece más sencillo de revisar si hay un error.

Saludos.

[gonza_619]

no lo he probado , pero seguro funciona gracias por la ayuda

[ecfisa]

Hola.

Coincido con lo dicho por ContraVeneno, me parece más simple:

Código Delphi [-]
  Label1.Caption:= FloatToStr(DBEDit1.Field.AsCurrency);

Saludos.

[rrf]

La solución que aporté seguro que no funciona bien (no me dí cuenta de que era un DBEdit) porque habría que hacer el proceso en 1 sola orden, como lo propone la solución de gonza_619.

Saludos.