我在DBGRID1里将用户都查出来,然后再EDIT1里搜索,比如刘成可,鲁长奎都是LCK,搜索LCK在DBGRID2里自动将LCK简拼对应的所有人显示出来,哪位帮忙看看!
解决方案 »
- 半透明的panel,或者其他控件
- FTP服务器压力测试,欢迎登录,可上传可下载,全部有分....
- 有谁知道能下载delphi图书的地址!!
- 求Install Shield 6.3的东方语言包
- 如何往Excel的Cell里面写数据?附调试代码~
- 请问怎样用程序调用google搜索关键字,并把找到的网址返回给程序?
- 用d6编译的问题!高分求解。
- 小问题,老搞不定,这么晚了,多给点分。
- 诚征About窗体
- 如何使DBGRID中数据列18显示为18.00?
- 请教:各位大哥新年快乐,客户端需要显示服务器的图片,这样的功能怎么实现?谢谢!
- 求助:请 li_zhifu 大哥 和各位大哥再帮我看看下面几个问题,谢谢!
label NotFound;
var
i, j :integer;
hzchar :string; function GetPYIndexChar( hzchar:string):char;
begin
case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of
$B0A1..$B0C4 : result := 'A';
$B0C5..$B2C0 : result := 'B';
$B2C1..$B4ED : result := 'C';
$B4EE..$B6E9 : result := 'D';
$B6EA..$B7A1 : result := 'E';
$B7A2..$B8C0 : result := 'F';
$B8C1..$B9FD : result := 'G';
$B9FE..$BBF6 : result := 'H';
$BBF7..$BFA5 : result := 'J';
$BFA6..$C0AB : result := 'K';
$C0AC..$C2E7 : result := 'L';
$C2E8..$C4C2 : result := 'M';
$C4C3..$C5B5 : result := 'N';
$C5B6..$C5BD : result := 'O';
$C5BE..$C6D9 : result := 'P';
$C6DA..$C8BA : result := 'Q';
$C8BB..$C8F5 : result := 'R';
$C8F6..$CBF9 : result := 'S';
$CBFA..$CDD9 : result := 'T';
$CDDA..$CEF3 : result := 'W';
$CEF4..$D1B8 : result := 'X';
$D1B9..$D4D0 : result := 'Y';
$D4D1..$D7F9 : result := 'Z';
else
result := char(0);
end;
end;
begin
for i:=0 to SourceStrs.Count-1 do
begin
for j:=1 to Length(PYIndexStr) do
begin
hzchar:=SourceStrs[i][2*j-1]+ SourceStrs[i][2*j];
if (PYIndexStr[j]<>'?') and
(UpperCase(PYIndexStr[j]) <> GetPYIndexChar(hzchar)) then
goto NotFound;
end;
if result='' then
result := SourceStrs[i]
else
result := result + Char(13) + SourceStrs[i];
NotFound:
end;
end;