function mit pointer als Rückgabewert - Teil 2

**Mr. No**

Habe leider immer noch ein Problem mit der Deklaration

Zitat:

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;

funktioniert nicht, da ich in der ersten Zeile einen "überkreuzenden Bezug zweier Units habe"

wenn ich stattdessen schreibe

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TMainForm = class(TForm)

  ...

private

  ...

public

  function GetMeinObjekt: TmeinObjekt;

  ...

end;

uses meinObjekt, ...

var

  MyObject: TmeinObjekt;

  function TMainForm.GetMeinObjekt: TmeinObjekt;

begin

  Result := MyObject;

end;

bekomme ich die Fehlermeldung:
"Deklaration von GetMeinObjekt unterscheidet sich von vorheriger Deklaration"

es scheint, als müsste ich uses meinObjekt, ... vor der Funktionsdeklaration von "GetMeinObjekt" deklarieren. - Aber das funktioniert ja nicht.

?? - Totale Verwirrung - ??

Was kann man da machen?

function mit pointer als Rückgabewert - Teil 2

function mit pointer als Rückgabewert - Teil 2

Forumregeln