关于流文件的最基本的简单问题请教。。

Question

我想做成类似文件一样，不用MEMO等显示出来，我要一行一行的判断LOG里面数据的内容，所以怎么实现呢？这是我写的，但是写不下去了：MS:=TFileStream.Create(frmMain.OpenDialog.FileName,fmOpenRead or
                             fmShareExclusive);
      FSize:=MS.Size;
      frmMain.lblFSize.Caption:=IntToStr(FSize);
      
      MS.Seek(-SizeOf(FileSize),soFromBeginning);    {取资源}      MS.ReadBuffer(FileSize,SizeOf(FileSize));     //这么读？？？？？？？？？？？？？？？？？？？可是怎么取我要的东西呢？比如POS（‘.’，S）之类的？？？
      
      frmMain.cxMemo1.Lines.Add(IntToStr(FileSize));      MS.Free;

Answer 1

var
  List: TStringList;
  i: Integer;
begin
  List := TStringList.Create;
  try
    List.LoadFromFile(frmMain.OpenDialog.FileName);
    for i := 0 to List.Count - 1 do
    begin
      if List[i] = 'xxxxxx' then .....;
      .....
    end;
  finally
    List.Free;
end;

Answer 2

>>我要一行一行的判断LOG里面数据的内容
這樣的話, 你還是用個 TStringList 比較方便, 
就是 StringList.LoadFromFile
然後取每行處理就可!!