两个输入参数，想得到三个返回值，这样的函数该怎么写？

比较两个TStringList,根据特定的条件，返回比较后的三个TStringList参数：TStringList1, TStringList2
想返回三个值，分别是TStringList3、TStringList4、TStringList5请问这样的函数该怎么写？谢谢！

解决方案 »

  1.   

    把3，4，5实例化后传入
    procedure aa(strList1:TStringList;strList2:TStringList;var strList3:TStringList;var strList4:TStringList;var strList5:TStringList);
      

  2.   

    procedure TmpSL(sl1, sl2: TStringList; var sl3, sl4, sl5: TStringList);
    begin
      //-----函数内容
    end;
    ----------------
    调用函数
    var
      vsl1,vsl2,vsl3:TStringList
    begin
      TmpSL(TStringList1, TStringList2,vsl1,vsl2,vsl3);
    end;
    ---------------
    vsl1,vsl2,vsl3可以认为是TStringList3、TStringList4、TStringList5