Bestimmte Zeile via TStringList löschen

[Flopa]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var td1,td2,td3,td4,td5:textfile; s,s2,s3,fr,abfrage,abfrage2,belub,belub2:string; i,i2,i3,i4,n,n2,azf,azr,num,g1:integer;pro,pro2:real;list,list2:Tstringlist;
begin
num:=0;
n:=0;
azr:=0;
azf:=0;
AssignFile(td1,'C:\Users\Florian\Desktop\Delphidateien\Vokabeln-Auslesen\lateinvok.txt');
Reset(td1);
AssignFile(td2,'C:\Users\Florian\Desktop\Delphidateien\Vokabeln-Auslesen\deutschvok.txt');
reset(td2);
AssignFile(td3,'C:\Users\Florian\Desktop\Delphidateien\Vokabeln-Auslesen\unsicherevoklat.txt');
reset(td3);
AssignFile(td4,'C:\Users\Florian\Desktop\Delphidateien\Vokabeln-Auslesen\unsicherevokdeutsch.txt');
reset(td4);


while not eof(td1) do begin          // Zeilenzählen
ReadLn(td1);
n:=n+1;
end;
reset(td1);
reset(td2);
randomize;
                                                //Showmessage(IntToStr(n));           //Zeilenausgabe
  n2:=StrToInt(inputbox('Anzahl','Anzahl der Durchläufe?','10'));

  for i:=1 to n2 do begin

    for i2:=0 to (random(n-1)+1) do begin
    ReadLn(td1,s);
    ReadLn(td2,fr);
    randomize;
    end;

    Reset(td1);
    Reset(td2);

    abfrage:=inputbox('Vokabelabfrage',s,'');                   //Abfrage


    if (uppercase(fr)=uppercase(abfrage)) then begin                                  //Überprüfung
    showmessage('Richtig!');
    inc(azr);
    end
    else if (uppercase(fr)<>uppercase(abfrage)) then begin
    inc(azf);
    showmessage('Falsch. Es wäre "'+ fr + '" gewesen und nicht '+ abfrage + '.');
    append(td3);
    writeln(td3,s);
    CloseFile(td3);
    append(td4);
    writeln(td4,fr);
    CloseFile(td4);
    end;
    end;                                          //showmessage(IntToStr(random(n-1)+1));       // Letzten Zufallswert ausgeben


                                                  //Showmessage(s);
                                                  //Showmessage(fr);


belub:='Richtig: '+IntToStr(azr) +chr(13)+'Falsch: '+ IntToStr(azf)+chr(13);
belub2:='Endübersicht';

pro:=n2/100;
pro2:=azr/pro;

Showmessage(belub+'Das sind also '+(FloatToStr(pro2))+'% richtig.');
ShowMessage('Jetzt die Falschen wiederholen!');

reset(td3);
while not eof(td3) do begin          // Zeilenzählen
ReadLn(td3);
num:=num+1;
end;
reset(td3);
reset(td4);


List:=TStringList.create;
List.LoadFromFile('C:\Users\Florian\Desktop\Delphidateien\Vokabeln-Auslesen\unsicherevoklat.txt');
List2:=TStringList.create;
List2.LoadFromFile('C:\Users\Florian\Desktop\Delphidateien\Vokabeln-Auslesen\unsicherevokdeutsch.txt');

    for i3:=0 to num-1 do begin
       ReadLn(td3,s2);
       ReadLn(td4,s3);

       abfrage2:=inputbox('Wiederholung',s2,'');

       if (uppercase(abfrage2)=uppercase(s3)) then begin
       showmessage('Richtig!');

      list.delete(1);

       list.savetofile('C:\Users\Florian\Desktop\Delphidateien\Vokabeln-Auslesen\unsicherevoklat.txt');
       list.free;
       end
       else if (uppercase(abfrage2)<>uppercase(s3)) then begin
       showmessage('Falsch!');
       end;

    end;

end;

end.