Динамический массив и записи произвольной длины (Delphi)

[[DisAssembleR]]

Доброго времени суток, товарищи.

Недавно задался вопросом: существует ли возможность записи данных типа Packed Record (или просто Record) в динамический массив?
Насколько я разобрался, если длина данных фиксирована, то такое возможно реализовать. Но как быть, если длина данных произвольная?
Юзать TStream или все-таки есть возможность записать даннные произвольной длины массивом?

Чтобы было что-то наподобие:
A[0].Text := 'Text';
A[1].Text := 'Text_1';
A[2].Text := 'Text'_1_2;

Я думал записывать сначала "шапку"(1), состоящую из самого массива, имеющего указатели на данные, но способ немного громоздкий, поэтому интересуюсь есть ли возможность писать данные произвольного размера прямо в массив или нет?

(1)
"Шапка":
A[0] := 10;
A[1] := 15;
A[2] := 20;

Сами данные:
A0 := 'Text';
A1 := 'Text_1';
A2 := 'Text_1_2';


Кода никакого не прошу, просто подтолкните в каком направлении копать, либо может упустил чего.

Заранее спасибо.

[Stilet]

как быть, если длина данных произвольная?

А как ты произвольную длину вообще в Record засунул? О_о

[[DisAssembleR]]

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

А как ты произвольную длину вообще в Record засунул? О_о

да, сформулировал невнятно, конечно. Хотел сказать, что имеем это:

type
  TFileHeader= Packed Record           
  sNameSize: LongInt;        
  sName: WideString;         
  sAuthorSize: LongInt;          
  sAuthor: WideString;          
end;

и можно ли "это" присвоить элементу массива и записать целиком как массив?

Сейчас для строки произвольного размера я делаю так:

Сначала просто записываю массив, содержащий в себе размер строки.

Затем записываю саму строку:

procedure WriteHeadData(TF: TFileStream; const wtdData: WideString; wtdSize: LongInt); overload;
begin
if wtdSize > 0 then
  TF.WriteBuffer(wtdData[1], wtdSize*SizeOf(wtdData[1]));
end;

Вроде бы работает, но может есть иной путь?

[Stilet]

По прежнему не понимаю...
Ты это: http://ru.wikipedia.org/wiki/%D1%E5%...E7%E0%F6%E8%FF
хочешь сделать?

[[DisAssembleR]]

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

По прежнему не понимаю...
Ты это: http://ru.wikipedia.org/wiki/%D1%E5%...E7%E0%F6%E8%FF
хочешь сделать?

Не совсем. В планах сделать нечто, похожее на контейнер для данных. Данные могут иметь различный вид: текст, числа, дробные числа, картинки, все, что угоддно. И меня интересует реализация: возможно ли сделать так, чтобы данные записывались целиком массивом, без вычисления смещений в файле-носителе? То есть как это сделать с помощью потоков (TStream) я понял, но может есть возможность сделать это же с помощью динамического массива. Поясню еще разок.

Если есть сзапись фиксированного размера, то ее возможно записать в файл простым присовением n-го элемента массива.
Например запись такого вида:

type
  TFileHeader= Packed Record           
  sSize: integer;        
  sName: string[10];         
  sDataSize: integer;                
end;

запишется без проблем.
Я смогу выполнить это так:

  TFileData= array[1..10] of TFileHeader;
...
var
  TSA: TFileData;
...
for i:=1 to Length(TSA) do
begin
  TNC[i].sSize := 100;
  TNC[i].sName := 'FileName';
  TNC[i].sDataSize := 200;
end;

И легко это запишу в файл:

...
  TFileStream.WriteBuffer(TSA, SizeOf(TSA));
...

И в итоге получаем, что элемент А массива TSA содержит в себе все данные из записи.
Грубо это выглядит так: TSA[1] := sSize, sName, sDataSize;

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

Повторюсь: я понимаю, что можно писать сначала сам массив с данными фиксированного размера (например, с типами TDate, integer, LongInt, etc), а затем сами данные, но меня интересует как писать в каждый элемент массива данные произвольного размера?

[Stilet]

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

По-моему нет какого-то универсального способа, учитывая что переменная может быть указателем. Я лично для таких записей описываю метод, который формирует стрим, для каждого типа отдельный. Кода больше зато я точно знаю что сериализация пройдет так как мне хочется.

[[DisAssembleR]]

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

По-моему нет какого-то универсального способа, учитывая что переменная может быть указателем. Я лично для таких записей описываю метод, который формирует стрим, для каждого типа отдельный. Кода больше зато я точно знаю что сериализация пройдет так как мне хочется.

Жаль, но ладно.
Буду по-старинке делать: "шапка" - "тело" и т.д.
Спасибо за уделенное моему вопросу внимание

[Аватар]

XML не подходит?

[[DisAssembleR]]

Сообщение от Аватар

XML не подходит?

Полгаю, что в моей проблеме он не нужен

[Stilet]

Ну почему же? Вполне и его можно использовать, даже если держать в памяти. Хотя я как-то с ним не особо дружу.