Как правильно описать свойство класса?

← →
Valerio © (2006-06-05 19:56) [0]

perseptron = class(TObject)

private
FNerons1: array of TNeron;
.
.
.
FWesList4: real;
FLayCount: integer;

public
property Nerons1: array of TNeron read FNerons1 ; //в здесь облом
end;

Уважаемые мастера, подскажите как мне описать свойство, в котором заранее неизвестно к-во элементов?

← →
Джо © (2006-06-05 19:59) [1]

Например, так:
TMyClass = class private function GetItems(Index: Integer): string; procedure SetItems(Index: Integer; const Value: string); public property Items[Index: Integer]: string read GetItems write SetItems; default; end;

← →
Джо © (2006-06-05 20:01) [2]

Ну, если уж очень захотел голым массивом в мир светить, то тогда так:
TMyClass = class private function GetItems: TMyArray; procedure SetItems(const Value: TMyArray); public property Items: TMyArray read GetItems write SetItems; end;
или так:

TMyClass2 = class private FItems: TMyArray; public property Items: TMyArray read FItems write FItems; end;

← →
Джо © (2006-06-05 20:02) [3]

Где
TMyArray = array of Something;

← →
Valerio © (2006-06-05 20:04) [4]

Спасибо Сейчас попробую.

← →
Loginov Dmitry © (2006-06-05 20:12) [5]

Valerio © (05.06.06 19:56)
perseptron = class(TObject)

private
FNerons1: array of TNeron;
.
.
.
FWesList4: real;
FLayCount: integer;

public
property Nerons1: array of TNeron read FNerons1 ; //в здесь облом
end;

Зачем ерундой заниматься? Зайди на BaseGroup.ru - там и нейросети, и классы и свойства...

> Зачем ерундой заниматься?

Ерундой?
Программирование/кодирование алгоритмов далеко не ерунда.

Пусик © (05.06.06 22:27) [6]
Программирование/кодирование алгоритмов далеко не ерунда.

Ну это смотря какие алгоритмы программировать. Программировать нейронные сети человеку, имхо, рано (да и бесполезно. Лучше чем это сделано в BaseGroup, вряд ли можно сделать), поэтому я и дал ссылку.

Как правильно описать свойство класса? Найти похожие ветки