Delphi 问题

Question

请大家帮忙啊  
Function uf_zmm_Lable(par_NCMP, par_PINO:string): Boolean;  Function Print_Copy(HCUNO: String; SETLabel: TCunoLabel): integer; If(cnLily_Carton_Label In CUNOlabel) Then
        Begin
        moShow.Lines.Add('Print Lily Carton Label Start.');
        If uf_zmm_Lable(NCMP,PINO,Print_Copy(cds21_9.FieldByName('HCUNO').AsString,cnLily_Carton_Label)) Then
          moShow.Lines.Add('Print Lily Carton Label Success.')
        Else
          moShow.Lines.Add('Print Lily Carton Label Fail.');
        moShow.Lines.Add('Print Lily Carton Label End.');
      End;这句报错： If uf_zmm_Lable(NCMP,PINO,Print_Copy(cds21_9.FieldByName('HCUNO').AsString,cnLily_Carton_Label)) Then提示：Too many actual parameters

Answer 1

Function uf_zmm_Lable(par_NCMP, par_PINO:string): Boolean;
你这个函数声明是两个参数
uf_zmm_Lable(NCMP,PINO,Print_Copy(cds21_9.FieldByName('HCUNO').AsString,cnLily_Carton_Label))
你使用的时候是三个参数，去掉一个参数