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 ? :mrgreen:

[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.

[Flopa]

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.free;
        list.savetofile('C:\Users\Florian\Desktop\Delphidateien\Vokabeln-Auslesen\unsicherevoklat.txt');
       end;

Liefert folgende Fehlermeldung:

[Luckie]

Bitte nur mal für zwei Sekunden nachdenken. Du gibst ein Objekt frei und dann willst du es noch nutzen. Kann das funktionieren?

[Flopa]

Klingt logisch :P
Aber wie soll ich etwas in die Textdatei speichern, ohne es vorher freigegeben zu haben? Dann kommt folgende Fehlermeldung :P

[Luckie]

Was ist denn td3 und td4? Zeig doch mal den ganzen Code den du da hast. Mit dem kleinen Ausschnitt kann man nicht viel anfangen.