myunit.pas

来自「This is programing tutorial for people w」· PAS 代码 · 共 33 行

unit myunit;
interface
uses crt;


procedure clearbkgr(color : byte);
procedure makewindow(x1, y1, x2, y2, color : byte);
procedure writexy(x, y : byte ; mess : string);
function  ucase(st:string):string;

implementation

procedure clearbkgr(color : byte);
begin
  textbackground(color);
  clrscr;
end;

{ Invisible to unit user, this is internal function }
function fill(s : string; count : byte; what: char):string;
begin
  fillchar(s,count+1,what);
  s[0]:=chr(count);
  fill:=s;
end;

procedure makewindow(x1, y1, x2, y2, color : byte);
var
  s  : string;
  i  : byte;
begin
  textattr:=color;
  s:=fill(s,x2-x1-1,#205);  { '