VPF::Как в ТР сделать бегущюу строку

-Сергей-

Дата 26.11.2003, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 224
Регистрация: 2.8.2003
Где: Россия

Репутация: нет
Всего: 1

Вот что у меня получилось дальше ничего придумать не могу.

Код


Program Marquee;
uses crt;
var
  Increm:Integer;
  S :String;
Const
  StrLen=20;
begin
  clrscr;
  repeat
  S:='Hello World';
  Inc(increm);
  delay(2000);
  Write(Copy(s,increm,Length(s)));
  If Length(s)+20- StrLen < increm then increm:=1;
  until keypressed;
end.

Как сделать чтоб в одну строку выводилось?

--------------------

Для утвердительного ответа достаточно лишь одного слова - "да". Все прочие слова придуманы, чтобы сказать "нет".

Akella

Дата 26.11.2003, 14:21 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

У меня гдето был пример, попробую поискать, но необещаю

p0s0l

Дата 26.11.2003, 14:51 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

После Delay(2000) перед Write(...) вставь строку GoToXY(1,1). Тут (1,1) - это координаты бегущей строки.
И кстати вместо Write(Copy(s,increm,Length(s))) лучше по-моему надо так: Write(Copy(s,increm,StrLen)), а то если строка > 80 символов, то она будет залезать на следующую строку...

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »