Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Взять кусок текста из файла

Автор: HoZeY 20.6.2010, 18:35

Здравствуйте! Есть файл ТХТ с текстом.
Мне нужно взять случайный кусок текста на 2000 символов и вставить его в МЕМО.
Как это сделать? smile

Спасибо

Автор: DarkProg 20.6.2010, 18:45

Код


memo1.lines.loadfromfile('c:\file1.txt')

потом просто удаляете ненужные строки

Автор: HoZeY 20.6.2010, 18:51

Цитата(DarkProg @ 20.6.2010, 18:45)

Код


memo1.lines.loadfromfile('c:\file1.txt')

потом просто удаляете ненужные строки

Как загрузить весь Текст из файла я в курсе.

Мне нужен случайный кусок текста который будет равен 2000 символам

Автор: Данкинг 20.6.2010, 19:02

Код


s:=copy(memo1.Text,1,2000);

Автор: chip_and_dayl 20.6.2010, 20:46

Данкинг
Только вместо единички используем ф-цию Random smile

Автор: HoZeY 20.6.2010, 21:02

Если можно с примером. Файл лежит на "E:\text.txt"

Спс

голова вобще не варит smile

Автор: chip_and_dayl 20.6.2010, 21:10

На сколько я я понял грузить текст в мемо мы уже умеем. Тады пишем следующее, после загрузки

Код


memo1.Text:=copy(memo1.Text,Random,2000);

Добавлено через 1 минуту и 7 секунд
А еще лучше в Рандом передавать максимальную строку. Допустим если в тексте будет все 3 000 строк, то понятно, что копировать выше 1 000 строки мы не можем, иначе будет уже не 2 000.

Добавлено через 2 минуты и 6 секунд
Тогда нужно определить количество символов в текстовом файле и от него отнять 2000

Код


memo1.Text:=copy(memo1.Text,Random(количество символов в текстовом файле-2000),2000);

Добавлено через 2 минуты и 38 секунд
НО может быть случай когда файл имеет 330 символов, это тоже нужно предусмотреть :)

Автор: Данкинг 20.6.2010, 21:26

Да-да, всё правильно, данный код тоже имеет свои нюансы. smile