[morebeauty]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

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).

[Aristarh Dark]

Никак
______________

[morebeauty]

О как! С трудом в это верится. Может есть и другие мнения?

[poli-smen]

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

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

Код:

А почему FCount сделана глобальной переменной?

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

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

А на чём основано ограничение на использование динамических массивов?
А по вопросу - record не может быть переменной длины.

[Pyro]

Код:

1 2 3 4 5

type   TRec = record     Var1: string;     Memo1: TMemo;   end;

[morebeauty]

А почему FCount сделана глобальной переменной?

Ну это очепятка. Пусть она будет в private класса.

А на чём основано ограничение на использование динамических массивов?

На нежелании каждый раз вызывать SetLength. Это мелочь, но из таких мелочей и формируется скорость работы приложения. Не так ли?

А по вопросу - record не может быть переменной длины.

Если посмотреть внимательнее, там array of record.


Pyro, использовать TMemo, TStrings или TStringList в данном случае неактуально. Мне не нужен набор методов и переменных данных классов. Зачем зря утяжелять? )

[Pyro]

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

Зачем зря утяжелять? )

тогда придётся зря усложнять...

[morebeauty]

А что если record переделать в класс?

[Aristarh Dark]

Будет сильно круто.

[poli-smen]

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

Если посмотреть внимательнее, там array of record.

Это массив record-ов у тебя переменной длины (так как динамический массив), я же говорил о самом содержимом record-а. Ты пытаешься впихнуть в record массив переменной длины, а соответственно record тоже должен автоматически менять свой размер в зависимости от этого массива - в таком виде это невозможно.
В общем то и массивов переменной длины в Delphi нет - либо статические, либо динамические.

[morebeauty]

Код:

1	В общем то и массивов переменной длины в Delphi нет - либо статические, либо динамические.

Я знаю. Мне не нужен массив переменной длинны, мне нужен статический массив от константы. Вот только саму константу неплохо было бы определить как нибудь... эээ... раньше...

[poli-smen]

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

Код:

Я знаю. Мне не нужен массив переменной длинны, мне нужен статический массив от константы. Вот только саму константу неплохо было бы определить как нибудь... эээ... раньше...

Ну если "статический массив от константы", то это легко делается :

Код:

1 2 3 4

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

[morebeauty]

Код:

1	Ну если "статический массив от константы", то это легко делается

Ага. Вот только константу бы мне как то определить при создании класса... )))

[lmikle]

Сообщение от poli-smen

Ну если "статический массив от константы", то это легко делается :

Код:

Вопрос, а чем тебя не устраивает что-то типа:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

type   TMyClass = class   privatre     FCount : Integer;     A : Array Of String;   public     constructor Create(ACount : Integer); virtual;       property Count : Integer read FCount;   end;   constructor TMyClass.Create(ACount : Integer); begin   FCount := ACount;   SetLength(A,FCount); end;

Если FCount потом не меняется, задается через конструктор, то один вызов SetLength погоды не делает и на производительности сильно не скажется.

[morebeauty]

Если FCount потом не меняется, задается через конструктор, то один вызов SetLength погоды не делает и на производительности сильно не скажется.

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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 раз