함수파라미터에 동정 레코드 타입의 배열 변수를 넘겨  값을 얻을려구 하는데..setlength 함수에서 incompatible type 에러가 뜨네요 쩝
마음만 급하네요 ..


function GetPartInfo(AHandle: THandle;sIP : String; sPort : integer; var sPartInfo : array of TDepData_SH) : integer;//;
var
  fPartinfo: TfPartinfo;
  sRe : TModalResult;
begin
  Application.Handle := AHandle;
  fPartinfo := TfPartinfo.Create(Application);
  fPartinfo.CSPartinfo.Address := sIP;
  fPartinfo.CSPartinfo.Port := sPort;

  sRe := fPartinfo.ShowModal;

  Setlength(sPartInfo, fPartinfo.nRecvCnt);  //<===이부분에서 incompatible type

  fPartinfo.Free;

  case sRe of
    mrOk   : Result := 0;
    mrRetry: Result := 1;
    mrNo   : Result := 2;
    else     Result := 3;
  end;
end;