case в Record

[VintProg]

Вот код.

type
 TGR = Record
    base : string;

   case Boolean of
     true: (hgs : integer);
     false: (hf : single);

  end;

и что она дает case?

[Stilet]

А учебники советские по Паскалю уже не в моде?
http://doki.far.ru/pascal/records.html

[Grag]

Я полагаю что это позволяет динамически (в режиме Run-time) определить тип данных, хранящихся в исходной строке (после преобразования в числовой эквивалент). Либо это 32-х битовое целочисленное со знаком, либо 4-байтовое вещественное... Так как-то видится....

[VintProg]

А учебники советские по Паскалю уже не в моде?

Я конечно читал учебники но про case в record, там не было?

Но а как использовать вариант?

[Grag]

Объявляешь переменную как тип variant, а потом ей присваиваешь значение...

Var
  V:Variant;
...................
V:=123.456;
V:=56;
V:='А это строка';

[VintProg]

Объявляешь переменную как тип variant, а потом ей присваиваешь значение..

Все тоже самое, что использовал case что нет?

[Stilet]

Но а как использовать вариант?

Это уже не в моде... Тип Variant сейчас рулит, и кстати даже от него уже стараются отказаться.

[Ol'ga_new]

Stilet дал хорошую ссылку, там про case в record в самом конце написано!

[megachuhancer]

даже от него уже стараются отказаться.

Каким образом? В смысле что взамен предполагается использовать?

[Serge_Bliznykov]

Но а как использовать вариант?

а чем Вам не устроил пример, который описан по ссылке из поста #2 Stilet ?!
в зависимости от типа фигуры можно задавать/ использовать разные характеристики!

или пример из встроенного в TP хелп:

type
  Class  = (Num, Dat, Str);
  Date   = record
     D, M, Y: Integer;
  end;
  Facts = record
    Name: string[10];
    case Kind: Class of
      Num: (N: real);
      Dat: (D: Date);
      Str: (S: string);
  end;