Цитата:
|
Сообщение от 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 раз |
И что с того? |