Delphi-Quellcode:
procedure TForm6.Button1Click(Sender: TObject);
begin
if (Edit1.Text='Benutzername') and (Edit2.Text='Passwort') then
begin
Form1.show;
Form6.Hide;
end
else
Application.Terminate;
end;
Ordentliche Code-Formatierung ist schon was feines!
Es ist zu wahr um schön zu sein...