Bestimmte Zeile via TStringList löschen

[Flopa]

Hallo Leute,
ich bin ein kompletter Anfänger und wollte mir ein Programm zum Abfragen von Vokabeln abfragen.

Das klappt alles auch schon soweit, nur möchte ich, dass eine Vokabel aus einer .txt-Datei gelöscht wird, wenn sie richtig beantwortet wurde.

Ich sitze heute schon den ganzen Tag dran und habe gegooglet, aber mit List.Delete(1) klappt das irgendwie nicht.

Delphi-Quellcode:

List:=TStringList.create;
List.LoadFromFile('C:\Users\Florian\Desktop\Delphidateien\Vokabeln-Auslesen\unsicherevoklat.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(i3);
       end;

Jedoch bleibt die Zeile immer erhalten und wird einfach nicht gelöscht.
Danke schon mal für eure Hilfe.
Liebe Grüße,

Flo

[Hansa]

Schon mal überlegt, wo die Stelle zum Abspeichern ist ?

[Flopa]

Bei folgendem Quelltext kommt folgende Meldung:

Delphi-Quellcode:

List:=TStringList.create;
List.LoadFromFile('C:\Users\Florian\Desktop\Delphidateien\Vokabeln-Auslesen\unsicherevoklat.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(i3);
        list.savetofile('C:\Users\Florian\Desktop\Delphidateien\Vokabeln-Auslesen\unsicherevoklat.txt');
       end;

Jedoch ist die Datei nicht mehr geöffnet.

[Hansa]

Aha, dank Nachfrage kommt die betreffende fehlerhafte Zeile. Wird wohl wieder endlos-Thread. Welches Programm könnte denn wohl die Datei im Zgriff haben ? Delphi selber vielleicht ?

[Flopa]

Und wie löse ich das Problem dann?

Mit list.free?

Grüße,

Flo

[Luckie]

Also wenn man ein Objekt nicht mehr braucht, dann sollte man es schon freigeben.