Скачать: CL | DM;

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

← →
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 - там и нейросети, и классы и свойства...

---

← →
Пусик ©   (2006-06-05 22:27) [6]

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


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

---

← →
Loginov Dmitry ©   (2006-06-06 09:13) [7]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.973 c