Delphi动态结构体数组传递值

最新推荐文章于 2022-06-06 22:30:20 发布

weixin_34133829

最新推荐文章于 2022-06-06 22:30:20 发布

阅读量564

点赞数

文章标签： python c#

原文链接：https://my.oschina.net/u/2607133/blog/599018

版权

2019独角兽企业重金招聘Python工程师标准>>>

  TMultiSelectStudent = packed record
    StudentNo: string[20];
    StudentName: string[30];
  end;
  TStudentSelectRecord = packed record
    vType: string[10]; 
    IsMultiSelect: Boolean; 
    StudentName: TRoomRecord;
    studerntType: TRoomTypeRecord;
    MultiSelectstudent: array of TMultiSelectStudent ; 
  end;
  
  引用：
  var
    arrMsStudent: TMultiSelectStudent;
    count: integer;
    begin
       count := Length(FRSR.MultiSelectStudent[0])
       SetLength(arrMsStudent, count);
       {长度用SizeOf*Count取，不然会取不全，出现乱码}
       CopyMemory(@arrMsStudent[0], @FRSR.MultiSelectStudent[0],
        SizeOf(FRSR.MultiSelectRoom[count - 1]) * count);
     end;

转载于:https://my.oschina.net/u/2607133/blog/599018