如何得到一个stream中的某一特定字符串的位置？

Question

AfterBBStr := Copy(aaa,pos(bb,aaa)+length(bb),length(aaa));

Answer 1

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

Answer 2

我的意思是对Tstream好像没有pos函数

Answer 3

borlandor(大民) :
能详细一点吗，谢了。

Answer 4

function  LoadFromFile(FileName:String): Integer;
var FileStream: TFileStream;
    Reader: TReader;
    S,AfterBBStr: String;
begin
  try
    FileStream := TFileStream.Create(FileName, fmOpenRead);
    Reader := TReader.Create(FileStream, 4096);
    try
      Result := FileStream.Size;
      SetLength(S,Result);
      Reader.Read(Pointer(S)^,Result);      AfterBBStr := Copy(S,pos(bb,S)+length(bb),length(S));    finally
      Reader.Free;
    end;    finally
      FileStream.Free;
    end;
end;