Rekursives durchsuchen und Letzten Dateizugriff auslesen

[AnyKey]

Der Code ist ziemlich lang, hab noch mal drüber geguckt und es ist kein List.Clear drin ^^ aber was ich rausgefunden habe ist, dass er nicht einmal was in die Liste schreibt, so wie ich es die ganze Zeit schon vermutet habe.

Delphi-Quellcode:

var LastAccess : Array of string;
var List       : TStringList;
var Path       : string;
var i          : Integer;
begin
  List := TStringList.Create;
  Main.UniConnection1.Connect;
  if Main.UniConnection1.Connected = True then
  begin
    Main.UniQuery1.SQL.Clear;
    Main.UniQuery1.SQL.Add('SELECT Pfad FROM tblPfad;');
    Main.UniQuery1.Execute;
    Path := Main.UniQuery1.Fields[0].Value;
  end;
  TDataWork.GetAllFilesInDirectorys(Path,List,true);
  setLength(LastAccess,List.Count-1);
  for i := 0 to List.Count-1 do
  begin
    LastAccess[i] := TDataWork.GetLastAccesstime(List.Strings[i]);
  end;
  FreeAndNil(List);

Hab mich mal aufs wesentliche beschränkt.