Código: Seleccionar todo

function sTrim(lpStr:string):String;
var
i: Integer;
begin
If Length(lpStr) > 0 Then
begin
     for i := 1 to Length(lpStr) do begin
         If Copy(lpStr,i,1) = ' ' Then begin
            If (Copy(lpStr,i,1) = ' ') And (Copy(lpStr,i + 1,1) <> ' ') And (Copy(lpStr,i - 1,1) <> ' ')Then Result:= Result + Copy(lpStr,i,1);
            Result:= Result + '';
            end else
            Result:= Result + Copy(lpStr,i,1)
         end;
     end;
end;

Código: Seleccionar todo

function sTrim(lpStr:String):String;
var
i: Integer;
begin
If Length(lpStr) > 0 Then
begin
     for i := 1 to Length(lpStr) do begin
         If lpStr[i] = ' ' Then begin
            If (lpStr[i] = ' ') And (lpStr[i+1] <> ' ') And (lpStr[i-1] <> ' ')Then Result:= Result + lpStr[i];
            end else
            Result:= Result + lpStr[i]
         end;
     end;
end;

Código: Seleccionar todo

function sTrim(lpStr:String):String;
var
i: Integer;
nTemp: Integer;
nTemp2: Integer;
begin
If Length(lpStr) > 0 Then
begin
     for i := 1 to Length(lpStr)  do
     begin
         If lpStr[i] <> ' ' Then
         begin
              nTemp := i;
              break;
         end;
     end;

     for i := Length(lpStr) downto 1 do
     begin
         If lpStr[i] <> ' ' Then
         begin
            nTemp2:=i;
            break;
         end;
     end;

     for i := nTemp to nTemp2 do
     begin
         Result:=Result + lpStr[i]
     end;
end;
end;

Código: Seleccionar todo

function s1Trim(lpStr:String):String;
var
i: Integer;
j: Integer;
nTemp1: Integer;
nTemp2: Integer;
find1: boolean;
find2: boolean;
begin
If Length(lpStr) > 0 Then
begin
     nTemp1:= 0;
     nTemp2:= 0;
     find1:= false;
     find2:= false;
     i:= 1;
     j:= Length(lpStr);
     while((i<=Length(lpStr))and(not(find1 and find2))) do
     begin
         If ((lpStr[i] <> ' ')and(not find1)) Then
         begin
              nTemp1 := i;
              find1 := true;
         end;
         If ((lpStr[j] <> ' ')and(not find2)) Then
         begin
              nTemp2 := j;
              find2 := true;
         end;
     i:= i+1;
     j:= j-1;
     end;

     for i := nTemp1 to nTemp2 do
     begin
         Result:=Result + lpStr[i]
     end;
end;
end;