Hallo!
Ähem, was soll denn nun passieren? Bzw. was passiert denn stattdessen?
Das ganze ist ein bisschen "per Glaskugel", aber müsste es nicht "Self" anstelle von "Form3" heissen? Evtl. generierst du ja neue Instanzen von TSicherheit...
Zitat:
TModell.testeschluessel(Edit1.Text); //soll die funktion ausführen
Das passiert wahrscheinlich auch, du hast nur keine Ausgabe definiert.
Zitat:
if TModell.testeschluessel(Edit1.Text) then
ShowMessage('Richtig!')
else
ShowMessage('Falsch!') ; //soll die funktion ausführen
Du benutzt einfach nur die Klasse, eigentlich müsste TModell auch noch instantiiert werden, also
Delphi-Quellcode:
var Modell:TModell
begin
Modell:=TModell.Create(NIL);
try
if TModell.testeschluessel(Edit1.Text) then
ShowMessage('Richtig!')
else
ShowMessage('Falsch!')
finally
Modell.Free;
end;
end;
Cu,
Udontknow