2012/7/7 Marco van de Voort <[email protected]>:
> seqence_crc:=pint64(data)^;
> seqence_key:=pint64(@data[8])^;
> compr_crc:=pint64(@data[16])^;
> compr_len:=pint64(@data[24])^;
How about defining something more pascalish first, a record type for example:
{$modeswitch autoderef}
type
PDataHeader = ^TDataHeader;
TDataHeader = record
sequence_crc: QWord;
sequence_key: QWord;
compr_crc: QWord;
compr_len: DWord;
end;
var
Data: PDataHeader;
SeqCrc: QWord;
SeqKey: QWord;
...
begin
Data := WhereverThisComesFrom();
SeqCrc := Data.sequence_crc;
SeqKey := Data.sequence_key;
...
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
