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

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

Значение из TMyComponent [D7, WinXP]

TForumHelp ©   (2008-06-13 09:00:00) 

Здравствуйте!

TMyComponent = class
   private
     FItems: array of String;
   protected
     function Get(Index: Integer): String;
     procedure Put(Index: Integer; Value: String);
   public
     property Items[Index: Integer]: String read Get write Put;
   End;

это структура моего компонента. Значения я получаю таким образом:
var
 S: String;
 MyComponent: TMyComponent;
begin
 S := MyComponent .Items[4];
end;

каким образом можно получить значение напрямую, т.е.:
 S := MyComponent[4];
примерно как это сделано в TStrings

помогите пожалуйста.

---

TForumHelp   (2008-06-13 10:28:00) [1]

спасибо))

---

{RASkov}   (2008-06-13 09:47:00) [2]

> [0] TForumHelp ©   (13.06.08 09:00)

А подсмотреть это в том же самом TStrings'е, не судьба? :)

property Items[Index: Integer]: String read Get write Put; default;

---

Наверх