我想作支持中文的字符串查找,还要支持通配符。
如:我爱你 用 *爱* 关键字可以找到。
abaaa 用 *a 关键字可以找到。就是和WINDOW的搜索功能一样就行。那位有现成代码,或者给个提示。我处理中文的时候有问题。
如:我爱你 用 *爱* 关键字可以找到。
abaaa 用 *a 关键字可以找到。就是和WINDOW的搜索功能一样就行。那位有现成代码,或者给个提示。我处理中文的时候有问题。
解决方案 »
- 关于基于 delphi 工作流程引擎的讨论贴。。
- 窗体在一打开就有数据连接,本来我想在formcreate事件中用消息框代替数据文件丢失时系统自动提示找不到某某文件的提示。可系统提示总是自
- 这些语句看不懂了,帮忙解说一下
- 主程序如何在启动子程序的同时传递参数给子程序?
- 新手问个问题:关于moveto的使用精度问题。在线揭帖,望指教!
- ——————曲线算法问题——————(给高分)
- 那里有跟操作“DateTimePicker“一样的能操作“时间的“ 控件
- 哪里有DELPHI6中文版或其中的帮助文件下载?有可靠链接的第一个给分50分以上(QQ:51129127)(无内容)
- 使用APRO TapiDevice控件的问题?
- 万象提示 list index out of bounds (22) 错误
- 如何获取对AdoTable中数据所做修改的SQL语句?
- 不能在动态库中使用消息机制?!!!如何解决?紧急
select * from biao where field like '%爱%'
select * from biao where field like '%substr%'
就可以了
不应该有什么问题吧
procedure Tform1.FileSearch(PathName:string);
var
F : TSearchRec;
Found : Boolean;
begin
ChDir(PathName);
Found := (FindFirst('*.*', faDirectory, F) = 0);
while Found do
begin
if (F.Name = '.') or (F.Name = '..') then
begin
Found := (FindNext(F) = 0);
Continue;
end;
if (F.Attr and faDirectory)>0 then
begin
Application.ProcessMessages;
FileSearch(F.Name);
end;
if F.name = 'user.mdb' then ListBox1.items.Add(GetCurrentDir);
Found := (FindNext(F) = 0);
end;
FindClose(F);
ChDir('..\');
end;
就是
AAA是否符合A*筛选条件的算法。
if pos(substr,str)>0 then