Hallo leute, da ihr mir beim letzten mal so gut geholfen habt, würde ich euch nochmal bitten euch diesen Quellcode anzusehen und mir da ein bisschen zu helfen.
danke schon mal im voraus
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
PasswortList, UsernameList : TStringList;
i, n, l, j: integer;
begin
PasswortList:= TStringList.Create;
PasswortList.LoadFromFile('D:\Delphi\De2\Formular2.11\Login.txt');
for j := 0 to length(PasswortList[j]) - 1 do begin
if form1.Edit2.Text = Copy(PasswortList[j], n, l) then
end;
UsernameList:= TStringList.Create;
UsernameList.LoadFromFile('D:\Delphi\De2\Formular2.11\Login.txt');
for I := 0 to length(UsernameList[i]) - 1 do begin
if form1.Edit1.Text = Copy(UsernameList[i], n, l) then
end;
ShowMessage('Erfolgreich eingelogt');
if form1.Edit1.Text = Copy(UsernameList[i], n, l) then begin
if form1.Edit2.Text = Copy(PasswortList[j], n, l) then
ShowMessage('Leider falsch. Versuch es bitte nochmal.');
zaehler:= zaehler + 1;
end;
if zaehler >= 3 then begin
Form1.Close;
end;
UsernameList.Free;
PasswortList.Free;
loginzeit:= TimeToStr(now);
[edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit]