关于拼音查找的问题，立即送分（现在知道怎么送分了），搞了一天多，急死了。

Question

看懂上面的程序了吗？
既然能写到ListBox中，当然也能写道数据库中了；
然后用SQL语句查一下
It is TOO EASY

Answer 1

上面基本上能看懂，主要是这句不懂，不知道是什么意思
zzchar:=ListBoxStr.Items[i][2*j-1]+ListBoxStr.Items[i][2*j];
我想把它改为:zzchar:=query1.fieldbyname.asstring[i][2*j-1]+query1.fieldbyname.asstring[i][2*j];就是不认请各位高手再看看，我应该怎么做，谢谢了  

Answer 2

  query1.RecNo := I;
  zzchar:=query1.fieldbyname('<field>').asstring[2*j-1]+query1.fieldbyname('<field>').asstring[2*j];

Answer 3

还是查不到，但已经不出错了，起作用了，就是没能将查找到的数据放到listbox2中，请看看下面的语句是不是有错呢？
procedure TForm1.Edit1Change(Sender: TObject);
var
  SelStr:string;
begin
  SelStr:='';
  ListBox2.Items.Text:=DisByStrInd(query1,query1.fieldbyname('dw').asstring);
end;

Answer 4

zfpcb(我是你的传说)你好！我还没做出来，请你给我一份：E-mail:[email protected]

Answer 5

改为
ListBox2.Items.add(DisByStrInd(query1,query1.fieldbyname('dw').asstring));