Auf den Wert einer Proc./Funkt. einer anderen Unit zugreifen

**Aike**

Hallöchen,

ich kenne mich mit dem Zugriff auf andere Units nur sehr mangelhaft aus, deshalb hab ich auch nur spartanisch in diesem Forum suchen können.

Es geht mir ganz einfach darum, dass ich aus meiner Haupt-Unit auf eine andere zugreifen möchte, dort einen Wert ermittle und den an die Haupt-Unit zurückgeben will. Das gegenseitige Einbinden in die uses-Klausel geht ja leider nicht. Ich hab das immer irgendwie umgangen, aber das geht mir jetzt auf den Keks.

Ich hab's mal so probiert:
Haupt-Unit; will Wert aus zweiter Unit benutzen:

markieren

Delphi-Quellcode:

			public

  function SetWert:boolean; virtual; abstract;

procedure Form2.Button1OnClick(Sender: TObject);

begin

  if SetWert then

    showmessage('');

end;

Zweite Unit, in der der Code ausgeführt werden soll:

markieren

Delphi-Quellcode:

			public

  function SetWert:boolean; virtual; //Ja, ich hab mit den drei Begriffen um mich geschmissen ;-)

function Form1.SetWert:boolean;

begin

  result:=True; //Nur so zum Testen

end;

Leider kommt dann in der Haupt-Unit beim Button-Klick die Fehlermeldung "Abstakter Fehler". Daraus schließe ich, dass was mit der Deklaration nicht stimmt, aber ich komme nicht drauf, was ich da anders schreiben muss :-/ Vielleicht muss auch 'ne get-Methode her, aber ...

Ich hoffe, ihr könnt mir da mal wieder weiterhelfen!

Liebe Grüße
Aike

Auf den Wert einer Proc./Funkt. einer anderen Unit zugreifen

Auf den Wert einer Proc./Funkt. einer anderen Unit zugreifen

Forumregeln