Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  AW: 2 for Schleifen

   
    by DeddyH, 5. Jul 2013
  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):
  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'));
  ...