Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
Re: Problem mit Code
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
|