forum.clarionlife.net

Код: Выделить всё

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;