Fórum Essa eu quero ver .... #157657
03/05/2003
0
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 !
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
Curtir tópico
+ 0
Responder
Posts
03/05/2003
Aroldo Zanela
Colega,
No Delphi7:
Use StringReplace.
Em uutras versões, ou memo no D7, Você pode construir uma função, conforme exemplo abaixo:
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;
Responder
Gostei + 0
03/05/2003
Evdias
Valeu Aroldo !
Funfou direitinho éra o que eu tinha em mente tkz
Funfou direitinho éra o que eu tinha em mente tkz
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)