este procedimiento es para delphi 7.0, solamente ahi lo he probado
Procedure TInterfaz.Cargar Sender:TObject);
Var
MiArchivoTxt:TextFile;
NombreArchivo, ArchivoABuscar,RutaArchivo:String;
SearchRec: TSearchRec;
Begin
ArchivoABuscar:='C:\*.Txt';
RutaArchivo:= 'C:\';
Try Begin
If FindFirst(ArchivoABuscar, faAnyFile and not (faVolumeID or faDirectory), SearchRec) = 0 then
Begin
Repeat
NombreArchivo:= SearchRec.Name;
AssignFile(MiArchivoTxt, NombreArchivo);
Memo1.Clear;
Memo1.lines.LoadFromFile(RutaArchivo + NombreArchivo);
DeleteFile(NombreArchivo);
Until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
End;
End;
Except end;
End;
No hay comentarios:
Publicar un comentario