| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Valerio ©   (2006-06-05 19:56:00) 

perseptron = class(TObject)

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

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

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

---

Loginov Dmitry   (2006-06-06 09:13:00) [1]

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

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

---

Пусик   (2006-06-05 22:27:00) [2]

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


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

---

Loginov Dmitry   (2006-06-05 20:12:00) [3]

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

---

Valerio   (2006-06-05 20:04:00) [4]

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

---

Джо   (2006-06-05 20:02:00) [5]

Где
 TMyArray = array of Something;

---

Джо   (2006-06-05 20:01:00) [6]

Ну, если уж очень захотел голым массивом в мир светить, то тогда так:
 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 19:59:00) [7]

Например, так:
 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;


---

Наверх