Код: Выделить всё
type RetData = record
Count: integer ;
CmdCode: integer ;
UserData: integer ;
Status: integer ;
CmdName: PChar ;
SendStr: PChar ;
Whole: PChar ;
RetItem: array [1..20] of PChar ;
OrigStat: array [1..6] of byte ;
end;
type n1RetData= array [1..10] of byte;
type nRetData = ^ n1RetData;
type
TMathFunc = procedure(const rt:RetData)stdcall;