|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: FREE PASCAL- habe ein Problem-Passworrt Programm
3. Dez 2010, 19:54
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.text ='passwort123' then
begin
Form1.Hide;
Form2.Show;
end
else if Edit.Text ='passwort1234' then
begin
Form1.Hide;
Form3.Show;
end;
end;
wobei Du wahrscheinlich (ich kenne den Rest Deines Codes nicht) Form1.Hide; auch einfach vorher einmalig machen kannst.
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|