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

И так, что имеем на момент написания поста. А имеею я код модератора соседнего форума lmikle (За что ему большое спасибо!)
Такого вида:
Получение строки для работы:


Разбивка



Но данный код у меня не работает. Вернее работает, но криво, что-то делит и как-то сохраняет, но явно не так как надо.

По условию задачи надо чтобы условный текст в Мемо1 был распилен на куски размером К символов и в случаях, когда это К выпадает не на конец предложения, чтобы не рвать текст на полуслове кусками и не уродовать тем самым, надо добраться до первой "."(точки) Ну чтобы предложение было законченным. Ведь предложения точкой заканчиваются. Вот такое задание. Случаи, когда предложение заканчивается !, ? или иными знаками не рассматриваются.

Буду благодарен тем, кто пояснит и поможет как это все реализовать, я не спец в программировании пока. Заранее всех благодарю за помощь и советы.

Это сообщение отредактировал(а) Canada - 10.2.2009, 00:07

Вообще не понял зачем функция GetStr, если все, что она делает, можно взять из AMemo.Text
 
А у меня код работает именно так, как описано. Есть неточности в коде, вроди как не AMemo.Count, а AMemo.Lines.Count и переменные не обьявлены, но это не критично.

Берем кусок К, смотрим дальше до точки и разделяем. Что не получается, конкретно?

Он у меня все время ко всем кускам добавляет "первый кусок". Т.е. Взяла программа текст, в первый проход выделила кусок и сохранила его. Пошел второй проход и к правильно выделенному, она лепит еще и первый. К 3-ему она лепит первые 2, к 4-му первые 3. А это ведь не правильно.

Это сообщение отредактировал(а) Canada - 10.2.2009, 14:32

Вах, нащОль рэшениэ!
Там мемо2 надо чистить каждый раз в том же цикле..Какой йа тупой бил..
Всем спасибо!

А тему закрыть религия не позволяет?