Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Función que obtiene el nombre de un fichero, sin la extensión - Delphi
Lenguaje de programación Borland Delphi

Esta función realizada en Delphi 6 devuelve el nombre de un fichero dado sin la ruta ni la extensión. Por ejemplo, pasándole como parámetro lo siguiente:

"c:\documents and settings\fernando alonso\foto alonso.bmp"

devolverá:

"foto alonso"


Tras consultar todas las funciones que Delphi incorpora para el tratamiento del nombre de los ficheros (ChangeFileExt, ExcludeTrailingBackslash, ExcludeTrailingPathDelimiter, ExpandFileName, ExpandUNCFileName, ExtractFileDir, ExtractFileDrive, ExtractFileExt, ExtractFileName, ExtractFilePath, ExtractRelativePath, ExtractShortPathName, IncludeTrailingBackslash, IncludeTrailingPathDelimiter, IsPathDelimiter, MatchesMask, MinimizeName, ProcessPath) no hemos encontrado ninguna que devuelva sólo el nombre del fichero, sin la extensión. Así pues os mostramos un ejemplo de función que realiza esta tarea:

function obtenerNombreFicheroSinExtension (fichero : string) : string;
var
  i : integer;
  nombreFichero : string;
begin
  nombreFichero := '';
  for i := 1 to Length (fichero) - Length (ExtractFileExt (fichero)) do
    nombreFichero := nombreFichero + fichero[i];
  result := nombreFichero;
end;
Un ejemplo real de uso de esta función:
//si el nombre está en los nombres a excluir
if copiarFichero then
begin
  if buscarElementoLista(
      obtenerNombreFicheroSinExtension(compBusqueda.Name), lsNombreFicheroExcluir.Items) then
  begin
    bytesNoCopiadosExclusiones := bytesNoCopiadosExclusiones + tamanoFicheroActual;
    numFicheroExcluidos := numFicheroExcluidos + 1;
    if (tipolog = 'todo') then
      listaLog.Add ('EX: ' + carpetaOrigen + compBusqueda.Name +
          ' >>> EXCLUÍDO POR PERTENECER A NOMBRE DE FICHERO EXCLUIDO');
    copiarFichero := false;
  end
  else
    copiarFichero := true;
end;




Publicado el: 2007-12-14

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A