6 respuestas en este tema

[poliburro]

El día de hoy vi un código publicado en Facebook que muestra una función para eliminar espacios en blanco al inicio y fin de una cadena. En un inicio me pareció irrelevante pues para ello tenemos ya la función trim pero pensandolo un poco mejor puede servir como un buen ejercicio de optimización y mejora.

Aquí el código y sientanse libres de mejorarlo u optimizarlo

delphi

function DelSpaces(Const Search: String): String;
 Const BlackSpace = [#33..#126];
     Var Index: Byte;
Begin
  Index := 1;
  While (Index <= Length(Search)) and 
        Not (Search[Index] in BlackSpace) Do
    Index := Index + 1;
  result := copy(Search,Index,255);
  Index := Length(Result);
  While (Index >0) and 
        not (Result[Index] in BlackSpace) Do
    Index := Index -1;
  result := copy(Result,1,Index);
  
End;

[escafandra]

Propongo una 'extraña' versión:

delphi

function _strrev(str: PCHAR): PCHAR; cdecl external 'crtdll';
function AllTrim(S: String): String;
var
  i, n: integer;
begin
  Result:= S;
  i:= Length(S);
  for n:= 0 to 1 do
  begin
    while(i>0) and (Result[i] = ' ') do dec(i);
    if i < Length(Result) then Result[i+1]:= #0;
    Result := String(_strrev(PCHAR(Result)));
  end;
end;

Saludos.

[poliburro]

Me gusta, claro con rev nos ahorramos el recorrido de fin al inicio

[poliburro]

La fucnión que usaste amigo me hizo pensar en una loquera. Hacer una versión recursiva...

delphi

function Mi_Trim(Cadena: String): String;
 
  function DelFin(SubCadena: String): String;
    Begin
      If SubCadena[Length(SubCadena)] = ' ' Then
        result := DelFin(Copy(SubCadena,1,Length(SubCadena) - 1))
      else
        Result := SubCadena;
    End;
 
  function DelInicio(SubCadena: String): String;
    Begin
      If SubCadena[1] = ' ' Then
        result := DelInicio(Copy(SubCadena,2,Length(SubCadena) - 1))
      else
        Result := SubCadena;
    End;
Begin
  Result := DelInicio(DelFin(Cadena));
end;

y así se usaria:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
cadena: String;
begin
  cadena := Mi_Trim('     .prueba.    ');
  ShowMessage('-' + cadena + '-');
 
end;

[roly]

delphi

function Eliminar(cadena:String):String;
begin
    result:=Trim(cadena);
end;

[sir.dev.a.lot]

delphi

function Q_TrimChar(const S: string; Ch: Char): string;
asm
        PUSH    ESI
        MOV     ESI,ECX
        TEST    EAX,EAX
        JE      @@qt
        MOV     ECX,[EAX-4]
        TEST    ECX,ECX
        JE      @@qt
        PUSH    EBX
        PUSH    EDI
        MOV     EBX,EAX
        MOV     EDI,EDX
        XOR     EDX,EDX
        MOV     EAX,ESI
        CALL    System.@LStrFromPCharLen
        MOV     EDX,EDI
        MOV     ECX,[EBX-4]
@@lp1:  CMP     DL,BYTE PTR [EBX]
        JNE     @@ex1
        INC     EBX
        DEC     ECX
        JNE     @@lp1
        MOV     EDX,[ESI]
        JMP     @@wq
@@ex1:  DEC     ECX
@@lp2:  CMP     DL,BYTE PTR [EBX+ECX]
        JNE     @@ex2
        DEC     ECX
        JMP     @@lp2
@@ex2:  MOV     EDI,[ESI]
        LEA     EDX,[EDI+ECX+1]
@@lp3:  MOV     AL,BYTE PTR [EBX+ECX]
        MOV     BYTE PTR [EDI+ECX],AL
        DEC     ECX
        JNS     @@lp3
@@wq:   MOV     EAX,[ESI]
        MOV     BYTE PTR [EDX],0
        SUB     EDX,EAX
        MOV     [EAX-4],EDX
        POP     EDI
        POP     EBX
        POP     ESI
        RET
@@qt:   MOV     EAX,ESI
        CALL    System.@LStrClr
        POP     ESI
end;

Hola a todos, Me sumo al Tema, proporcionando una funcion en Ensamblador (Optimizada).

 

Probada en Delphi 7, Windows 10 PRO.

 

Ejemplo:

ShowMessage(Q_TrimChar('   HOLA MUNDO   ',#32));

 

Saludos!

[BDWONG]

Hola tambien dejo mi version

delphi

function trimString(const source:String):String;
var i,fpos,lpos:Integer;
begin
   fpos:=1;
   lpos:=Length(source);
   Result:=source;
 
   if lpos>0 then begin
      while source[fpos]=' ' do inc(fpos);
      while source[lpos]=' ' do dec(lpos);
      Result:=Copy(source,fpos,lpos-fpos+1);
   end;
end;