13 Years of Service
95%
Es una alternativa al TrimLeft incluido en SysUtils.
La función que realiza es eliminar los espacios de la izquierda de una cadena (y solo los de la izquierda), si por ejemplo tenemos " hola", la función nos devuelve "hola", si tenemos " hola ", nos devolverá "hola ", lo que es eliminar los espacios vamos xD, si no hay espacios a la izquierda simplemente no modifica la cadena.
[lenguaje=delphi]function mTrimLeft(Cadena: string):string;
var
Espacios: ShortInt;
i, j: integer;
begin
i:= 1;
for j:= 1 to Length(Cadena) do
begin
Espacios:= pos(' ', Cadena);
if Espacios = 1 then
inc(i);
Result:= copy(Cadena, i, Length(Cadena) - i +1);
end;
end;[/lenguaje]
Autor: Metal_Kingdom
La función que realiza es eliminar los espacios de la izquierda de una cadena (y solo los de la izquierda), si por ejemplo tenemos " hola", la función nos devuelve "hola", si tenemos " hola ", nos devolverá "hola ", lo que es eliminar los espacios vamos xD, si no hay espacios a la izquierda simplemente no modifica la cadena.
[lenguaje=delphi]function mTrimLeft(Cadena: string):string;
var
Espacios: ShortInt;
i, j: integer;
begin
i:= 1;
for j:= 1 to Length(Cadena) do
begin
Espacios:= pos(' ', Cadena);
if Espacios = 1 then
inc(i);
Result:= copy(Cadena, i, Length(Cadena) - i +1);
end;
end;[/lenguaje]
Autor: Metal_Kingdom
Last edited by a moderator: