Einzelnen Beitrag anzeigen

Mr. No

Registriert seit: 16. Feb 2005
36 Beiträge
 
#1

function mit pointer als Rückgabewert - Teil 2

  Alt 20. Feb 2005, 15:02
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

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?
  Mit Zitat antworten Zitat