2 for Schleifen

[DeddyH]

Ich würde erst einmal die Logik von der Darstellung entkoppeln und mir eine schöne saubere Routine schreiben, etwa so (aus dem Kopf und ungetestet):

Delphi-Quellcode:

procedure ListExistingFiles(const Paths, Files, Destlist: TStrings);
var
  Filename: string;
  iPath, iFile: integer;
begin
  Assert(Assigned(Paths, 'Pfadliste nicht übergeben'));
  Assert(Assigned(Files, 'Dateiliste nicht übergeben'));
  Assert(Assigned(Destlist, 'Zielliste nicht übergeben'));
  Destlist.BeginUpdate;
  try
    Destlist.Clear;
    for iPath := 0 to Paths.Count - 1 do
      for iFile := 0 to Files.Count - 1 do
        begin
          Filename := IncludeTrailingPathDelimiter(Paths[iPath]) + Files[iFile];
          if FileExists(Filename) then
            Destlist.Add(Filename);
        end;
  finally
    Destlist.EndUpdate;
  end;
end;