举个简单的例子:文件(真正的文件可能很大)内容为: 主任每个后果yiyuxu巨大的位置为: 13该位置的内容(我想要的结果):y如何实现返回等于“y”的这个字符串?谢谢

解决方案 »

  1.   

    Memo.SelStart:=13-1;
    Memo.SelLength:=1;
    s:=Memo.SelText;
      

  2.   

    不用memo组件呢刚才说的是我程序中的一部分。用Tfilestream怎么实现?哪位知道谢谢
      

  3.   

    那就只能把文件流读入Buf: array [0..1024] of Char; 然后循环判断了
      

  4.   

    类似:
    const pos=12;
    var a:TFileStream;
        buf:char;
    begin
      a:=TFileStream.Create('c:\1.txt',fmOpenRead);
      a.Position:=pos;
      a.Read(buf,1);
      ShowMessage(buf);
      a.Free;
    end;
      

  5.   

    上面的程序中,我把buf改成string类型,为什么就没有信息弹出来了?
      

  6.   

    string 从1开始标号
    s: string; s[1]试试
      

  7.   

    function Read(var Buffer; Count: Longint): Longint; virtual; abstract; buffer是什么类型的参数啊?
      

  8.   

    buffer可以是任何类型。事实上这个函数是传一个无类型的指针过去。要用string,要事先填充string。然后用s[1]