unit Unit3;
//Sicherheit
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TSicherheit =
class(TForm)
function getSchluessel():integer ;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form3: TSicherheit;
implementation
function TSicherheit.getSchluessel():integer;
begin
Result:=5;
//Code soll jetzt einfach 5 sein
end;
end.
unit Unit2;
//modell
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Unit3;
type
TModell =
class(TForm)
function testeschluessel(Sender :TEdit):boolean;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
implementation
function TModell.testeschluessel(Sender :TEdit):boolean;
begin
if Form3.getschluessel() = (Strtoint(TEdit.Text))
//soll sich den code holen und in mit einem Editfeld vergleichen
then Result:=true
Else Result:=false;
end;
end.
unit Unit1;
//GUI
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Unit2;
type
TForm1 =
class(TForm)
Panel1: TPanel;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
TModell.testeschluessel(Edit1.Text);
//soll die funktion ausführen
end;
end.