Bestimmte Zeile via TStringList löschen

[Flopa]

Vielen Dank schonmal, nur leider kommt immer noch eine Fehlermeldung

Delphi-Quellcode:

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

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

       if (uppercase(abfrage2)=uppercase(s3)) then begin
       showmessage('Richtig!');
       List.Delete( List.IndexOF(s3) );
       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;

[Lemmy]

Zitat von Flopa:

Vielen Dank schonmal, nur leider kommt immer noch eine Fehlermeldung

Delphi-Quellcode:

    
       List.Delete( List.IndexOF(s3) );

SChau mal in der Hilfe nach was bei TStringList.IndexOf zurückgeliefert wird, wenn der String nicht in der Liste gefunden werden kann...

GRüße

[Flopa]

Es wird -1 zurückgeliefert. Aber warum findet er s3 nicht in der Datei, die Vokabel steht doch schließlich in ihr

[Lemmy]

hm.. du meinst die steht drin, so wie beim anderen Problem oben, wo niemand anders die Datei offen hat?

Debug mal zu der Stelle an der der Fehler auftritt. SChau dann nach was in List.Text drin steht. Aber du kannst von einem ausgehen: Wenn da -1 zurück kommt, dann steht der String nicht in der Liste....