Thema: Delphi Problem mit Code

Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#3

Re: Problem mit Code

  Alt 19. Jun 2009, 18:52
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.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat