Problem mit Code

[DeddyH]

Weil die Klammern fehlen.if (Edit2.Text = Memo1.Lines[0]) AND (Edit1.Text = Memo1.Lines[1]) then begin [edit] Oh Gott, da ist aber Einiges im Argen.

Delphi-Quellcode:

If Not fileExists(ExtractFilePath(Application.ExeName) + 'user/'+Edit1.Text+'.txt') Then
  Begin
    Application.MessageBox('Der User wurde nicht gefunden', 'Fehler', MB_ICONSTOP);
  end
else
  Memo1.Lines.LoadFromFile('user/'+Edit1.Text+'.txt');
//end; weg, da kein begin dazu
if (Edit2.Text = Memo1.Lines[0]) AND (Edit1.Text = Memo1.Lines[1]) then //Klammern
  begin  //entscheide Dich für einen Stil, Mischen bringt nichts
    Form1.Show;
  end //Punkt weg
else
   Application.MessageBox('Benutzername / Passwort stimmen nicht überein', 'Fehler', MB_ICONSTOP);
//end; weg, s.o.