Buscar

Retira caracter de uma String

Código

function RetiraChar(s: string): string; // Retira caracteres $:
var
  i: integer;
  a: string;
begin
  Result := '';
  for i := 1 to length(s) do
    begin
      a := copy(s, i, 1);
      if (a  ' ') and (a  ':') then // pode-se ir acresentado os caracter a ser removido
        begin
          result := Result + a;
        end;
    end;
end;

   

Publicidade

Vote na dica




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

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 16/06/09
Por: Denilson De Andrade
Visualizada: 2726 vezes

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