Problem mit Code

[d3zemb3r]

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;

        if Edit2.Text = Memo1.Lines[0] AND Edit1.Text = Memo1.Lines[1] then begin
               Form1.Show;
        end.
        else
               Application.MessageBox('Benutzername / Passwort stimmen nicht überein', 'Fehler', MB_ICONSTOP);
        end;

hallo,

bei diesem code wird mir beim 2. If angezeigt:

dekleration erwartet aber if gefunden.


Warum geht das nicht

[mkinzler]

Lass mal das end in Zeile 7 weg.

[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.

[mkinzler]

Zitat von DeddyH:

Weil die Klammern fehlen.if (Edit2.Text = Memo1.Lines[0]) AND (Edit1.Text = Memo1.Lines[1]) then begin

Das wäre dann der nächste Fehler ( nach Entfernen des aktuellen).

[DeddyH]

Siehe mein Edit

[d3zemb3r]

danke, hat geklappt.

[uwewo]

Das eigentliche Problem war der "." nach dem end

[Sharky]

Hai d3zemb3r,

ich habe den Code mal noch etwas überarbeitet. Edits, labels und so sollten immer einen "sprechenden Namen" haben. So weisst Du immer was für was da ist.

Delphi-Quellcode:

procedure Tmemo.btn_TestClick(Sender: TObject);
var
  filename: string;
  username: string;
  password: string;
  sl: TStringList;
begin
  username := edt_username.Text;
  password := edt_password.Text;
  filename := ExtractFilePath(Application.ExeName) + 'user/' + username + '.txt';

  if not fileExists(filename) then
  begin
    Application.MessageBox('Der User wurde nicht gefunden', 'Fehler', MB_ICONSTOP);
  end
  else
  begin
    sl := TStringList.Create;
    try
      sl.LoadFromFile(filename);
      if (sl.Count = 2) then
      begin
        if (password = sl.Strings[0]) and (username = sl.strings[1]) then
        begin
          Form1.Show;
        end
        else
        begin
          Application.MessageBox('Benutzername / Passwort stimmen nicht überein',
            'Fehler', MB_ICONSTOP);
        end;
      end;
    finally
      sl.Free;
    end;
  end;
end;