Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > Записи с вариантами


Автор: AndreyZ53 12.2.2010, 22:20
Здравствуйте, не мог найти ответ на вопрос, скажите пожалуйста как обращаться к полям записей с вариантами

Например
Код

Type
 Pol=(m,j);
TPol=record
 case Tag:Pol of 
  m:(n:string);
  j:(m:string);
end;



Как мне обратится к n и m или как там обращаются к этим полям, за ранее спасибо

Автор: bems 12.2.2010, 22:39
так, как будто нет никаких вариантов. Через точку.

Автор: AndreyZ53 13.2.2010, 10:09
Очень остроумно

я прошу подробно, тут и так понятно, что через точку

Вот есть запись типа TPol
var
 Rec:TPol;

Вот так Rec.m:='123'; обратится нельзя, вот я и спрашиваю как правильно будет, я прошу помощи.

Автор: volvo877 13.2.2010, 11:32
Цитата(AndreyZ53 @  13.2.2010,  09:09 Найти цитируемый пост)
Вот так Rec.m:='123'; обратится нельзя
"Очень остроумно" (С)

С чего бы это нельзя? Вот использовать в записи тип string - нельзя, Дельфи откажется компилировать такой код. Пользуйся ShortString... А обращение Rec.m := '123' вполне себе работает...

Автор: bems 13.2.2010, 11:40
Цитата(AndreyZ53 @  13.2.2010,  10:09 Найти цитируемый пост)
Очень остроумно

даже не пытался быть остроумным.

Цитата(AndreyZ53 @  13.2.2010,  10:09 Найти цитируемый пост)
Вот так Rec.m:='123'; обратится нельзя, вот я и спрашиваю как правильно будет, я прошу помощи.

Обратиться как раз можно именно так. Другой вопрос, что перед тем как делать что-либо с полем, ты должен сам проверить значение Tag, а поскольку поля m и j управляются компилятором (строки же), то ты не можешь избежать записи в поля без проверки. Слежовательно этот тип ошибочен.
Если подставить туда чтонибудь, что не требует управления со стороны компилятора, то просто через точку.
Код

Type
 Pol=(m,j);
TPol=record
 case Tag:Pol of 
  m:(n:ShortString);
  j:(m:ShortString);
end;
var Rec: TPol;
begin
 Rec.m := '123';


Возможно даже записывать в m, когда Tag = m, ты должен сам проследить за целостностью данных.

Добавлено через 30 секунд
volvo877, опередил, да

Автор: AndreyZ53 13.2.2010, 15:02
Спасибо большое за подробный ответ, теперь все стало понятно

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)