Типизация. Строки. Типы в типах.

[Человек_Борща]

Доброго времени суток!

Есть некий объект TObject, у которого есть record TOptions:
1. как хранить строки произвольной длинны.
2. как в этот Toptions запихать ещё один record?

TObject
-TOptions
--Name:string;
--SmthProp:string;
--State:TValOptions; (или ^TValOptions)

Может быть и такое:
TObject
-TOptions
--Name:string;
--SmthProp:string;
--State:TValOptions; (или ^TValOptions)
---Status:TStatus; (или ^TStatus)

Так же, в каждом под-типе, могут быть строки.....

Как все это реализовать в памяти программы? Структура будет храниться в виде xml файла, и из него же загружаться.

[Аватар]

А в чем собственно проблемма? Например так

procedure TForm1.BitBtn1Click(Sender: TObject);
type TRecord1 = record
       name1: String;
       name2: String;
     end;
     Trecord2 = record
       alias1: String;
       alias2: String;
       count: Integer;
       array1: array of String;
       record1: TRecord1;
     end;
var record2: Trecord2;
    i: Integer;
begin
  record2.alias1:='тра-ля-ля';
  record2.alias2:='1111111111111111111111111111111';
  record2.count:=2;
  SetLength(record2.array1,record2.count);
  record2.array1[0]:='2222222222222';
  record2.array1[1]:='2222222222222+3333';
  record2.record1.name1:='1';
  record2.record1.name2:='1';

  Memo1.Lines.Add(record2.alias1);
  Memo1.Lines.Add(record2.alias2);
  for i:=0 to record2.count-1 do Memo1.Lines.Add(record2.array1[i]);
  Memo1.Lines.Add(record2.record1.name1);
  Memo1.Lines.Add(record2.record1.name2);
end;

[Stilet]

как хранить строки произвольной длинны.

TStringList
не?

[Человек_Борща]

Stilet, не вариант. У record'а есть поле Name:string и оно может быть любой длинны.

Во времени выполнения не критично применять в record'ах строки, вместо PChar'ов?

[Khayzenberg]

также нельзя прописывать в структурах динамические масивы. Нужно чтобы структура была фиксированной величины...