[Aristarh Dark]

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

В том и фишка, что НЕ ОДИН вызов.

Код:

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;

Для того, чтобы задать размер TStringArray, к нему придется обращаться через TRecs = array of TRec;... То есть SetLength (FRecs.[i(от 0 до B)].Vars,A); то есть SetLength будет вызвано B раз

И что с того?