首页
社区
课程
招聘
问答 CTF 排行榜 知识库 工具下载 峰会 看雪商城 证书查询
  1. 社区
  2. 编程技术
    3. 发新帖
[求助]求教这个代码，如何和读行挂钩？谢谢
发表于: 2021-2-4 18:39 4104

[求助]求教这个代码，如何和读行挂钩？谢谢

ninebell 活跃值
2021-2-4 18:39
4104

求教这个代码，如何和读行挂钩？谢谢

function R(const FileName: string): string;
var
  M: TFileStream;
begin
  M := TFileStream.Create(FileName, fmOpenRead);
  try
    SetLength(Result, M.Size);
    M.Read(Result[1], M.Size);
  finally
    M.Free;
  end;
end;



我原来的  if Pos(LowerCase(sMemo1.Lines[I]), LowerCase(sMemo2.Lines[U])) > 0 then 这个速度得急死


所以找了以上代码，帮助我加点串起来，提速，谢谢。


[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！

最后于 2021-2-4 18:43 被ninebell编辑 ，原因：
收藏
免费 ・0
支持
分享
最新回复 (3)
ainideyang
雪    币： 231
活跃值： (615)
能力值： ( LV3，RANK：30 )
在线值：
发帖
回帖
粉丝
私信
2 楼
用TStringList
2021-2-4 18:53
0
ninebell
雪    币： 35508
活跃值： (7155)
能力值： ( LV3，RANK：20 )
在线值：
发帖
回帖
粉丝
私信
3 楼
ainideyang 用TStringList
试过，慢死。
因为用正则表达式，对比两个Memo
都是大文件
2021-2-4 19:03
0
Mxixihaha
雪    币： 4333
活跃值： (4323)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
4 楼
先把整个内容  LowerCase    然后单行比较.   不要一行一次 LowerCase 效率低.
如果内容很长的话 直接用 KMP搜索代替pos

如果是找相同的内容直接用 hash_map  在delphi里面叫啥不知道
2021-2-6 13:10
0
游客
登录 | 注册 方可回帖
回帖 表情 雪币赚取及消费
高级回复
返回
//