Buscar

Eliminando caracteres de strings

Código

Function EliminaCaracteres (sTexto: String; sCaracteres:Set of Char):String;
{Elimina de sTexto todos os caracteres passados como parametro}
var
nPos, nTam: Integer;
begin
Result := '';
nPos := 1;
nTam := Lenght(sTexto);
while nPos <= nTam do
  begin
  if not (sTexto[nPos] in sCaracteres) then Result := Result +sTexto[nPos]
  end;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 12/06/03
Por: Felipe Monteiro
Visualizada: 4182 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009