Delphi Frage zu "else" - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

Frage zu "else"

Ein Thema von BackYard · begonnen am 3. Jan 2006 · letzter Beitrag vom 3. Jan 2006

Vorheriger Beitrag

Nächster Beitrag

BackYard

Registriert seit: 10. Nov 2005
35 Beiträge

Frage zu "else"

3. Jan 2006, 08:27

markieren

Delphi-Quellcode:

			procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if Table1.Locate('Username', Edit1.Text, [loCaseInsensitive]) = true then

if Table1.Locate('Password', Edit2.Text, [loCaseInsensitive]) = true then

MessageDlg('OK. Login succesfully!', mtInformation,[mbOk], 0)

Form2.ShowModal

else

MessageDlg('Error. Please Enter .....', mtError,[mbOk], 0)

end;