Funciones By Metal_Kingdom

Iniciado por Expermicid, Junio 24, 2012, 01:22:17 AM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Junio 24, 2012, 01:22:17 AM Ultima modificación: Abril 21, 2013, 01:09:20 PM por Expermicid
Hola a todos les dejo algunas funciones basico desarrollados por Metal_Kimgdom

mFilename (Obtiene nombre de un archivo)

Código: delphi
Function mFilename(Ruta: String): String;
var
a, b, c: string;
i: integer;
begin
for i:= length(ruta) downto 1 do
a:= a + ruta[i];
for i:= 1 to pos('\',a) - 1 do
b:= b + a[i];
for i:= length(b) downto 1 do
c:= c + b[i];
Result:= c;
end;


mExtractFilePath (Obtiene el directorio de un archivo)

Código: delphi
Function mExtractFilePath(Ruta: String): String;
var
a, b, c: string;
i: integer;
begin
for i:= length(ruta) downto 1 do
a:= a + ruta[i];
for i:= pos('\',a) + 1 to length(a) do
b:= b + a[i];
for i:= length(b) downto 1 do
c:= c + b[i];
Result:= c;
end;


Reverser

Código: delphi
function Reverse(Texto: String):String;
var
i: integer;
a: string;
begin
for i:= length(Texto) downto 1 do
a:= a + Texto[i];
Result:= a;
end;


Split

Código: delphi
Function sSplit(cadena: string; delimitador, delimitador2: PAnsiChar): String;
var
a: string;
contador1, contador2: integer;
begin
contador1:= pos(delimitador, cadena);
contador2:= pos(delimitador2, cadena);
a:= midstr(cadena,contador1 + strlen(delimitador), (contador2 - contador1) - strlen(delimitador));
result:= a;
end;


Saludos

Creditos: Metal_Kimgdom

Muy buen aporte se agradecen los aportes que estas trayendo Expermicid
Saludos,, Cronos.-