Hallo, wie kann ich das vereinfachen?
Delphi-Quellcode:
Haus1 := THausA.Create(...);
Haus2 := THausB.Create(...);
Haus3 := THausC.Create(...);
Haus4 := THausD.Create(...);
...
Haus1.Zeichnen;
Haus2.Zeichnen;
Haus3.Zeichnen;
Haus4.Zeichnen;
...
Haus1.TuerAuf;
Haus2.TuerAuf;
Haus3.TuerAuf;
Haus4.TuerAuf;
...
Haus1.TuerZu;
Haus2.TuerZu;
Haus3.TuerZu;
Haus4.TuerZu;
...
Ich würde gerne alle Häuser in ein Array packen und dann über Haus[i].Zeichen; ansprechen. Das funktioniert so allerdings nicht, da Haus1, Haus2, Haus3, ... von verschiedenen Datentypen sind. Weiß jemand, wie ich das hinbekomme?
- Marcel -