Essa eu quero ver ....

Delphi

03/05/2003

Como substituo um determinado caracter de uma edit ?

ex edit.text tem 123MF6A7FG7XA74

Como eu terito ex: o X tendo como base que ele nem sempre esta na mesma posição ?


Bom ate o momento tkz !


Evdias

Evdias

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

03/05/2003

Colega,

No Delphi7:

Use StringReplace.

Em uutras versões, ou memo no D7, Você pode construir uma função, conforme exemplo abaixo:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := CharReplace(Edit1.Text,´X´,´Y´);
end;

function TForm1.CharReplace(Origem: String; Procurar,
  Trocar: Char): String;
var nI: Integer;
begin
For nI := 1 to Length(Origem) do
  if Origem[nI]=Procurar then Origem[nI] := Trocar;
CharReplace := Origem;
end;



GOSTEI 0
Evdias

Evdias

03/05/2003

Valeu Aroldo !

Funfou direitinho éra o que eu tinha em mente tkz


GOSTEI 0
POSTAR