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
