AS = den Typ konvertieren und wenn's nicht geht, dann knallt es ganz laut
IS = auf diesen Typ prüfen (und auf dessen Nachkommen)
Wozu unsichere Prüfunen auf "Tag", wenn man auch gleich den Typen sicher prüfen kann?
Und dennoch fehlt so Einiges, denn ich hatte nicht umsonst nach den Aufrufen gefragt.
Also wie und wo diese Prozeduren verwendet werden.
Aber auch ansonsten ist da so Einiges nicht wirklich gut.
Zitat:
Delphi-Quellcode:
var
Label_Create: TLabel;
Image_Create: TImage;
Progressbar_Create: TProgressBar;
Button_Create: TButton;
gehört eindeutig lokal in die entsprechenden Prozeduren.
Die Objektliste gehört in diese
Unit,
wobei diese Liste und die Prozeduren besser in eine Klasse reingehören sollte.
OOP ist eine tolle sache und hat viele Vorteile.
Der direkte Zugriff auf Form1 ist nicht schön,
stattdessen eher ein Property in der
OOP-Klasse, wo die Form an das Objekt übergeben wird, anstatt es sich das selber holt.
Statt dem Zugriff auf die Form, würde ich diese
OOP-Klasse z.B. von TPanel, TScrollBox oder Dergleichen abgeleitet werden und die behandelt dann alles (ScrollBar, die ganzen Edits und weitere Controls) ausschließlich in sich selber.
Und schwups, schon hast du ein eigenständiges System, welches man wiederverwenden kann
und außerdem ist alles zusammen an einem Ort, was eigentlich auch zusammengehören würde.