Hola a todos les dejo algunas funciones basico desarrollados por Metal_Kimgdom
mFilename (Obtiene nombre de un archivo)
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)
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
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
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.-