Einzelnen Beitrag anzeigen

gee21

Registriert seit: 3. Jan 2013
199 Beiträge
 
Delphi 10.4 Sydney
 
#1

2 for Schleifen

  Alt 5. Jul 2013, 10:26
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...?

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;
Robert
  Mit Zitat antworten Zitat