Buscar por:

Separando (filtrando) caracteres de uma string

Código

{ Abaixo da palavra implementation digite: } 

type 

  TChars = set of Char; 

function FilterChars(const S: string; const ValidChars: TChars): string; 

var 

  I: integer; 

begin 

  Result := ''; 

  for I := 1 to Length(S) do 

  if S[I] in ValidChars then 

  Result := Result + S[I]; 

end; 

{ Para usar a função: 

  - Coloque um botão no Form; 

  - Altere o evento OnClick deste botão conforme abaixo: } 

procedure TForm1.Button4Click(Sender: TObject); 

begin 

  { Pega só letras } 

  ShowMessage(FilterChars('D63an*%i+/e68l13', 

  ['A'..'Z', 'a'..'z'])); 

  { Pega só números } 

  ShowMessage(FilterChars('D63an*%i+/e68l13', ['0'..'9'])); 

end; {Se quiser usar esta função em outras unit's, coloque a declaração do tipo TChars na seção interface. Coloque aí também uma declaração da função FilterChars. E não se esqueça da cláusula uses. }