Архив форумов ЦИТФорума

[BBBB]

Посмотрите исходник:program clok;
uses
dos,crt;
var
d,s,m,h:word;
procedure get_time;
begin
repeat
gettime(h,m,s,d);
writeln('Текущее время ',h,':',m,':',s,'.',d);
until keypressed;
end;
begin
get_time;
end.
Как сделать чтобыобновление данных порисходило без вывода в новую сторку этих же данных, оператор ClrScr плохо помогает.
Спасибо.

[Як]

Попробуй ClrEol

[Valera]

write(#8#8...(нужное колво по длине печатаемой строки)..#8,"text",#$0D);

[Den]

GotoXY(x,y) - ставит курсор в нужную позицию

[BBBB]

К сожалению ни первое ни второе ни третие не помогло, имеються ли другие пути?
Спасибо.

[Den]

Что значит не помогло???
Перед WriteLn ставь GotoXY(1,1) например и все должно работать!!!

[BBBB]

Тысяча извинений , действительно работает!
Я по невнимательности Ваше сообщение не заметил.
Спсасибо!