Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | type
TNumLockMagic = record
case Integer of
10: (
s10: array [0..9] of Char;
);
5: (
s5: array [0..4] of Char;
);
1: (
s1: array [0..0] of Char;
);
end;
var
nl: TNumLockMagic;
begin
nl.s10:='_123456789';
ShowMessage(nl.s10);
ShowMessage(nl.s5);
ShowMessage(nl.s1);
end;
|
|
24.04.2014, 19:50
Древовидный вид