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

[Мессир]

Сколько не искал, не нашёл, проблема вот в чём:

type
    Ttest = record
        param1: widestring;
        param2: widestring;
    end;

    TarrayTest = array[1..N] of Ttest;

var
    test: TarrayTest;

begin
    test[1].param1 := 'asfasdfdsfdsafasdfasfasfas';
    test[1].param2 := 'asfsdfdasfdasfasdfdasfdsafasdfasdfas';
    showmessage( IntToStr( sizeof(test[1]) ) );
end.

выводит 4 или 8 байт размер... но это совершенно неверно, в widestring я могу и 1 мегабайт и 2 записать, и гигабайт, дак как получить истинное значение?
Если нельзя получить средствами делфи, можно ли как-нибудь перебрать все поля записи в цикле? ибо параметров может быть много, и функцию статичную писать неудобно К тому же не одну...

[BOBAH13]

Кто запретил использовать Length() ?

TTest, размер записи = SizeOf(TTest);
Узнать параметр Length(param1) + Length(param2)

[B_N]

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

Сколько не искал, не нашёл, проблема вот в чём:
выводит 4 или 8 байт размер... но это совершенно неверно, в widestring я могу и 1 мегабайт и 2 записать, и гигабайт, дак как получить истинное значение?

Вот это-то как раз и неверно потому, что там не widestring, а указатель на widestring, который в зависимости от машины может быть и 4, и 8, и 2, и т.д. байт. А вообще, да, sizeof() для самой записи и lstrlenW (и еще множество вариантов, вроде нулевого элемента строки в паскале) для юникод-строк.

[Мессир]

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

Кто запретил использовать Length() ?

TTest, размер записи = SizeOf(TTest);
Узнать параметр Length(param1) + Length(param2)

тогда уж Length(param1)*sizeof(char)?

Но придётся ведь все параметры в ручную обрабатывать, о чём я писал выше, а их может быть с десяток...

если б можно было сделать перебор в цикле всех полей записи... типа
"foreach (a in Ttest) size := size + length(a)*sizeof(char);" - типа подобное что-нибудь?!!

[B_N]

Мессир, Вы чего делаете-то, никак не пойму? размер строки определяете или размер структуры?

[BOBAH13]

sizeof(char) - ничего подобного сроду не видел ))) какой смысл умножать на 1 ? Или я математику призабыл... Поставьте точный вопрос ! И зачем всякие циклы если структуру всеравно не поменять во время выполнения программы. Опишите функцию которая возвращает размер структуры и юзайте ее, в чем проблема, уточните, что вы делаете со структурой ?

[B_N]

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

sizeof(char) - ничего подобного сроду не видел )))

Он, очевидно, имел в виду sizeof(TCHAR)

[BOBAH13]

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

Он, очевидно, имел в виду sizeof(TCHAR)

Извините, а не припомню чтобы в дельфи ( я использую 7ю версию ) был такой тип TChar ?! и даже если так, то какой смысл умножать на это ?!

[B_N]

Потому, что у него размер short - два байта

[Мессир]

Эх, нужно определить размер того, что хранится в структуре. Есть запись, в переменных param1 & param2 хранятся значения, переменных этих может быть 10, может быть 20, и надо определить размер в байтах всей записи! Не отдельно каждого поля записи! И не размер указателей на widestring, а именно того, что хранится в записи для последующей блочной записи в файловый поток.

Вот я и хочу описать функцию, которая высчитывает размер всех данных, хранящихся в структуре, но я не хочу писать типа:
inc(size, lstrlenW(param1));
inc(size, lstrlenW(param2));
inc(size, lstrlenW(param3));
это было бы неплохо как-то автоматизировать... Ибо таких записей может быть несколько, и для каждой писать такую функцию, конечно, не составит огромного труда, но как-то некрасиво получается...