On 5/22/07, A.J. Venter <[EMAIL PROTECTED]> wrote:
CRT is one way but rather relies on using the whole console. Anyway
ncrt is safer. Sounds like you need something like this:
uses ncrt;
I got interrested on this, so I wrote a test program. I tested with
both ncrt and crt, and actually I found that ncrt will erase the whole
console and start writing from position (1,1), while crt will keep
things that already exist on the console and start writing on the next
line.
So, for some uses, crt may be nicer.
program console;
{$mode objfpc}{$H+}
uses
crt, SysUtils; // here you can change crt with ncrt
begin
Write('[ ] 0%');
GotoXY(1, WhereY);
Sleep(200);
Write('[=> ] 10%');
GotoXY(1, WhereY);
Sleep(200);
Write('[===> ] 20%');
GotoXY(1, WhereY);
Sleep(200);
Write('[=====> ] 30%');
GotoXY(1, WhereY);
Sleep(200);
Write('[=======> ] 40%');
GotoXY(1, WhereY);
Sleep(200);
Write('[=========> ] 50%');
GotoXY(1, WhereY);
Sleep(200);
end.
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
