如何“高效，快速”的在一个文本文件中查找指定的字符串，请各抒己见

function Pos(Substr: string; S: string): Integer;

解决方案 »

  1.   

    我同意楼上的
    但如果文本太大呢 s:string放不下给怎么办呢
      

  2.   

    String能存放2G的数据应该不会有放不下的事发生
      

  3.   

    是否一次将文本读入string类型变量中?
    这样对内存要求会不会很高呢?
      

  4.   

    a2 :='@!@#$%';
    if FileExists('c:\Program Files\user.txt') then begin
    AssignFile(F1,'c:\Program Files\user.txt');
    reset(F1);//打开一个只读文件
    readln(F1,str); //读出文件内容
    a1 :=str; //将文件内容副给变量
    closeFile(F1); //关闭
    if a2=a1 then
    .....如何？可以实验此法。能给分吗
      

  5.   

    lishen(lishen) ,我没试,你这个方法似乎有问题啊,呵呵
    a2=a1 ????
      

  6.   

    FindDialog只是个窗体,方法要自己编写的