Hallo zusammen.

Irgendwie habe ich gerade etwas den durchblick bei for schleifen verloren.

Wie mache ich eine Schleife die folgendes tut:

Liste1:
Pfad1
Pfad2
Pfad3
usw...

Liste2:
Dateiname1
Dateiname2
Dateiname3
usw..


nun soll es folgendes machen:
Pfad1 + Dateiname1
Pfad1 + Dateiname2
Pfad1 + Dateiname3
...
Pfad2 + Dateiname1
Pfad2 + Dateiname2
Pfad2 + Dateiname3
...


Es sind also sozusagen 2 Schleifen die aber separat laufen müssen (glaube ich zumindest ;-D)
Sobald eine Kombination passt (If Directory exists() ), soll diese zb in eine Listbox eingetragen werden.

Ich habe es so versucht. Aber hier werden irgendwie Einträge übersprungen...?

zusammenfalten · markieren

Delphi-Quellcode:

for I := 0 to form2.ListBox2mainliste.Items.Count - 1 do
for I2 := 0 to form2.ListBox1Pfade.Items.Count - 1 do begin

if directoryexists(form2.ListBox1Pfade.Items[i2]+form2.ListBox2mainliste.Items[i]) then begin

if form2.ListBox2mainliste.ItemIndex>0 then if temp=form2.ListBox2mainliste.Items[i] =false then form2.ListBox2MainListeSORTED.Items.Add(form2.ListBox1Pfade.Items[i2]+form2.ListBox2mainliste.Items[i]);
temp:=form2.ListBox2mainliste.Items[i];

end
end;
end;

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):

zusammenfalten · markieren

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;

Zitat von gee21:

markieren

Delphi-Quellcode:

for I := 0 to form2.ListBox2mainliste.Items.Count - 1 do
   for I2 := 0 to form2.ListBox1Pfade.Items.Count - 1 do
      if (directoryexists(form2.ListBox1Pfade.Items[i2]+form2.ListBox2mainliste.Items[i]) &&
      form2.ListBox2mainliste.ItemIndex > 0) then
         form2.ListBox2MainListeSORTED.Items.Add(form2.ListBox1Pfade.Items[i2] +
         form2.ListBox2mainliste.Items[i]);

mit dem if temp=form2.ListBox2mainliste.Items[i] =false Konstrukt sorgst Du doch dafür, dass immer nur das erste I2 matcht
ausserdem gibt es hier viele Puristen, für dei ein Test auf false gaaanz böhse ist, also wenn, dann if (x <> y)

Zitat:

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):

Ach ja. Wäre wohl besser in der Art

Und jetzt check ich endlich was es mit den versetzten Zeilen auf sich hat ...

Zitat:

mit dem if temp=form2.ListBox2mainliste.Items[i] =false Konstrukt sorgst Du doch dafür, dass immer nur das erste I2 matcht
ausserdem gibt es hier viele Puristen, für dei ein Test auf false gaaanz böhse ist, also wenn, dann if (x <> y)

Aha... wollte ursprünglich eigentlich eine Doppeleintragung verhindern falls beide/mehrere Pfade bestehen würden damit es trotzdem nur einmal eingetragen wird.... Aber du hast natürlich recht.