Запись с вариантом

[beringoff]

Не могу врубиться, ужо скока лет.

Вот это понятно:

type 
  Zap= record
    case I: integer of
      0: A:integer;
      1: A:real;
    end;

А вот это ни фига:

type 
  Zap= record
    case integer of
      0: A:integer;
      1: A:real;
    end;

как определить значение селектора, что тут вообще является селектором?
если имеем, например, переменные:
I:integer;
R:real;
то как определить, когда будет правильно:
I:=Zap.A;
а когда:
R:=Zap.A;

[northener]

как определить значение селектора, что тут вообще является селектором?

1. Во втором варианте селектора просто нет.
2. В записи не может быть двух полей с одинаковым именем.

[beringoff]

Сообщение от northener

1. Во втором варианте селектора просто нет.

В чем тогда смысл?

[northener]

Сообщение от beringoff

В чем тогда смысл?

Смысл чего? Вариантной записи?
Или строки

case integer of

?
Если второе, то это просто формальность. Надо было хоть как-то дать компилятору понять что запись вариантная. Если первое, то это в двух словах не скажешь.

[evg_m]

то как определить, когда будет правильно:

если программист не предусмотрел поля для фиксации типа содержимого (case I:integer), то никак.

type
RZap= record
case integer of
0: (A: integer;);
1: (A: real;);
end;
 [Error] Unit1.pas(32): Identifier redeclared: 'A'

RZap= record
case integer of
0: (A: integer;);
1: (B: real;);
end;

X:=R.A;
Y:=R.B;

Как обратишься так и получишь, а уж что там будет ведает только программист(и программа) который заполняет.

[beringoff]

Сенька, так я и думал.
Фича бесполезная, заморачиваться не буду.

[northener]

Сообщение от beringoff

Фича бесполезная, заморачиваться не буду.

Программирование вообще вещь бесполезная. От него ничего хорошего не получишь окромя геморроя.

[beringoff]

Кроме геморроя оно еще и денюшку иногда приносит, а также удовольствие от красивого кода.

Просто встретил в книжке вот такое:

   in_addr = record
    case Integer of
    0: (S_un_b: SunB);
    1: (S_un_w: SunW);
    2: (S_addr: u_long);
   end;
   TInAddr = in_addr;
 
   sockaddr_in = record
    case Integer of
    0: (
     sin_family: u_short;
     sin_port: u_short;
     sin_addr: TInAddr;
     sin_zero: array[0..7] of Char);
    1: (
     sa_family: u_short;
     sa_data: array[0..13] of Char);
   end;
   TSockAddrIn = sockaddr_in;
   TSockAddr = sockaddr_in;

Таким образом, типы TSockAddr и TSockAddrIn — это синонимы типа sockaddr_in (но не того sockaddr_in, который имеется в стандартной библиотеке сокетов, а типа sockaddr_in, описанного в модуле WinSock). А тип sockaddr_in из WinSock является вариантной записью, и в случае 0 соответствует типу sockaddr_in из стандартной библиотеки сокетов, а в случае 1 — sockaddr из этой же библиотеки.
Захотелось разобраться до конца. Откуда же эти и в случае 0 соответствует типу sockaddr_in из стандартной библиотеки сокетов, а в случае 1 — sockaddr из этой же библиотеки. берутся.

[northener]

Сообщение от beringoff

Просто встретил в книжке вот такое:
Захотелось разобраться до конца. Откуда же эти берутся.

Ниоткуда. Просто такая форма указания вариантов наглядна для программиста. А все варианты существуют всегда и одновременно. И только программист определяет каким из вариантов воспользоваться в каждом конкретном случае.