[morebeauty]

Есть композиция:

Код:

type
TStringArray = array[0..FCount-1] of string;

TRec = record
Var1:string;
Vars:TStringArray;
end;

TRecs = array of TRec;

TClass = class
private
FRecs:TRecs;
public
constructor Create(Count:integer);
end;

var
FCount:integer;

***

constructor TClass.Create(Count:integer);
begin
FCount := Count;
end;

само собой оно не пашет, жалуясь на строку 2. Но, думаю, смысл написанного ясен. Как решить сию проблему БЕЗ ИСПОЛЬЗОВАНИЯ динамического массива TStringArray + SetLength(FRecs[i].Vars,a).