您所在位置：主题：<罗嗦帖>直接写屏
maxumi
[专家分：2200] 发布于 2006-09-27 17:14:00
procedure xpr(x:integer; y:integer; st:string; col:integer; col2:integer);
var
colx,i,pt:integer;
begin
pt:=x shl 1+y shl 7+y shl 5;
colx:=col+col2 shl 4;
for i:=1 to ord(st[0]) do begin
mem[$B800:pt]:=ord(st[i]);
mem[$B800:pt+1]:=colx;
inc(pt,2);
end;
end;
x,y是坐标.左上角x=0,y=0. 右下角x=79,y=24.
st是要显示的字符串.
col是前景色.(0-15)
col2是背景色.(0-15)
写的不好, 大家凑合着看吧
PS:我开始不知道mem怎么用, 还用了指针......XD
var
colx,i,pt:integer;
begin
pt:=x shl 1+y shl 7+y shl 5;
colx:=col+col2 shl 4;
for i:=1 to ord(st[0]) do begin
mem[$B800:pt]:=ord(st[i]);
mem[$B800:pt+1]:=colx;
inc(pt,2);
end;
end;
x,y是坐标.左上角x=0,y=0. 右下角x=79,y=24.
st是要显示的字符串.
col是前景色.(0-15)
col2是背景色.(0-15)
写的不好, 大家凑合着看吧
PS:我开始不知道mem怎么用, 还用了指针......XD
