Ĺadny brzuch
Czy ktoś pamięta jak można wyczyścić okienko aplikacji konsolowej
w Delphi? Chodzi mi o to co w Turbo Pascalu realizowało się przez
clrscr.
Pietrek_C
w przypadku aplikacji konsolowej trzeba sobie samemu napisac [chyba]:program Project1; {$APPTYPE CONSOLE} uses SysUtils, Windows; procedure clrscr; var str : String; I : Integer; handle : DWORD; coord : _COORD; begin handle := GetStdHandle( STD_OUTPUT_HANDLE ); coord.X := 0; coord.Y := 0; SetConsoleCursorPosition( handle, coord); str := StringOfChar( ' ', 2000 ); Writeln( str ); SetConsoleCursorPosition( handle, coord); end; begin writeln('elo'); readln; clrscr; writeln('hyhyhyhy'); readln; end.
pozdrawiam
pepsi^no1
Bardzo dziekuje! :) Co prawda nie _coord a TCoord, ale to juz
drobiazg. Dosc, ze sie udało! Choc myslalem, ze to mozna prosciej...
Pietrek_C
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
w Delphi? Chodzi mi o to co w Turbo Pascalu realizowało się przez
clrscr.
Pietrek_C
w przypadku aplikacji konsolowej trzeba sobie samemu napisac [chyba]:program Project1; {$APPTYPE CONSOLE} uses SysUtils, Windows; procedure clrscr; var str : String; I : Integer; handle : DWORD; coord : _COORD; begin handle := GetStdHandle( STD_OUTPUT_HANDLE ); coord.X := 0; coord.Y := 0; SetConsoleCursorPosition( handle, coord); str := StringOfChar( ' ', 2000 ); Writeln( str ); SetConsoleCursorPosition( handle, coord); end; begin writeln('elo'); readln; clrscr; writeln('hyhyhyhy'); readln; end.
pozdrawiam
pepsi^no1
Bardzo dziekuje! :) Co prawda nie _coord a TCoord, ale to juz
drobiazg. Dosc, ze sie udało! Choc myslalem, ze to mozna prosciej...
Pietrek_C
