Anzahl Formulare / Dynamisch Klassen ansprechen?

[DeddyH]

Abgesehen davon verstehe ich nicht, wieso 2 Schleifen nacheinander abgearbeitet werden.

Zitat:

Delphi-Quellcode:

...
   for i := 0 to screen.Forms[j].ComponentCount-1 do //erste Schleife
   begin
    screen.Forms[j].Components[i].Tag := ((j+1) * 10000) + i;
   end;

   for i := 0 to screen.Forms[j].ComponentCount-1 do //zweite Schleife
   begin

    comp := screen.Forms[j].Components[i];
...