Forum: Sonstige Fragen zu Delphi
by DeddyH,
26. Jan 2012
Nunja, allen Klassen ist wohl mindestens gemein, dass sie sich zeichnen sollen, oder? Dann würde ich in der Basisklasse schon einmal die Methode "zeichne" deklarieren, wahrscheinlich abstrakt, da sich jedes Objekt ja etwas anders zeichnet. Damit steht Dir in den abgeleiteten Klassen automatisch diese Methode zur Verfügung, muss aber ggf. noch überschrieben werden.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
26. Jan 2012
Aber Du hast es noch nicht ins Array verfrachtet. An Deiner Stelle würde ich mir dafür einfach eine Methode schreiben.
procedure TForm1.AddToArray(GeoObject: Tgeo_objects);
begin
SetLength(Tgeo_objectsArray, Length(Tgeo_objectsArray) + 1);
Tgeo_objectsArray := GeoObject;
end;
Übrigens sieht Deine Klassenhierarchie nicht sonderlich aus, ein bisschen Vererbung könnte nicht schaden ;)
Forum: Sonstige Fragen zu Delphi
by DeddyH,
26. Jan 2012
Du erzeugst das entsprechende Objekt und fügst es dann Deinem Array hinzu, nachdem Du dessen Größe entsprechend dimensioniert hast (SetLength).