comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Funciones By Metal_Kingdom

  • 1 Respuestas
  • 1629 Vistas

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

Desconectado Expermicid

  • *
  • Underc0der
  • Mensajes: 457
  • Actividad:
    0%
  • Reputación 0
  • _-Expermicid-_
    • Ver Perfil
  • Skype: expermicid.xd
« en: Junio 24, 2012, 01:22:17 am »
Hola a todos les dejo algunas funciones basico desarrollados por Metal_Kimgdom

mFilename (Obtiene nombre de un archivo)

Código: Delphi
  1. Function mFilename(Ruta: String): String;
  2. var
  3. a, b, c: string;
  4. i: integer;
  5. begin
  6. for i:= length(ruta) downto 1 do
  7. a:= a + ruta[i];
  8. for i:= 1 to pos('\',a) - 1 do
  9. b:= b + a[i];
  10. for i:= length(b) downto 1 do
  11. c:= c + b[i];
  12. Result:= c;
  13. end;

mExtractFilePath (Obtiene el directorio de un archivo)

Código: Delphi
  1. Function mExtractFilePath(Ruta: String): String;
  2. var
  3. a, b, c: string;
  4. i: integer;
  5. begin
  6. for i:= length(ruta) downto 1 do
  7. a:= a + ruta[i];
  8. for i:= pos('\',a) + 1 to length(a) do
  9. b:= b + a[i];
  10. for i:= length(b) downto 1 do
  11. c:= c + b[i];
  12. Result:= c;
  13. end;

Reverser

Código: Delphi
  1. function Reverse(Texto: String):String;
  2. var
  3. i: integer;
  4. a: string;
  5. begin
  6. for i:= length(Texto) downto 1 do
  7. a:= a + Texto[i];
  8. Result:= a;
  9. end;

Split

Código: Delphi
  1. Function sSplit(cadena: string; delimitador, delimitador2: PAnsiChar): String;
  2. var
  3. a: string;
  4. contador1, contador2: integer;
  5. begin
  6. contador1:= pos(delimitador, cadena);
  7. contador2:= pos(delimitador2, cadena);
  8. a:= midstr(cadena,contador1 + strlen(delimitador), (contador2 - contador1) - strlen(delimitador));
  9. result:= a;
  10. end;

Saludos

Creditos: Metal_Kimgdom
« Última modificación: Abril 21, 2013, 01:09:20 pm por Expermicid »

Desconectado Cronos

  • *
  • Underc0der
  • Mensajes: 1000
  • Actividad:
    0%
  • Reputación 1
  • Mientras mas se, me doy cuenta de lo poco que se.
    • Ver Perfil
    • Email
  • Skype: cronos.labs
« Respuesta #1 en: Junio 24, 2012, 11:15:23 am »
Muy buen aporte se agradecen los aportes que estas trayendo Expermicid
Saludos,, Cronos.-

 

¿Te gustó el post? COMPARTILO!