| coyule |
13-01-2007 03:53:59 |
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;
|
