Als Ergänzung zum
Post von Thomas (dummzeuch) hier der Link zur
Hilfe (Record-Typen). Zur Veranschaulichung:
Delphi-Quellcode:
type
TTestGuid =
{packed} record
c: Word;
ts1: TDateTime;
ts2: TDateTime;
end;
const
REC_SIZE = SizeOf(TTestGuid);
var
guid: TTestGuid;
p:
array[0..REC_SIZE - 1]
of Byte
absolute guid;
begin
FillChar(
guid, REC_SIZE, 0);
FillChar(
guid.ts1, SizeOf(TDateTime), MaxByte);
guid.c := MAXWORD;
var s:
String;
for var i: Integer := Low(p)
to High(p)
do
s := s + IfThen((p[i] <> 0), '
#', '
*');
ShowMessage(Format('
Size: %d: %s', [REC_SIZE, s]));
// Size: 24: ##******########********
Bis bald...
Thomas