тип записи один, а поля разные:
Код:
type
TFruit = record
Name: String;
Color: TColor;
Figure: Integer;
case Integer of
0: (
Weight: Integer;
More: String[10];
Words: array [0..1] of Word;
);
1: (
Size: Integer;
Next: String[10];
Bytes: array [0..3] of Byte;
);
end;
...
var
f: TFruit;
begin
f.Weight:=123;
f.More:='abc';
ShowMessage(IntToStr(f.Weight));;
ShowMessage(f.More);
f.Size:=456;
f.Next:='xyz';
ShowMessage(IntToStr(f.Weight));;
ShowMessage(f.More);
end;
__________________
Пишу программы за еду.
__________________
|