Daten auf Festplatte statt in Speicher schreiben

[Patrick]

Also das ist der ganze relevante Code

Delphi-Quellcode:

var resdatgro : array of int64;
procedure TForm1.ListFileDir(const Path, subdir, tage: string; FileList : TStrings);
var SR : TSearchRec;
    datum : TDateTime;

  function GetLastModified(const Datei: string; out Value: TDateTime): Boolean;
  var dt : Integer;
  begin
    dt := FileAge(Datei);
    Result := dt >= 0;
    if Result then
      Value := FileDateToDateTime(dt);
  end;

  function GetFileSize(szFile: string): Int64;
  var fFile : THandle;
      wfd   : TWIN32FINDDATA;
  begin
    result := 0;
    if not FileExists(szFile) then exit;
    fFile := FindFirstfile(pchar(szFile), wfd);
    if fFile = INVALID_HANDLE_VALUE then exit;
    result := (wfd.nFileSizeHigh * (Int64(MAXDWORD) + 1)) + wfd.nFileSizeLow;
    windows.FindClose(fFile);
  end;

begin
  StatusBar1.SimpleText:='Datei-Scan: "'+Path+'"';
  Application.ProcessMessages;
  if FindFirst(Path + '*.*', faAnyFile and faDirectory, SR) = 0 then
  begin
    repeat
      if ((SR.Attr and faDirectory) <> 0) and (subdir='ja') then
      begin
        if (SR.Name <> '.') and (SR.Name <> '..') then ListFileDir(Path+SR.Name+'\',subdir,tage,FileList);
      end
      else if (SR.Attr <> faDirectory) then
      begin
        GetLastModified(path+SR.Name,datum);
        if datum <(date-StrtoInt(tage)) then
        begin
          CheckListBox1.Items.Add(path+SR.Name);
          checkListBox1.Checked[CheckListBox1.Count-1]:=true;
          setlength(resdatgro,CheckListBox1.Items.Count);
          resdatgro[Checklistbox1.Items.Count-1]:=GetFileSize(path+SR.Name);
        end;
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

Also bei wie vielen Elementen er letztendlich hängen bleibt muss ich erst testen, und dazu hab ich momentan wenig Zeit. Aber kann man die Funktion vielleicht Iterativ lösen? Rekursion hat eben Nachteile in der Rechenzeit und dem Speicherbedarf.