Forum: Klatsch und Tratsch
by Moombas,
5. Mai 2021
@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:
SL := TStringList.Create;
SL.LoadFromFile(...);
for i := SL.Count - 2 downto 0 do
// if Odd(SL.CountChar('"')) then begin // Delphi 10.x
if Odd(CountChar('"', SL)) then begin // irgendwo eine Funktion...
Forum: Klatsch und Tratsch
by Moombas,
5. Mai 2021
Ganz plump:
- Datei einlesen
- Zeile für Zeile durchgehen (von hinten nach vorne)
- Die " in der Zeile zählen
- Wenn die Anzahl an " ungerade ist, die letzte Zeile hinten an die aktuelle anfügen und löschen
- Datei neu speichern.