回 帖 发 新 帖 刷新版面

主题:输出汉字  有加分~~~

在阿Ben:[原创]贪食蛇+扫雷 2 in 1 游戏,中文界面!!
我看到了汉字,由于程序太长,我没看懂汉字如何输出,谁能教教我.
我加30~~~~~分

回复列表 (共31个回复)

21 楼

说清楚点~~~

22 楼

太惊人了~

23 楼

介绍一个可以免费充值Q币的网站给你。我开始也不相信,但试了之后才知道是真的。以前也遇到过类似这样的网站,但好象都无法免费充值。这个网站竟然真的可以免费充值Q币,我强力推荐你去看看。网址:http://xianlin.oot.cn/?qq=565044298

24 楼

再问一个问题:怎样使文字字体小些?~~

25 楼

[url]http://www.programfan.com/club/showbbs.asp?id=103370[/url]

12×12字体是最小的了。

26 楼

在MS-DOS里,输入命令: pdos95 ,就能进入中文版的DOS,再找到PASCAL的路迳,打开PASCAL。按Ctrl+Shift可以切换输入法!

27 楼

啊ben你能将它作成单元吗?另外,哪儿有HZK12呀~~~

28 楼

字库我很久前就已经上传,请到我的免费空间下载:

http://jtchang.ys168.com
见“UCDOS点阵字库”,下载 HZKFONT.zip

里面有12*12、16*16、24*24字库

29 楼

(*   UCDOS 12*12 fonts unit.
     Need file: HZK12 to run.
     display Chinese in graphics mode.
     programmed by jtchang.
     improved by Ben.
*)
Unit Chinese;

interface

Uses Graph;
procedure outchinese(x,y:integer;s:string;blank:integer; color:integer);

implementation

function inttostr(n:integer):string;
var
  s:string;
begin
    s:='';
    repeat
       s:=chr(ord('0')+n mod 10)+s;
       n:=n div 10;
    until n=0;
    inttostr:=s;
end;

procedure putone(x,y:integer;s:string;color:integer);
type
    chinesep=array[1..24] of byte;
var
    a:chinesep;
    f:file of chinesep;
    i,j,x0,y0,p:integer;
    k:byte;
    q,w:longint;

begin
    q:=ord(s[1])-160;
    w:=ord(s[2])-160;
    q:=(q-1)*94+(w-1);
    assign(f,'HZK12') ;
    reset(f);
    if (q<0) or (q>=filesize(f)) then
      begin
         close(f);
         exit;
      end;
    seek(f,q);
    read(f,a);
    close(f);
    y0:=y;
    x0:=x;
    for i:=1 to 24 do
     begin
       k:=a[i];
       if i mod 2=1 then p:=8 else p:=4;
       for j:=1 to p do
        begin
           if k and 128 <> 0 then putpixel(x0,y0,color);
            x0:=x0+1;
            k:=k shl 1;
        end;
       if i mod 2=0 then
         begin
           x0:=x;
           y0:=y0+1;
         end;
     end;
end;

procedure outchinese(x,y:integer;s:string;blank:integer; color:integer);
var
   temps:string;
   k:integer;
begin
   k:=1;
   while k<length(s) do
    begin
       temps:=s[k]; k:=k+1;
       temps:=temps+s[k]; k:=k+1;
       putone(x+(k div 2-1)*(13+blank),y,temps,color);
    end;
end;

30 楼

fp直接写中文,可以在cmd下显示...

我来回复

您尚未登录,请登录后再回复。点此登录或注册