Hallo liebe Delphi-Helfer
Habe mal wieder ein kleines Problem, was mir aber sehr auf die Nerven geht
Ich habe eine Funktion:
Code:
function TOpenForm.Liste(const pcFormulartyp: TFormulartyp; var pcObjekt: TObjekt): Boolean;
Genutzt wird die Funktion wie folgt:
Code:
procedure TForm.ActionExecute(Sender: TObject);
var
cObjekt: TArtikelgroesse;
begin
if not OpenForm.Liste(ftArtikelgroesse, TObjekt(cObjekt)) then
Exit;
...
Artikelgroesse und viele viele andere sind von TObjekt abgeleitet.
Code:
type
TArtikelgroesse = class(TObjekt)
Statt bei jedem Aufruf "TObjekt(cObjekt)" zu nutzen um es dann im Endformular wieder mit "TArtikelgroesse(cObjekt)" umzuwandeln,
würde ich gerne einfach nur "cObjekt" übergeben.
Bei "ActionExecute(Sender: TObject)" kann der Sender ja auch jedes Objekt sein, was daraus abgeleitet wurde...
OpenForm selbst gibt das Objekt nur an das entsprechende Formular weiter und tut selbst nichts damit.
Hat jemand Rat?
