Buscar por:

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

Código

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;