Value : Variant; // 統計數值 Value:= VarArrayCreate([1,18], varVariant); if ChartType<>3 then Qc_Draw(Series_Up,CtDataU_X,CtDataU_Y,Value[11],Value[10],Value[12]) RUN [Error] UFrm_Chart.pas(1503): Types of actual and formal var parameters must be identical

應該是你在Call Function時傳入的資料型態不對.    

 
procedure MyFunc(var A: Integer);    var
  A: Word;
begin
  A := 100;
  MyFunc(A);<編譯不會過
end;    

更正!

procedure MyFunc(var A: Integer);
begin
  ...
end;    procedure CallFunc();
var
  A: Word;
begin
  A := 100;
  MyFunc(A);<--編譯不會過
end;    [blue]//call MyFunc時, 傳入的參數型態必須一致,
因為它是Call By Reference的形式[blue]