Истинный объём памяти занимаемый записью, record

[alexBlack]

А если так ?:

Делаем процедуру один раз (если только для записи данных)

procedure WriteRecord(F:TStream; data:array of const);
begin
    for i:= low(data) to high(data) do begin
    
       case data[i].VType of 
           vtInteger : F.write(data[i].VInteger, sizeOf(integer));
            ...
           // Далее для всех типов
       end;
    end
end;

// А потом используем ее для любых типов:

type
    TR = record
          A : integer;
          B : String;
    end;

var R:TR;

WriteRecord(F, [R.A, R.B]);

[Мессир]

alexBlack, занятно, но у меня иной вопрос ещё есть - а можно ли осуществить перебор полей записи примерно так же, как Вы это делаете с массивом?

[BOBAH13]

Извините, но я думаю в object pascal этого не сделать Никак, и все таки какой же народ ленивый пошел все дай да чтобы и немного кода.

[B_N]

Сообщение от Мессир

alexBlack, занятно, но у меня иной вопрос ещё есть - а можно ли осуществить перебор полей записи примерно так же, как Вы это делаете с массивом?

RTTI Вам нужно, видимо. Смотрите документацию, я не знаю, как он в Дельфи реализован. В C++ это класс type_info и оператор typeid.

[alexBlack]

RTTI ничего не даст.

TypeInfo(TMyRecord); для простых записей компилятор говорит
"TMyRecord has no type info"

Если в запись добавить String, то TypeInfo() возвращает информацию, но в ней ничего нет кроме размера записи.

Так что скорее всего перебрать поля record не получится.

[B_N]

Я не имел в виду typeinfo по всей структуре, а только по ее членам, чтобы иметь возможность отличить в рантайме LPSTR от DWORD, к примеру. Честно говоря, я так и не понял до конца, чего <Мессир> хочет добиться.