var wordstr,TmpStr:string;
begin
wordstr:=trim(edit1.Text);
wile not (pos('',wordstr)=0) do
begin
TmpStr:=copy(wordstr,1,2);
//接着用你的TmpStr去查询你数据库对应的拼音字母。
wordstr:=copy(wordstr,2,length(wordstr));
end;end;
begin
wordstr:=trim(edit1.Text);
wile not (pos('',wordstr)=0) do
begin
TmpStr:=copy(wordstr,1,2);
//接着用你的TmpStr去查询你数据库对应的拼音字母。
wordstr:=copy(wordstr,2,length(wordstr));
end;end;
解决方案 »
- Merry Christmas ! (多语言版)
- 为什么我的DELPHI 的主控菜单,不显示出来,为什么,只有窗体编辑窗体
- 怎么让cxLookupComboBox的鼠标滑动禁用
- 鼠标移动时怎么得到DBGrid方格中的内容?
- SQL语句?
- 安装完DevExpress控件后,为何有些ExpressQuantumGrid 4 Suite例子提示我"TdxDBGrid not found"(Delphi7)
- 用delphi 编程时,如何得到SWF画面的原始尺寸?
- 一个关于Hook API 的问题~~~谢谢~请帮帮忙~:-)
- 怎么样能按一个按钮,使decisiongraph1的图形变化样式,如由柱形变成饼形?
- 大家做软件主界面是什么样式的?我想做一个图形主界面?
- 菜菜之问题
- cgi和ISAPI
我觉得:
for i:=1 to length(wordstr) do
有问题,改为:
for i:=1 to (length(wordstr) div 2) do 你看可以吗???