Eigene Objekte in Funktionen

[Jakane]

Hallo liebe Delphi-Helfer :)

Habe mal wieder ein kleines Problem, was mir aber sehr auf die Nerven geht :D

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? :lol:

[mkinzler]

Der Cast

Delphi-Quellcode:

TObjekt(cObjekt)

ist nicht notwendig.

[Jakane]

Wenn dem so wäre, hätt ich nichts geschrieben.

Wenn ich es weg lasse, bekomme ich eine Fehlermeldung:
"[dcc32 Fehler] ArtikelartBearbeitenForm.pas(64): E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen"

[himitsu]

Zitat:

OpenForm selbst gibt das Objekt nur an das entsprechende Formular weiter und tut selbst nichts damit.

Warum dann VAR, wenn es nur durchgereicht aber nicht geändert wird?

Bei VAR muß ein Wert rein, also mußt du cObjekt im ActionExecute auch initialisieren.

Wenn diese Funktion etwas sucht und dann zurück gibt, dann wäre OUT vielleicht eher deine Wahl?

Zitat:

Zitat von mkinzler (Beitrag 1400161)

Der Cast

Delphi-Quellcode:

TObjekt(cObjekt)

ist nicht notwendig.

Bei einem IN-Parameter stimmt das, aber bei einem VAR/OUT-Parameter?
Delphi stellt eigentlich sicher, dass immer mindestens der definierte Typ drin ist, aber hier kann nur TObjekt sichergestellt werden. Darum würde ich vermuten, dass die Variable auch nur genau dem TObjekt entsprechen darf.

Delphi-Quellcode:

function TOpenForm.Liste(const pcFormulartyp: TFormulartyp; var pcObjekt): Boolean;

In der Funktion mußt du dann selber böse casten,
aber von extern darfst du ALLES rein geben.

Wegen dem ALLES kommt war Böses heraus, wenn jemand kein Objekt da rein gibt.

Ich würde eher zu Generics raten.

Delphi-Quellcode:

function TOpenForm.Liste<T>(const pcFormulartyp: TFormulartyp; out pcObjekt: T): Boolean;

Delphi-Quellcode:

function TOpenForm.Liste<T: object>(const pcFormulartyp: TFormulartyp; out pcObjekt: T): Boolean;

[Caps]

Hm, in den Beiträgen steht häufig "TObjekt".
Muss es nicht "TObject" heißen?

lg Caps