依照超级猛料中的反查拼音码的方法，得到了 ''@ 这样的结果，程序如下，请问是何原因。

Question

系统环境XP,d6

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=gb2py(pchar(edit1.text));
end;function tform1.gb2py(hanzi:pchar):pchar;
var
Sfile:Tmemorystream;
pos,temp,ipos,len:integer;
py:array[0..20] of char;
begin
  pos:=($fe-$a1)*(ord(hanzi[0])-$b0)+ord(hanzi[1])-$a1;
  sfile:=Tmemorystream.create;
  sfile.loadfromfile('c:\gbK2py.idx');
  //data:=sfile.memory;
  sfile.Seek($1608+pos*4,soFromBeginning);
  sfile.Read(ipos,4);
  sfile.Read(temp,4);
  len:=temp-ipos;
  sfile.Seek(ipos+1,soFromBeginning);
  sfile.Read(py,len);
  py[len-1]:=#0;
  sfile.Free;
  result:=py;
end;

Answer 2

是因为你有和gbK2py.idx这个文件的版本不对