: zswang(伴水)(被黑中) >what??

解决方案 »

  1.   

    为什么不用TStringList操作文本文件
      

  2.   

    var mystrlist:Strings;
        f:textfile;
    begin
         assignfile(f,'c:\abcd.txt'); 
         reset(f);
         mystrlist:Tstringlist.create;
         TStringList:=??????????????????;
    end;
     TStringList类型的变量如何跟F相关联起来?
      

  3.   

    var mystrlist:Strings;
        f:textfile;
        s: String;
    begin
        assignfile(f,'c:\abcd.txt'); 
        reset(f);
        mystrlist := Tstringlist.create;
        while not Eof(f) do
        begin
          Readln(f,s);
          mystrlist.Add(s);
        end;
        CLoseFile(f);
        mystrlist.free;//mystrlist 用完后释放资源
    end;