Veja se isso pode lhe ajudar:
function DelSpaces(const s: string): string;
begin
Result := DelLeft(DelRight(s));
end;
---------------------- ou------------------------------
function EliminaBrancos(sTexto:String):String;
//
// Elimina todos os espaços em branco da string
//(inclusive os espaços entre as palavras)
//
var
nPos : Integer;
begin
nPos := 1;
while Pos(' ',sTexto) > 0 do
begin
nPos := Pos(' ',sTexto);
(*Text[nPos] := ''; *)
Delete(sTexto,nPos,1);
end;
Result := sTexto;
end;
------------------------------ ou ---------------(se ainda nao der certo.... me manda o tipo de dado que vc ta tratando para eu te ajudar)
Tenta TrimLeft(Edit1.text);
Acho q é isso...
Abracos++
Veja se isso pode lhe ajudar:
function DelSpaces(const s: string): string;
begin
Result := DelLeft(DelRight(s));
end;
Amigo , aonde esta declarado
DelLeft e DelRight , procurei aqui nos meus bizus e não encontrei ????
desculpa..mas não consigo colocar como concludo sem sempre dá erro de pagina