Dicas - Excluindo caracter em uma string

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (2)

Saiba como excluir todas as ocorrências de um caractere em uma string.

Saiba como excluir todas as ocorrências de um caractere em uma string

 

Inclua na seção uses: SysUtils

Em uma nova aplicação insira um botão (Button - paleta Standard) e uma caixa de texto (Edit - paleta Standard). Crie uma função chamada DeleteChar (ver código abaixo). Essa função será responsável pela exclusão de todas as ocorrências dos caracteres, digitados no Edit1, que forem enviados como parâmetro (através do evento OnClick do Button1) .

 

function DeleteChar(const Ch: Char; const S: string): string;

var

  Posicao: integer;

begin

  Result := S;

  Posicao := Pos(Ch, Result);

  while Posicao > 0 do

  begin

    Delete(Result, Posicao, 1);

    Posicao := Pos(Ch, Result);

  end;

end;

 

Programe o evento OnClick do botão conforme abaixo:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  Edit1.Text := DeleteChar('"', Edit1.Text);

  Edit1.Text := DeleteChar('.', Edit1.Text);

  Edit1.Text := DeleteChar('?', Edit1.Text);

end;

 

Agora veja o funcionamento.

 

por Erick Rhamnusia

uploader@clubedelphi.net

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?