1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

//  dyncontr ist ein Control
//    dyncontr: Control;

      controllist := ArrayList.Create;
      for i := 0 to dstestdaten.Tables[0].Rows.Count-1 do
      begin
        if ((i mod 2) =0) then
          dyncontr := Page.LoadControl('Karte.ascx')
        else
          dyncontr := Page.LoadControl('Karte2.ascx');

//  Gibt Übersetzungfehler: unbekannter Bezeichner,
//  dennoch gibt ein dyncontr.ClassName jeweils die zugehörigen
//  Klassen TKarte (Karte.ascx) bzw. TKarte2 (Karte2.ascx) aus.
//  Gut, andererseits gibt laut Deklaration die Funktion
//  LoadControl eigentlich nur eine Basisklasse Control zurück.

//      dyncontr.LinksOben :=
//        dstestdaten.Tables[0].Rows[i].Item[0].ToString;

//  Das funktioniert für den ersten Fall, in dem ich dem Compiler
//  explizit sage, es handle sich um die Klasse TKarte; für TKarte2
//  geht das halt nicht.

        TKarte(dyncontr).LinksOben :=
          dstestdaten.Tables[0].Rows[i].Item[0].ToString;


//  Solche seltsamen Versuche fruchten auch nicht. Ausgangspunkt war,
//  ClassName meldet die korrekte Klasse und man muss dyncontr nur zu
//  seinem Glück überreden.

//      (dyncontr as dyncontr.ClassType).LinksOben :=
//        dstestdaten.Tables[0].Rows[i].Item[0].ToString;

        controllist.Add(dyncontr);
        platzhalter.Controls.Add(Control(controllist.Item[i]));
      end;