substituir um valor dentro de um string

Delphi

19/02/2004

substituir um valor dentro de um string

de 1.235,32
para 1,326.65

Value


Fluiz

Fluiz

Curtidas 0

Respostas

Ltres

Ltres

19/02/2004

Ai esta uma rotina simples mas q resolve..
procedure SubsCarac(Proc: Char; Por: Char; var Str: string);
var
  n: integer;
begin
  for n:=1 to Length(Str) do
    if Str[n] = Proc then Str[n] := Por;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  Txt: string;
begin
  Txt := Edit1.Text;
  SubsCarac(´.´, ´*´, Txt);
  SubsCarac(´,´, ´.´, Txt);
  SubsCarac(´*´, ´,´, Txt);
  Edit2.Text := Txt;
end;


a procedure SubsCarac tem como parametros um caracter de procura e outro de troca, mais uma variavel onde sera feita a troca


GOSTEI 0
POSTAR