Question

Delphi 自定义数组类型取值问题,每次取到的数组都是0

//webservice中的方法：function GetNowRCDataByMONumber(const sMONumber: string): ArrayOfTpRcWipRecVO; stdcall;
自定义数组类型：ArrayOfTpRcWipRecVO = array of TpRcWipRecVO;
TpRcWipRecVO = class(BaseVO)
private
FPART_NO: string;
FPART_NO_Specified: boolean;
procedure SetPART_NO(Index: Integer; const Astring: string);
function PART_NO_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
property PART_NO: string Index (IS_OPTN or IS_NLBL) read FPART_NO write SetPART_NO stored PART_NO_Specified;
end;
//调用

procedure TForm3.btn1Click(Sender: TObject);
var
myarr:ArrayOfTpRcWipRecVO;
//myarr2:TpRcWipRecVO;
s:string;
begin
SetLength(myarr,1);
myarr:=(htpr1 as iMO_Manager).GetNowRCDataByMONumber('SFD59818-A');
s:=myarr[0].PART_NO;
ShowMessage(s);
end;

Answer 1

SetLength(myarr,1);　//设置数组长度为1，实际上只能存一个值
myarr:=(htpr1 as iMO_Manager).GetNowRCDataByMONumber('SFD59818-A');
s:=myarr[0].PART_NO;//这里也只取了[0],就只是第一个值
ShowMessage(s);//这里肯定永远都只能是前面取的长度为1的数组的第一个值

不知道你GetNowRCDataByMONumber('SFD59818-A')返回的到底是个什么东西

追问

ArrayOfTpRcWipRecVO = array of TpRcWipRecVO;
这 是它返回的数据类型，是一个自定义的数组类型，数组类型的基类型也是自定义的类TpRcWipRecVO = class(BaseVO)，返回的应该是有很多数据才是