Buscar

Retira o espaço em branco no inicio ou fim de uma string

Código

Function Trim(J:String):String; Export;
Begin
  While J[Length(J)]=#32 do Dec(J[0]);
  If Length(J)>1 then
  While (J[1]=' ') do
  Begin
    Delete(J,1,1);
    If Length(J)<=1 then J:='';
  end;
  Result:=J;
end;
 

Publicidade

Vote na dica




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

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 30/07/03
Por: Mario C. Neto
Visualizada: 3754 vezes

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