@himitsu: Hab wohl grad nen Knoten im Hirn: Musst du nicht, wenn man Zeilen löscht von hinten anfangen um nicht am Ende "über das Ziel hinaus zu schießen?
Ich wäre daher eher bei:
Delphi-Quellcode:
SL := TStringList.Create;
SL.LoadFromFile(...);
for i := SL.Count - 2 downto 0 do
// if Odd(SL[i + 1].CountChar('"')) then begin // Delphi 10.x
if Odd(CountChar('"', SL[i + 1])) then begin // irgendwo eine Funktion suchen, die sowas macht
SL[i] := SL[i] + 'dasTennzeichen' + SL[i + 1];
SL.Delete(i + 1);
end;
SL.SaveToFile(...);
SL.Free;