|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.05.2012, 14:59 | #1 | |
Новичок
Джуниор
Регистрация: 03.05.2012
Сообщений: 2
|
Delphi. Случаная фраза из файла
Есть в инете старая прога "Fraza"
fraza.rar Я хочу сделать такую же, со своими фразами. Два дня я её пытаюсь сделать и уже началася баттхерт. Вот что я делаю: Создаю на стандартной форме, основном окне - форму текста (Label) И задаю к основному окну действие OnCreate, а к этому действию вот это: Цитата:
"вот это" я подчерпнул из этой темы: http://www.programmersforum.ru/showt...ight=Randomize Прошу вашей помощи и совета. |
|
03.05.2012, 15:15 | #2 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
во-первых, какая ошибка возникает? Может файла 'file.txt' рядом с exe-шником банально нет?!
во-вторых, какого типа lbl1 ? TMemo ? в-третьих, нужно выкинуть -1 Код:
в-четвёртых, Цитата:
Последний раз редактировалось Serge_Bliznykov; 03.05.2012 в 15:17. |
|
03.05.2012, 16:28 | #3 | ||
Новичок
Джуниор
Регистрация: 03.05.2012
Сообщений: 2
|
Спасибо.
Ошибка возникала здесь: Цитата:
Цитата:
Тогда ошибка пропала. В итоге сейчас, у меня вроде как бы и есть то, что надо. Но мне не нравиться - топорно и грубо. Я орентировался на это: Citata2.jpg А вышло вот, что: Citata1.jpg И сама прога: Citata.rar |
||
04.05.2012, 13:45 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
дык выкиньте напрочь своё мемо! (и, кстати можно вместе с формой )
код, где вы заносите в мемо строку замените на Код:
например: Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дана фраза определить сколько в ней предложений. | BBorr1 | Помощь студентам | 4 | 01.02.2012 22:32 |
Дана фраза, слова разделены пробелом. Определить, сколько в ней наречий и однобуквенных местоимений. (Turbo Pascal) | brahmanchik | Помощь студентам | 5 | 22.01.2012 01:32 |
К каждой строчке добавляется фраза | Dominatorsha | Общие вопросы Delphi | 1 | 30.05.2011 16:21 |
Delphi 7 преобразование файла | Rmps | Помощь студентам | 4 | 08.04.2011 15:26 |