结构体套接结构体

TUDPPatientInfoUnion = packed record
case Integer of
0: (A: TUDPPatientInfo);
1: (B: array[0..Sizeof(TUDPPatientInfo) - 1] of Byte);

TUDPPatientInfo = packed record
upIdNum: array[0..16 - 1] of Char; //ID号
upName: array[0..16 - 1] of Char; //array[0..32 - 1] of CHAR; // 姓名
upSex: array[0..8 - 1] of Char; // 性别
upAge: array[0..8 - 1] of Char; // 年龄
upStature: array[0..8 - 1] of Char; // 身高
upAvoirdupois: array[0..8 - 1] of Char; // 体重
upDateTime: array[0..20 - 1] of Char; //Byte; // 开始时间格式：yyyy-mm-dd hh:mm:ss 别的格式，有可能我解析不了
upPrescription_1: array[0..32 - 1] of Char; //Byte; // 用药 1
upDiagnosis: array[0..32 - 1] of Char; //Byte; // 诊断
upSymptom_1: array[0..32 - 1] of Char; //Byte; // 症状 1
upDepartment: array[0..32 - 1] of Char; //申请科室
upOperator1: array[0..16 - 1] of Char; //操作医生1 千万别超过10个字符
upOperator2: array[0..16 - 1] of Char; //操作医生2 千万别超过10个字符
upDiagnostician: array[0..16 - 1] of Char; //报告医生 千万别超过10个字符
upExaminingDoctor: array[0..16 - 1] of Char; //审核医生 千万别超过10个字符
upArryPatient_Conclusion: array[0..12, 0..64 - 1] of Char; //诊断结论
upPatient_ID: array[0..16 - 1] of Char;
end;

定义  UDPPatientInfoUnion: TUDPPatientInfoUnion; //病人基本信息结构体

清空结构体  FillChar(UDPPatientInfoUnion, SizeOf(UDPPatientInfoUnion), 0);

调用    StrPLCopy(UDPPatientInfoUnion.A.upSex,FSexName,Length(FSexName));赋值