Problem: findfirst() und findnext()

**geisi**

kann mir irgendwer sagen, was hier nicht stimmt?
ich bekomme immer eine EacessViolation - Fehlermeldung beim Aufruf der Methode findnext()
FileArray ist ein dynamische Array of TSearchRec

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TExplorer.searchforfiles();

var i,z:integer;

  SearchRec:TSearchRec;

begin

  i:=0;

  setlength(fileArray,1);

  if findFirst(dir+'*',faAnyFile,fileArray[0])=0 then

    repeat

      inc(i);

      setlength(fileArray,i+1);

      z:=findnext(fileArray[i]);

    until z<>0;

end;

Danke im Vorraus

Problem: findfirst() und findnext()

Problem: findfirst() und findnext()

Forumregeln