高手留步：使用软字库打印怎么只打了半个汉字？

Question

字库是hzk16，转换程序如下：
function THZPrint.Convert16(const source: PChar): string;
var
  i, j, k: Integer;
  order: array[0..15, 0..15] of Integer;
  r: Integer;
begin
  Result:= EmptyStr;
  Result:= Result + PIC_STYLE;
  for i:= 0 to 15 do
    for j:= 0 to 15 do
      order[i][j]:= 0;
  for i:= 0 to 15 do
      for j := 0 to 1 do
          for k := 0 to 7 do
              if ((word(source[i * 2 + j]) shr (7 - k)) and $1) > 0 then
                order[i][j*8 + k]:= $1 shl (7 - (i mod 8));
  for i:= 0 to 15 do
  begin
    r:= 0;
    for j:= 0 to 7 do
      r:= r + order[j + 8][i];
    Result:= Result + chr(r);
  end;
end;
请教。

Answer 1

两个字符是一个汉字吧。order[i][j*8 + k]:= $1 shl (7 - (i mod 8));这句好像有问题。