16,748
社区成员
发帖
与我相关
我的任务
分享
unit Unit1;
interface
type
PSecond = ^TSecond;
TSecond = packed record
a:Integer;
b:Integer;
end;
PFirst = ^TFirst;
TFirst = packed record
num:Integer;
sec:array of TSecond;
end;
implementation
end.
#ifndef Unit1H
#define Unit1H
struct TFirst;
struct TSecond;
typedef TSecond *PSecond;
#pragma pack(push, 1)
struct TSecond {
int a;
int b;
};
#pragma pack(pop);
typedef TFirst *PFirst;
#pragma pack(push, 1)
struct TFirst {
int num;
DynamicArray < TSecond > sec;
};
#pragma pack(pop);
#endif // Unit1H