/packages/mysql/src/my4_sys.pp

 1unit my4_sys;
 2
 3  interface
 4
 5    uses
 6      ctypes;
 7
 8    type
 9      st_dynamic_array = record
10        buffers : pchar;
11        elements : cuint;
12        max_elements : cuint;
13        alloc_increment : cuint;
14        size_of_element : cuint;
15      end;
16
17      tst_dynamic_array = st_dynamic_array;
18      pst_dynamic_array = ^tst_dynamic_array;
19
20  implementation
21
22end.