Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как в ТР сделать бегущюу строку

Автор: -Сергей- 26.11.2003, 11:50

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

Код


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

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

Автор: p0s0l 26.11.2003, 14:51

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