Dopisywanie tekstu w stringu.

Witam, mam zmienną zmtext:string, która jest pobierana z Memo.
Da się zrobić tak, aby podczas zapisywania tej zmiennej do pliku( writeln(TF,zmtext); ) po każdej linii było dopisywane
?

Przecież Memo ma własną metodę Lines.SaveToFile, dlaczego by z niej nie skorzystać? A jak chcesz dodać do każdej linijki przed zapisem
czy inny tekst, to wykonaj pętlę po Memo.Lines[ZmiennaPętli] i do każdej dodaj to co chcesz, a następnie zapisz. Jeżeli nie chcesz tego robić na tekstcie Memo to utwórz TStringList, następnie w pętli dodawaj do ów TStringList każdą linijkę z Memo przez Add(Tekst); a po niej dodawaj żądany tekst czyli na przykład
. Następnie zapisz TStringList przez SaveToFile i zwolnij obiekt TStringList przez Free. Tyle. A temat przenoszę do Newbie, bo tam jest miejsce postów z pytaniami o podstawy.

Albo w całym Memo zamienić wszystkie znaki końca wiersza na '
' i następnie zapisać do pliku.

  WriteLn(TF,StringReplace(Memo.Text,#13#10,'<br>',[rfReplaceAll]));