Thema: Delphi Problem mit Code

Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#8

Re: Problem mit Code

  Alt 20. Jun 2009, 10:04
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;
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat