Und noch eine kleine Frage: Kann ich auch nach dem Case noch weitere Variablen in den Record einfügen?
Verschachteln wäre eine Variante.
Code: Alles auswählen
type
TRec = packed record
d1: byte;
d2: Byte;
r: record
case byte of
0:
(dd1: byte;
dd2: integer);
1:
(Feld3: array[1..10] of char);
end;
d4: integer;
end;