Hi Kunoishi,
- OnShow registrieren
- Procedure LoadFiles() schreiben
- LoadFiles in OnShow
- Programm starten > Fehler beseitigen ^^
Delphi-Quellcode:
function loadFiles( ... ): Boolean;
var
lSearchRec : TSearchRec;
lFileDate : String;
lDir : String;
lExtension : String;
begin
Result := false;
lDir := self.FCh.Dir + (...);
try
if( FindFirst( lDir + '*.*', faAnyFile, lSearchRec) = 0 )then
begin
repeat
if( (lSearchRec.Attr <> faDirectory) )then
begin
if( isCorrectFile( lSearchRec.Name, lDir) )then
begin
lExtension := LowerCase( GetFileExt(lDir + lSearchRec.Name) );
if( lExtension = 'dat' )then Result := self.FileWorker( lDir + lSearchRec.Name );
end; {wenn name stimmt}
end;
until( FindNext(lSearchRec) <> 0);
end;
finally
FindClose(lSearchRec);
end;
Kurze Erklärung zum Code (den du auch über die Suche gefunden hättest):
- Verzeichnis öffnen
- Dateien suchen
- Datei überprüfen in isCorrectFile(...)
- Datei verarbeiten in FileWorker(...)
Du solltest dich auf jeden Fall auch mit dem hier beschäftigen:
IncludeTrailingPathDelimiter(...)
den Rest musst du selbst schreiben
Wenn etwas unklar ist, fragen.
Lg
Sebastian