Function mehrmals ausführen (For each?)

[DarkItachi]

Viele sagen: Probieren geht über studieren:

Delphi-Quellcode:

if Listview1.SelCount> 1 then
begin
  for i := 0 to listview1.Items.Count - 1 do
   begin
   createform3:= tform3.create(self);
    if listview1.Items[i].Selected then
     begin
      createform3.Show;
      createform3.Caption:= listview1.Items[i].SubItems[1]
    end;
  end;
end;

Funktioniert fabelhaft! Danke!



Edit: Luckie... Ich finde es voll Wahnsinn wie man aus dem Kopf so ein Code zaubert...
Wenn man sowas kann, dann ist man schon gut!^^