Moin,
ich dacht, ich fang jetzt auch mal an, selber einfache Dinge zu schreiben.
Ich will so was wie einen Passwortschutz machen. Jedesmal wenn das Passwort richtig
eingegeben ist, soll ein 2. Formular geöffnet werden, das Hauptprogramm. Aber es
hakt schon, ich weiss nur einfach nicht wo.
Code:
var
Form1: TForm1;
Zensur: Integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
Zensur := StrtoInt (Edit1.text);
if Zensur = 1 then Form2.ShowModal;
label1.caption := 'Passwort richtig';
except
label1.caption := 'Passwort falsch';
end;
end;
end.