Problem mit Code

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