Есть композиция:
Код:
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).