Вывод текста бегущей строкой, графика Опции

[Анастасия]

Вот программа, работает, но я хочу, чтобы текст , уходя за пределы экрана,
возвращался слева или появлялись друг за другом строки как по телевизору.
Не придумывается что-то.

program lll;
uses crt,graph;
var d,m,e,dx,dy,xd,yd,i,j:integer;
begin
d :=Detect;
initgraph(d, m, 'd:\bp70\bgi');
e := graphresult;
if e <> grok then
writeln(grapherrormsg(e))
else
begin
dx:=0;
dy:=200;
xd:=600;
yd:=200;
settextstyle(4,0,8);
repeat
for j:=1 to 500 do  begin
for i:=1 to 270 do begin
if dx>=0 then begin dx:=dx+1;
outtextxy(dx,dy,'Anastasiya');
end;
delay(800);
cleardevice;
end;
if keypressed then break
end;
until keypressed;
end;
end.

Пользуйтесь тегами

Сообщение отредактировано: volvo - 2.11.2006 20:03

[volvo]

Анастасия, попробуй запустить вот это:

program lll;
uses crt,graph;

var
  gDriver, gMode, err: integer;
  s: string;
begin
  gDriver := Detect;
  initgraph(gDriver, gMode, '');
  err := graphresult;
  if err <> grok then begin
    writeln(grapherrormsg(err));
    halt(100);
  end;

  settextstyle(4, HorizDir, 8);
  s := 'Anastasiya';
  repeat
    s := s + ' ';
  until textwidth(s) > getmaxx;
  delete(s, length(s), 1);

  repeat
    delay(1800);
    cleardevice;
    outtextxy(1, getmaxy div 2, s);
    s := copy(s, 2, length(s) - 1) + s[1];

  until keypressed;

end.

Идея ясна?

У меня только справа налево, но направление движения меняется элементарно...