|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.01.2009, 19:05 | #1 |
Пользователь
Регистрация: 23.08.2008
Сообщений: 60
|
Как загрузить текст.txt в label1
Люди програмисты помогите, я сечас делаю говорилку и хочу добавить туда функцию анекдоты но я не хочу загрезнять сис код и поэтому решил загружать их из .txt файлов, подскажите как это делать! плиз!
- Я фармацевт.
- А, значит в аптеке работаете. - Нет, диск С форматирую. |
15.01.2009, 19:21 | #2 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Есть "грёзы", есть "грязь". Есть "загрязнять".
Ну, да ладно - горбатого могила исправит. По теме Цитата:
Код:
|
|
15.01.2009, 19:30 | #3 |
Пользователь
Регистрация: 09.05.2008
Сообщений: 39
|
короче объяви переменную типа textfile;
Код:
дальше есть три процедуры : чтение из файла reset(t); запись в файл в конец appened(t); перезапись файла rewrite(t); Тебе я как понял нужно чтение из файла. Построчно читаешь процедурой readln(t,s) и выводишь например в мемо , поддержива. и после чего закрываешь файл процедурой close(t); Также есть ещё булевская функцию определяющая конец файла EOF(t); (end of file); читаешь файл построчно, пока функция EOF не будет иметь значение TRUE; т.е. Код:
Непечатный жаргон - это тот язык, которым решительно все программисты владеют в совершенстве.
|
15.01.2009, 19:31 | #4 |
Пользователь
Регистрация: 09.05.2008
Сообщений: 39
|
Блин ошибся думал ты хотел в memo
Непечатный жаргон - это тот язык, которым решительно все программисты владеют в совершенстве.
|
15.01.2009, 19:41 | #5 |
Пользователь
Регистрация: 23.08.2008
Сообщений: 60
|
ListBox1.Items.LoadFromFile('текст. txt');
Label1.Caption:=''; for i:=0 to ListBox1.Items.Count-1 do Label1.Caption:=Label1.Caption+List Box1.Items[i]; я не понял а причём там лист бокс мне веть нужно загружать весь текст в лэйбл ну код примерно так должен выглядить но он не срабатывает Label1.caption.LoadFromFile('текст. txt');
- Я фармацевт.
- А, значит в аптеке работаете. - Нет, диск С форматирую. |
15.01.2009, 19:46 | #6 |
Пользователь
Регистрация: 23.08.2008
Сообщений: 60
|
А извеняюсь всё понял всё работает спосиб
- Я фармацевт.
- А, значит в аптеке работаете. - Нет, диск С форматирую. |
15.01.2009, 19:47 | #7 | |
Форумчанин
Регистрация: 25.03.2007
Сообщений: 166
|
Цитата:
|
|
15.01.2009, 19:52 | #8 |
Пользователь
Регистрация: 23.08.2008
Сообщений: 60
|
да я потом разобрал код и понял это!
- Я фармацевт.
- А, значит в аптеке работаете. - Нет, диск С форматирую. |
16.01.2009, 00:16 | #9 |
C++ & PHP & Asm
Форумчанин
Регистрация: 06.12.2008
Сообщений: 300
|
Или можно еще так
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Загрузить текст(30стр.) в RichEdit | Delaila | Помощь студентам | 2 | 19.11.2008 23:07 |
Как узнать какой текст выделен в текст поле | mogul82 | JavaScript, Ajax | 2 | 02.11.2008 16:32 |
Загрузить текст из файла в мемо | Teen4jump | Общие вопросы Delphi | 2 | 17.08.2007 21:05 |
Как прочесть txt файл www.site.ru/info.txt | BR17UY | Работа с сетью в Delphi | 1 | 16.04.2007 13:01 |