同上

解决方案 »

  1.   

    var
      strlist:TStringList;
    begin
      strlist:=TStringList.Create();
      try
        list(strlist);
        memo1.Lines.Add(list);
      finally
        strlist.free;
      end;
    end;
      

  2.   

    看不懂,有list这个函数吗?没有找到。
      

  3.   

    错了,应该是:
    var
      strlist:TStringList;
    begin
      strlist:=TStringList.Create();
      try
        list(strlist);
        memo1.Lines.Assign(list);
      finally
        strlist.free;
      end;
    endto  idilent(只有方案,没有细节)
    我估计他是用别人的程序,有个函数叫list。。
      

  4.   

    一楼不对,那个函数返回值是boolean型的,只能做if list()=true then进行判断