beim Programm öffnen die Daten automatisch laden

[Bitwurm]

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