Delphi dicas

Remove os espaços em branco de ambos os lados da string

Function Alltrim(const Search: string): string;

{Remove os espaços em branco de ambos os lados da string}

const

BlackSpace = [#33..#126];

var

Index: byte;

begin

        Index:=1;

        while (Index <= Length(Search)) and not (Search[Index] in BlackSpace) do

        begin

                Index:=Index + 1;

        end;

        Result:=Copy(Search, Index, 255);

        Index := Length(Result);

        while (Index > 0) and not (Result[Index] in BlackSpace) do

        begin

                Index:=Index - 1;

        end;

        Result := Copy(Result, 1, Index);

end;

por : Jose Antonio