function mit pointer als Rückgabewert

[Mr. No]

hi,
ich habe in einer unit eine Instanz eines Objektes und möchte eine Zugriffsfunktion implementieren, die es erlaubt, von außen auf diese Instanz zuzugreifen. Ich möchte also eine Funktion schreiben, die einen Pointer auf dieses Objekt zurückgibt.

Leider scheitere ich schon an der Funktionsdeklaration.

Delphi-Quellcode:

uses meinObjekt, ...
type
  TMainForm = class(TForm)
  ...
private
  ...
public
  function GetMeinObjekt: TmeinObjekt;
  ...
end;

var
  MyObject: TmeinObjekt;

  function TMainForm.GetMeinObjekt: TmeinObjekt;
begin
  Result := MyObject;
end;

Das funktioniert soweit. Aber wie kann ich den Code jetzt derart modifizieren, dass er mir statt einer Kopie des Objektes einen Pointer auf das Objekt zurückgibt?

Herzlichen Dank im Vorraus!!

Gruß
Mr. No

[Phoenix]

Hrm?

Du bekommst doch nur nen Pointer zurück. Eine Kopie müsstest Du selber manuell erzeugen (TMeinObject.Create... und dann dem neuen Objekt auch noch den gleichen Zustand verpassen wie das original).

[Phoenix]

Nachtrag: Probier es einfach mal aus:

1.) Das Objekt erzeugen
2.) über GetMeinObject ein .Free ausführen
und dann
3.) normal auf die Variable zugreifen.

Du wirst sehen, das Du eine AccessViolation bekommst, da Du nicht eine Kopie sondern tatsächlich das richtige Objekt zerstört hast.

[Mr. No]

oh - versteh ich das richtig, dass im Gegensatz zu C++ in Delphi call-by-reference und nicht call-by-value vorherschend ist?
das würde die Sache natürlich erheblich vereinfachen.

[Phoenix]

Jupp. Sieht so aus

[Mr. No]

hm - kannst du mir dann noch sagen, wie ich auf das Objekt von außen Zugriff bekomme?

TMainForm(FOwner).GetMeinObjekt.eineMethode; funktioniert nämlich nicht - der Parser meint, es sei keine solche Methode vorhanden

[Mr. No]

oder gibt es eine Möglichkeit das Objekt gleich public zu definieren, so dass ich es von außen aufrufen kann?
etwa so:
TMainForm(FOwner).MyObject.eineMethode;

[mirage228]

Hi,

das geht z.B. so

Delphi-Quellcode:

uses meinObjekt, ... 
type 
  TMainForm = class(TForm) 
  ... 
private 
  FMyObject: TMeinObjekt; 
public 
  property MyObject: TMeinObjekt read FMyObject;
end;

mfG
mirage228

[Phoenix]

Zitat von Mr. No:

hm - kannst du mir dann noch sagen, wie ich auf das Objekt von außen Zugriff bekomme?

TMainForm(FOwner).GetMeinObjekt.eineMethode; funktioniert nämlich nicht - der Parser meint, es sei keine solche Methode vorhanden

Seltsam.
Wenn eineMethode als Public deklariert wurde dann sollte das gehen.
Notfalls mit einem Typecast:
 (TMainForm(FOwner).GetMeinObjekt as TMeinObjekt).eineMethode; Aber eigentlich sollte der nicht notwendig sein.

[Phoenix]

Zitat von mirage228:

  property MyObject: TMeinObjekt read FMyObject;

Uhh.
Dann aber gar nie nicht aus dem Property direkt auf die Variable zugreifen, sondern bitteschön immer über eine Get-Methode. Schliesslich kann es sein, das FMyObject gar nicht instanziert ist und dann knallt es ganz übel.