Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.19;
Скачать: CL | DM;

Вниз

Console Application   Найти похожие ветки 

 
J_S ©   (2002-09-09 17:23) [0]

Как сделать зачистку экрана консольного приложения? Досо-паскалевский ClrScr не работает.


 
Старый Паскалист   (2002-09-09 18:09) [1]

Единственное, что пришло в голову:
(опыта работы с консолью у меня нет, может быть, существует более лёгкий путь)

procedure ClrScr;
var hOut: Integer;
c: TCoord;
cbi: TConsoleScreenBufferInfo;
i: Integer;
j: Cardinal;
s: string;
begin
hOut := GetStdHandle(STD_OUTPUT_HANDLE);

GetConsoleScreenBufferInfo(hOut, cbi);

// for i := 0 to cbi.dwSize.Y do
// WriteLn("");

// так может быть быстрее. А может, и нет
for i := 0 to cbi.dwSize.Y do s := s + #13#10;
WriteConsole(hOut, @s[1], Length(s), j, nil);

c.X := 0;
c.Y := 0;
SetConsoleCursorPosition(hOut, c);

end;


 
MBo ©   (2002-09-09 18:19) [2]

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils, windows;
var
h: thandle;
Size, Origin: TCoord;
Written: DWord;
begin
writeln("qwerererrr");
writeln("qwerererrr");
writeln("qwerererrr");
writeln("qwerererrr");
readln;
h := GetStdHandle(STD_OUTPUT_HANDLE);
Size := GetLargestConsoleWindowSize(h);
Origin.X := 0;
Origin.Y := 0;
FillConsoleOutputCharacter(H, " ", Size.X * Size.Y, Origin, Written);
SetConsoleCursorPosition(H, Origin);
writeln("Begin");
readln;
end.


 
J_S ©   (2002-09-09 19:09) [3]

Весьма желательно чтобы это еще работало бы еще и в Kylix...



Страницы: 1 вся ветка

Текущий архив: 2002.09.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-61200
VDen
2002-09-08 16:15
2002.09.19
Печать QReport-отчета


4-61342
MJH
2002-07-28 01:51
2002.09.19
Гарантийный номер материнки


1-61109
AM
2002-09-10 10:01
2002.09.19
QReport


1-61151
pvasya
2002-09-06 20:53
2002.09.19
Как к Button1 прилепить евент OnClick?


1-61073
@Ujin
2002-09-09 16:43
2002.09.19
Мастера, как бы канву формы сохранить в векторном формате?