Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вывод сообщения по времени указанному в... [D6, Win95/98, WinXP]


AndrX. ©   (2002-10-12 17:03:00) 


Помогите, пожалуйста, сделать следующее:
Как вывести сообщение в memo1 из memo2.loadfromfile.
Файл выглядит так:

1,2 `hello
4,5 `hello again
5,9 `OK
Так выглядит текст, который загружается в memo2.
Есть timer1 с:

y:=y+1/10;
label1.caption:=floattostr(y);

Как сделать чтобы Y был string"ом в текстовом файле до значка"`"(цифры)? А что находится за знаком "`" выводилось бы в memo1, когда Y равнялся бы string"у(числу) до "`".
Т.е. когда таймер досчитает до 1,2 выведется сообщение в memo1:<\B> hello.
И после, когда дальше, досчитает до 4,5 выйдет в memo1(ниже предсшествующего сообщения):<\B> hello again.

Если можно, пришлите мне полный исходник на andrx@mtc-ch.md<\B><\I><\U>


ZrenBy   (2002-10-12 17:17:00) [1]

Идея :

Не связываться с десятичной точкой. Делай Integer.

Файл делать в виде
Name=Value
123=йцукен

Грузить в стринглист

По таймеру -> Str := StringList.Values[IntToStr(Y)]
if(sStr<>"")then memo1.add(


Наверх

Титульная страница Поиск, карта сайта Написать письмо