remplazar mas de un caracter en string

[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.