> particle_t = record
> name: array [0..Pred(16)] of char;
> longi: integer;
> pressure: float;
> temperature: double;
> lati: integer;
> end;
>
> ibuf: array [0..Pred(2)] of particle_t;
> (* raw translation by automatic tool *)
> ibuf:=(('zero'#0,0,0.0f,0.0,0),('zero'#0,0,0.0f,0.0,0));
This should work:
type
TRoleDetails = record
Name, Descr: String;
end;
const
cRoles: array[1..3] of TRoleDetails = (
(Name: 'zEditRole'; Descr: 'z Edit role descr'),
(Name: 'yEditRole'; Descr: 'y Edit role descr'),
(Name: 'xEditRole'; Descr: 'x Edit role descr')
);
You need to name the elements, and they need to be in the order they're
declared in the record.
Moz
_______________________________________________
fpc-pascal maillist - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
