Remover virgula

[Rodrigo Miss 1]

Tava tentando fazer um loop pra remover as virgulas de um edit...

 

e andei fazendo nheca,,, algume pode me ajudar?

 

coisinha simples neh.... mais como ainda so novato em ambiente da Borland.. heheh

 

Tentei fazer algo assim:

 

vari: integer;s: string;beginFor i:= 1 to Lenght(Edit1.Text) do	  begin	  if Edit1.Text[i] = ',' then	  s:= StringReplace(Edit1.Text[i], ',', #8,[rfReplaceAll]);	  Edit1.Text:= s;	  end;

Mah deu pau.,, naum fungo,,,, alguem pode me socorrer?

[bastard2003 4]

q erro q deu?

[marcio.theis 3]

Faz assim:

 

 

var	i: integer;	s: string;begins:='';For i:= 1 to Lenght(Edit1.Text) do	begin	if Edit1.Text[i] <> ',' then		s:=s + Edit1.Text[i]	else		s:=s + ' ';	end;Edit1.Text:= s;

Simplificando:

 

Edit1.Text:=StringReplace(Edit1.Text, ',', ' ',[rfReplaceAll]);

[Rodrigo Miss 1]

Vlw Marcio,,,, grande kra!!!