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.