Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Función que devuelve la última subcarpeta de una ruta - Delphi
Lenguaje de programación Borland Delphi



A esta función se le pasa como parámetro una ruta y devuelve la última subcarpeta:

function obtenerUltimaCarpeta (ruta : string) : string;
var
  i : integer;
  ultimaRuta : string;
begin
  ultimaRuta := '';
  for i := length (ruta) downto 0 do
  begin
    if ruta[i] <> '\' then
      ultimaRuta := ruta[i] + ultimaRuta
    else
      break;
  end;
  Result := ultimaRuta;
end;
Un ejemplo de uso:
...
 listaCarpetasTMP := TStringList.Create;
  for i := 0 to carpetasV.Count - 1 do
  begin
    //para no coger las subcarpetas anteriores
    if (ExcludeTrailingPathDelimiter (
        obtenerUltimaCarpeta (rutaBase)) = carpetasV.Items[i]) then
      obtenidaUltima := true
    else
      obtenidaUltima := false;
    if obtenidaUltima then
...
Por ejemplo, la función obtenerUltimaCarpeta , para el valor:
C:\Documents and Settings\fernando alonso\Escritorio
devolverá:
Escritorio




Publicado el: 2006-02-11

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+