[morebeauty]

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

Код:

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

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

Код:

.....
var
FCount:integer;

***

constructor TClass.Create(Count:integer);
begin
FCount := Count;
end;

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

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

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

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

[Pyro]

Код:

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]

Код:

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

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

[poli-smen]

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

Код:

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

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

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

Код:

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

[morebeauty]

Код:

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

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

[lmikle]

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

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

Код:

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

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

Код:

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 погоды не делает и на производительности сильно не скажется.

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

Код:

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