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"