String replace

[Aprendizporumavida 0]

Bom dia pessoal, estou utilizando a seguinte sintaxe da string replace

 

 

ShowMessage(StringReplace(edit1.text, '.', '', [rfReplaceAll]));

 

neste caso ele retira de meu edit os pontos, mas eu precisava também retirar outros, como virgula(,) sinal de menos (-)

 

se tento atribuir assim ShowMessage(StringReplace(edit1.text, '.', '', '-', ',', [rfReplaceAll]));

 

não da certo.

 

Se alguem puder me dar um help..

 

Obrigado desde já.

[Rodrigo Miss 1]

você pode fazer assim:

var
	Str: string;
begin
	Str:= StringReplace(edit1.text, '.', '', [rfReplaceAll]);
	Str:= StringReplace(Str, ',', '', [rfReplaceAll]);	
	StringReplace(edit1.text, '-', '', [rfReplaceAll]);
	ShowMessage(Str);

ou ainda ...

 

Str:= Edit1.Text;
  Delete(Str, Pos(',', Str), 1);
  Delete(Str, Pos('-', Str), 1);
  Delete(Str, Pos('.', Str), 1);
  ShowMessage(Str);

[Aprendizporumavida 0]

Valew grande..

 

isto que estava precisando.

 

Abraços