Frage zu "else"

[BackYard]

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;

Hi, kann mir wer sagen, warum da kommt: Semikolon oder Operator fehlt?

ohne das Form2.ShowMdal klappt alles wunderbar.

Gruß bY

[Sharky]

Hai BackYard,

da fehlt ein begin - end nach der zweiten If-Abfrage

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Table1.Locate('Username', Edit1.Text, [loCaseInsensitive]) = true then
  begin
    if Table1.Locate('Password', Edit2.Text, [loCaseInsensitive]) = true then
    begin
      MessageDlg('OK. Login succesfully!', mtInformation,[mbOk], 0);
      Form2.ShowModal;
    end
    else
    begin
      MessageDlg('Error. Please Enter .....', mtError,[mbOk], 0);
    end;
  end;
end;

Ich selber schreibe grundsätzlich Begin-End Blöcke. Selbst wenn dazwichen nur eine Codezeile steht. Ich finde das übersichtilicher und es hilft fehler zu vermeiden.

Edit: Nach genauem lesen noch zwei ; eingefügt

[BackYard]

okay danke!
is eigentlich ne gute idee!

gruß bY

[leddl]

Das läuft so trotzdem nicht, Sharky
Zumindest die Zeile
MessageDlg('OK. Login succesfully!', mtInformation,[mbOk], 0) benötigt ein abschließendes Semikolon. Besser wäre es, wenn die darauf folgende Zeile auch eine bekommen würde, auch wenn das End dahinter es nicht verlangt.

@BackYard:
Der Fehler kommt daher, daß Delphi in der Zeile vor einem End nicht zwingend ein Semikolon als Zeilenabschluß verlangt und es vor Else sogar verbietet. Du hast in der Zeile mit dem MessageDlg keines gemacht, daher kommt Delphi mit der nächsten Zeile durcheinander und meckert. Entfernst du sie, stimmt wieder alles, da vor else kein Semikolon stehen darf.

[BackYard]

ah ok :>
dankeschön