关键词匹配

火神2020 2020-07-31 09:42:17
delphi
比如在数据库或者
stringGrid 或者 dbGrid里边,有这样的一组数据


然后,原句如:
深圳很好,发展很不错

就会匹配深圳,然后找到相应的提示。
求指点。

亦或者,原句:这里有一只小猫
就会因小猫触发匹配,找到其对应的提示。
...全文
100 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
如果词库条目不多的话,一两百以内,直接把字符串分词查找就可以了
uses System.SysUtils, System.Math, Vcl.Grids;

function TFrom1.FindHint(const S: string): string;
var
i, j, k: integer;
word: string;
begin
for i := 1 to Length(S) do
for j := i to Min(i + 4, Length(S)) do
begin
word := Copy(S, i, j - i + 1);
for k := 0 to StringGrid1.RowCount - 1 do
if Pos(word, StringGrid1.Cols[0][k]) > 0 then
begin
Result := StringGrid1.Cols[1][k];
exit;
end;
end;
end;

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧