Problem: findfirst() und findnext()

[Brüggendiek]

Hallo geisi!

So wird das nichts! FindNext benutzt die von FindFirst im TSearchRec eingetragenen Werte für die Weiterverarbeitung. Außerdem muß der TSearchRec mit FindClose am Ende wieder freigegeben werden, sonst ergibt sich ein Speicherloch! Da werden nämlich System-Ressourcen belegt.

Wenn es wirklich über ein Array gehen muß, hilft nur eines:
Lokal einen TSearchrec anlegen (hast Du ja schon, ohne ihn zu verwenden!) und dessen Inhalt nach dem FindFirst und nach jedem FindNext in das entsprechende Array-Element kopieren.
Alternative: Definiere einen eigenen Datentyp (der nur die benötigten Elemente enthält) und kopiere jeweils dei relevanten Daten da rein.

So sollte es gehen (ungetestet) - abgesehen von der schon angesprochenen Problematik mit dem dynamischen Array:

Delphi-Quellcode:

procedure TExplorer.searchforfiles();
var i,z:integer;
  SearchRec:TSearchRec;
begin
  i:=0;
  z:=findFirst(dir+'*',faAnyFile,SearchRec);

  while z = 0 do
  begin
    setlength(fileArray,i+1);
    fileArray[i]:=SearchRec;
    inc(i);
    z:=findnext(SearchRec);
  end;

  FindClose(SearchRec);
end;

Mit der While-Schleife vermeide ich außerdem den Blödsinn mit der IF-Abfrage nach dem FindFirst!

Nebenbei sind natürlich globale Variablen (das Array, Dir) nicht unbedingt so gut. Besser ist es, das Ganze als Parameter zu übergeben.

Gruß

Dietmar Brüggendiek