Código: Seleccionar todo

Public Function aLTrim(A As String)
On Error Resume Next
'============================================================'
' AX: aLTrim '
' Uso: Call aLTrim(" Texto") '
'============================================================'
Dim b As Long
Dim c As Long
If Len(A) = 0 Then Exit Function
For b = 1 To Len(A) Step 1
If Mid(A, b, 1) <> Chr(32) Then c = b: Exit For
Next b
aLTrim = Mid(A, c, Len(A) - (c - 1))
End Function

Código: Seleccionar todo

Public Function aRTrim(A As String)
On Error Resume Next
'============================================================'
' AX: aRTrim '
' Uso: Call aRTrim("Texto ") '
'============================================================'
Dim i As Long
Dim k As Long
If Len(A) = 0 Then Exit Function
For i = Len(A) To 1 Step -1
If Mid(A, i, 1) <> Chr(32) Then k = i: Exit For
Next i
aRTrim = Mid(A, 1, Len(A) - (Len(A) - k))
End Function

Código: Seleccionar todo

Public Function aTrim(A As String)
On Error Resume Next
'============================================================'
' AX: aTrim '
' Uso: Call aTrim(" Texto ") '
'============================================================'
Dim f As Long
Dim g As Long
Dim h As Long
Dim i As String
If Len(A) = 0 Then Exit Function
For f = 1 To Len(A) Step 1
If Mid(A, f, 1) <> Chr(32) Then g = f: Exit For
Next f
i = Mid(A, g, Len(A) - (g - 1))
For f = Len(i) To 1 Step -1
If Mid(i, f, 1) <> Chr(32) Then h = f: Exit For
Next f
aTrim = Mid(i, 1, Len(i) - (Len(i) - h))
End Function

Código: Seleccionar todo

Function RLTrim(szEntrada:String):String;
{->Coder - Linkgl <-}
{->Funcion-linkgl.blogspot.com}
{->indetectables.net<-}
var
i:Integer;
begin
for i:=length(szEntrada) downto 1 do
begin
  if not(copy(szEntrada,i,1)=' ') then
  begin
    Result:=copy(szEntrada,1,i);
    exit
  end
end
end;
Function LLTrim(szEntrada:String):String;
{->Coder - Linkgl <-}
{->Funcion-linkgl.blogspot.com}
{->indetectables.net<-}
var
i:Integer;
begin
for i:=1 to length(szEntrada) do
begin
  if not(copy(szEntrada,i,1)=' ') then
  begin
    Result:=copy(szEntrada,i,length(szEntrada));
    exit
  end
end
end;
{->EJEMPLO DE USO<-}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=RLTrim('hola soy linkgl         ');
Edit2.Text:=LLTrim('      hola soy linkgl');
end;
end.