Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здрасте уважаемые эксперты. Не сильно увлекаюсь дельфи но когда приспичит приходится вспоминать и учить. но ни как не могу сделать одну вещь! Скажите пожалуйста вот есть например файл 1.txt
В нем следующее
...
посадил дед репку
выросла репка большая
прибольшая
....
ну вот главный вопрос как мне сделать так что бы каждая строка выводилась в edit1 по отдельности с интервалом в 15 секунд, то есть сначало вывелось "посадил дед репку" через 15 сек "выросла репка большая" и так далее. Очень прошу, очень надо.

Вопрос задал: Генка (статус: Посетитель) Вопрос отправлен: 17 марта 2011, 22:35 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Ну, вот как-то так, по таймеру:

procedure TMainForm.TimerTimer(Sender: TObject);
begin
  Edit.Text:= FText[FIndex]; // список строк из файла
  Inc(FIndex);               // номер строки в списке
 
  if FIndex = FText.Count    // по достижении конца списка
    then FIndex:= 0;         // переход на начало
end;

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 18 марта 2011, 08:35 Оценка за ответ: 5 Комментарий к оценке: Спасибо большое!!!

Мини-форум вопроса

bugmenot (статус: 3-ий класс), 17 марта 2011, 23:00 [#1]: открыть файл и по таймеру Readln виконання програми розпочинається з того самого мiсця, де призупинилося.

Генка (статус: Посетитель), 17 марта 2011, 23:34 [#2]: Мне это честно не о чём не говоорит=) мне бы кодик. Я же писал что в дельфи я никто

bugmenot (статус: 3-ий класс), 18 марта 2011, 01:04 [#3]: http://delphi.isgreat.org/tmp/ Project4.zip бесплатно, как есть, никаких гарантий виконання програми розпочинається з того самого мiсця, де призупинилося.

18 марта 2011, 12:08: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.