Вариантный SizeOf Опции

[TarasBer]

type
  A = record
    case boolean of 
      true: (t: integer);
      false: (f: array [0 .. 9999] of integer);
  end;

Мне нужна функция такого плана:
MySizeOf(A, True)=4
MySizeOf(A, False)=40000
То есть чтобы выдавала "рабочий" размер структуры в зависимости от выбора вариантного поля. Для работы с файлами пригодилась бы...
Такая стандартная есть?

Сообщение отредактировано: TarasBer - 13.10.2010 10:02

[volvo]

"Можно и зайца научить курить" (С)
Смысл в чем?

В том, чтобы при записи в файл писать нужное число байт? Ну, так у тебя ж поля в разных вариантах не с одним именем, а с разными, то есть, ты однозначно знаешь, какое поле пишется, вот и вызывай SizeOf для него, а не для структуры в целом.

Для чего-то другого? Тогда расскажи для чего...