C++结构体与Delphi结构体相互传参，结构体中包含结构体的嵌套，数组指针 - Delphi

TOP

C++结构体与Delphi结构体相互传参，结构体中包含结构体的嵌套，数组指针(二)

2019-08-23 00:31:43 【大中小】浏览:171次

ates"][i]["mWindDirectBaseLine"][j].Get("i", Root.WindDirectLine.coordinates[i].mWindDirectBaseLine[j].i); Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBaseLine"][j].Get("s", Root.WindDirectLine.coordinates[i].mWindDirectBaseLine[j].s); Root.WindDirectLine.coordinates[i].mWindDirectBaseLine++; } int mWindDirectBars_Length = Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBars"].GetArraySize(); Root.WindDirectLine.coordinates[i].mWindDirectBars = (struct Mwinddirectbar *)malloc(nums * sizeof(struct Mwinddirectbar)); for (int k = 0; k < mWindDirectBars_Length; k++) { string Str2; F f; H h; Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBars"][k]["f"].Get("p", Str2); f.p = ReturnCharArr(Str2); Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBars"][k]["f"].Get("s", f.s); Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBars"][k]["f"].Get("i", f.i); Str2 = ""; Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBars"][k]["h"].Get("p", Str2); h.p = ReturnCharArr(Str2); Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBars"][k]["h"].Get("s", h.s); Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBars"][k]["h"].Get("i", h.i); Root.WindDirectLine.coordinates[i].mWindDirectBars[k].f = f; Root.WindDirectLine.coordinates[i].mWindDirectBars[k].h = h; Root.WindDirectLine.coordinates[i].mWindDirectBars++; } Root.WindDirectLine.coordinates++; } return Root; //strs->WindDirectLine.coordinates = coor; //strs->WindDirectLine->coordinates = coor; //strs->gridMethod = 50; } C++赋值并返回

 type Huxianarray = record Params:^ double; end; type Hengxianarray = record Params:^ double; end; type Resultwindspeedgrid = record HuxianShu:Integer; HuxianArrays:^ Huxianarray; HengxianShu:Integer; HengxianArrays:^ Hengxianarray; end; type Coordinate1 = record p:pansiChar; s:Integer; i:Integer; end; type Windspeedline =  record types:pansiChar; coordinates:^ Coordinate1; end; type H = record p:pansiChar; s:Integer; i:Integer; end; type F =  record p:pansiChar; s:Integer; i:Integer; end; type Mwinddirectbar = record f:F; h:H; end; TMyArraybar = array of Mwinddirectbar; PMyArraybar = ^TMyArraybar; type Mwinddirectbaseline = record p:pansiChar; s:Integer; i:Integer; end; type Coordinate = record
// TCoordinate = record
 mWindDirectBaseLine: ^Mwinddirectbaseline; mWindDirectBars: ^Mwinddirectbar; end; type Winddirectline = record coordinates: ^Coordinate; end; type Rootobject = record gridStartTime:pansiChar; gridEndTime:pansiChar; resultStartTime:pansiChar; resultEndTime:pansiChar; gridMethod:Integer; WindDirectBorder:pansiChar; WindDirectLine:Winddirectline; WindSpeedBorder:pansiChar; WindSpeedLine:Windspeedline; // LineDateTimeRelations:pointer; // RatioConverts:pointer;
 resultWindDirectGrid:pansiChar; r

首页上一页 1 2 3 下一页尾页 2/3/3
【大中小】【打印】【繁体】【投稿】【收藏】【推荐】【举报】【评论】【关闭】【返回顶部】

上一篇：delphi中WMI的使用（网卡是否接入..	下一篇：Delphi中使用ISuperObject解析Jso..