Re: Сложный тип данных 2
Здоровеньки булы, GENEMI!
9 января 2005 г., воскресенье, 22:58:32 (GMT+05:00), пришел ко мне
почтальон Почкин и всучил письмо с пометкой "Сложный тип данных 2",
в котором сообщалось следующее:
G> А теперь как узнать что находится заполненным в MyF? то етсь что
G> именно было заполнено ( MyF := ...???; )
case MyF of
Sun: Showmessage('Sun');
Mandrake: Showmessage('Mandrake');
Microsoft: Showmessage('Microsoft');
else
Showmessage('Хм...');
end;
G> а что нет?
В смысле "а что нет?" если что-то оджно там лежит - другое не может.
Может тебе множества нужны? Вот так:
type
TMyType = (Sun, Microsoft, Mandrake);
var
MyS: set of TMyType; // множество
begin
MyS := []; // пустое множество
MyS := [Sun];
MyS := [Mandrake];
MyS := [Microsoft];
MyS := [Sun, Mandrake]; // множество содержит и Sun и Mandrake
if Sun in MyS then Showmessage('Sun');
if Mandrake in MyS then Showmessage('Mandrake');
if Microsoft in MyS then Showmessage('Microsoft');
end;
G> И какие вообще возможности дает программисту свой новый тип данных?
Дык, а тебе что надо? Программирование вообще много чего дает,
программу например свою написать можно ;)
