даже не знаю, как это правильно назвать, но мне нужно, чтобы можно было как-то поменять строку, которую я вывел через writeln. например, вот этот код:
for i:= 0 to 100 do
какая-то_процедура[номер_строки]:='I = '+inttostr(i);
будет обновлять какую-либо строку в консоли. надеюсь, что понятно объяснил) буду благодарен за помощь
R-A-Z-O-R
20.09.2011, 19:58
[Ссылки могут видеть только зарегистрированные и активированные пользователи] или можно хранить весь текст в одной строке, с помощью парсинга изменять ее, очищать консоль и выводить текст заново
lolwut98
20.09.2011, 21:04
большое спасибо :)
вот код, если кому надо:
uses
SysUtils,
Classes,
Windows;
var
i: integer;
procedure GotoXY(X, Y: smallint);
var
ps: _COORD;
begin
ps.X := X;
ps.Y := Y;
SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_H ANDLE), ps);
end;
begin
for i := 0 to 100 do
begin
GotoXY(0, 0);
write(inttostr(i));
sleep(100);
end;