Копирование строки до символа

[Zero2525]

В общем вот в чем проблемка, я делал ICQ-бота, он работал и копировал строку из файла с анекдотами, но он копировал именно строчку! То есть он проверял если пользователь прислал слово Анекдот, то генерировалось случайное число от 1 до количества строк в файле с анекдотами, и после чего копировалась строка под с генерированным номером и отсылалась пользователю.
То есть анекдот выглядел так:
Суд. Женщина обвиняется в убийстве супруга.-- Значит, вы подсыпали яд в суп и потчевали мужа? Как этопроизошло?-- Он сел за стол и спокойно поужинал.И вы не почувствовали угрызений совести?Почувствовала... Когда он попросил добавки.

То есть все реплики в строчку! А теперь я делаю так, что в файле будут анекдоты храниться в таком виде:

Суд. Женщина обвиняется в убийстве супруга.
- Значит, вы подсыпали яд в суп и потчевали мужа? Как это произошло?
- Он сел за стол и спокойно поужинал.
-И вы не почувствовали угрызений совести?
-Почувствовала... Когда он попросил добавки. ;

Вот, и в конце каждого символ. Вот сам вопрос состоит в том, как мне Теперь генерировать случайную цифру строки? Теперь то их несколько! И как сделать чтобы копировалась именно до этого знака???

как я пробовал, мне подсказали что нужно копать в сторону Delimiter. Я создал TStringList и гружу туда все анекдоты, но так и не разобрался... Сумел сделать чтобы копировалось до знака, а вот генерировать случайную цифру не получается. Это же массив, который делиться на части, как я понял. Если знаете подскажите, или если видите способ по проще

[dmitriegorovih]

Я думаю как вариант использование ini там будет с этим проще всего

[astecenko]

а если отводить под каждый анекдот ну допустим 10 строк (думаю основная масса анекдотов впишется, а те что длинее - можно всё равно в 1 строку несоклько запихать дабы получить те самые 10 строк) в файле, а при отправке клиенту отбрасывать пустые?

[astecenko]

или еще вариант, с делиметерами :-), храните в файле анекдоты в виде 1 строка - 1 анекдот, а внутри анекдота отделяйте строки допустим с помощью символа "|", а при отправке клиенту просто делайте:

s := stringReplace(s,'|',#13#10,[rfReplaceAll]);

в примере в s - ваша строка

[Serge_Bliznykov]

Zero2525

сходите в тему
Cлучайный массив текста из txt

второй пост (с) spamer - полное готовое рабочее решение...
(правда, возможны небольшие добработки для оптимизации, но это уже отдельный разговор)