Buscar

Como tirar os espaços no início e no final 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; {Lembrando que esta é uma função pré-definida pelo delphi.Use-a assim:}

if trim(edit1.Text := '' ) then showmessage('Este edit precisa ser preenchido com caracteres');

Publicidade

Vote na dica




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

Detalhes da dica

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

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