[FreeUser]

Еще одна задача образовалась.
В memo1 помещен текст. Есть число К. Оно задается пользователем или рандомом. Требуется, Пробежаться по тексту в Мемо до символа!(включая запятые, пробелы и т.д.) до символа К, посмотреть, где ближайшая к нему "."(точка). Вырезать от начала текста до этой точки весь текст и сохранить его в Файл txt. И так весь текст.

Кто сможет помочь? Я запутался в циклах и их вложенности при подсчете символов

Код:

k:=0; //счетчик символов
For i:=0 to Memo1.Lines.Count-1 do
for j:=0 to length(Memo1.Lines.Count[i]) do begin
inc(k);

Вроде по смыслу должно быть так, далее я так понимаю надо уже через While и с этим проблема. Помогите пожалуйста с задачкой. Заранее Спасибо!

p.s. Забыл сказать. Что в txt я придумал сохранять в том же цикле но в мемо2. Т.е. этот кусок в мемо2 а там SaveToFile. Так вроде должно работать.