[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 не может быть переменной длины.

[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;

[Pyro]

Код:

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