FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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; |
#3
|
|||
|
|||
funciono como queria......... Gracias seoane
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
extraer nombre y tipo de campo | cuscus | Firebird e Interbase | 10 | 03-11-2006 18:17:08 |
Extraer el texto de un archivo UTF-8 | ixMike | Varios | 0 | 10-10-2006 19:31:45 |
Extraer solo nombre de archivo y extensión | JODELSA | Varios | 11 | 13-07-2005 15:04:09 |
Extraer el nombre del mes de una fecha | JODELSA | Varios | 4 | 19-05-2005 23:29:41 |
Extraer el nombre de una imagen | acrophet | Gráficos | 5 | 08-07-2004 16:12:27 |
|