Цитата:
|
Если FCount потом не меняется, задается через конструктор, то один вызов SetLength погоды не делает и на производительности сильно не скажется.
|
В том и фишка, что НЕ ОДИН вызов.
Код:
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 раз