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
То есть чтобы выдавала "рабочий" размер структуры в зависимости от выбора вариантного поля. Для работы с файлами пригодилась бы...
Такая стандартная есть?