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