vergleich mit einer txt datei

[p80286]

Zitat von Nero281084:

Delphi-Quellcode:

FileList:= TStringList.Create;
   FileList.LoadFromFile('D:\Delphi\De2\Formular2.11\Login.txt');
   for j := 0 to TStringList.Count - 1 do begin
       if form1.Edit2.Text = FileList[j] then begin
           if form1.Edit1.Text = FileList[i] then
           ShowMessage('Erfolgreich eingelogt');
       end else
       ShowMessage('Leider falsch. Versuch es bitte nochmal.');
       zaehler:= zaehler + 1;
       if zaehler >= 3 then begin
           Form1.Close;
       end;
   end;
   FileList.Free;

so ist hübscher.

Delphi-Quellcode:

for j := 0 to TStringList.Count - 1 
>>>>>
for j := 0 to Filelist.Count - 1

Warum jetzt auf einmal Filelist???

Gruß
K-H