Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-01-2007
coyule coyule is offline
Miembro
 
Registrado: ene 2007
Posts: 14
Poder: 0
coyule Va por buen camino
Extraer solo el nombre de un archivo sin su extencion

Buenas, tengo delphi7 winxp..... E buscado aqui en el foro como extraer el nombre de un archivo sin su extencion y no enconte algo claro, pongo este pero me lo da con su extencion

Claro este busca los archivos en x carpeta y te los muestra en un MEMO


Código:
procedure TForm1.Button1Click(Sender: TObject);
 procedure RastreaDir(Dir: string);
 var
    FileSearch:  TSearchRec;
 begin
    chDir (Dir);
    FindFirst ('*.*', faDirectory, FileSearch);
    while FindNext(FileSearch)=0 do
    begin
      if (FileSearch.Attr = faDirectory) then
      begin
        if (FileSearch.Name<>'..') then RastreaDir(FileSearch.Name+'\');
      end else
        {Pon aqui lo que quieras hacer con los ficheros encontrados}
        {Put here anything to make with the find files}
        Memo1.Lines.Add(FileSearch.Name);
                 end;
    FindClose(FileSearch);
 end;
 begin
   RastreaDir('G:\musica');
 end;
Responder Con Cita
  #2  
Antiguo 13-01-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 24
seoane Va por buen camino
Prueba con esto:
Código Delphi [-]
  Memo1.Lines.Add(ChangeFileExt(FileSearch.Name,''));
Responder Con Cita
  #3  
Antiguo 13-01-2007
coyule coyule is offline
Miembro
 
Registrado: ene 2007
Posts: 14
Poder: 0
coyule Va por buen camino
funciono como queria......... Gracias seoane
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
extraer nombre y tipo de campo cuscus Firebird e Interbase 10 03-11-2006 19:17:08
Extraer el texto de un archivo UTF-8 ixMike Varios 0 10-10-2006 20:31:45
Extraer solo nombre de archivo y extensión JODELSA Varios 11 13-07-2005 16:04:09
Extraer el nombre del mes de una fecha JODELSA Varios 4 20-05-2005 00:29:41
Extraer el nombre de una imagen acrophet Gráficos 5 08-07-2004 17:12:27


La franja horaria es GMT +2. Ahora son las 11:43:16.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi