Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.07.13;
Скачать: CL | DM;

Вниз

Значение из TMyComponent   Найти похожие ветки 

 
TForumHelp ©   (2008-06-13 09:00) [0]

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

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

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


 
{RASkov} ©   (2008-06-13 09:47) [1]

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

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

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


 
TForumHelp ©   (2008-06-13 10:28) [2]

спасибо))



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

Текущий архив: 2008.07.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
2-1213187618
Patrashitel
2008-06-11 16:33
2008.07.13
Как заставить появиться Popup меню при нажатии левой кнопки мыши?


15-1211893493
ksuha211
2008-05-27 17:04
2008.07.13
вычисления с большими числами


15-1211817205
Tualatin
2008-05-26 19:53
2008.07.13
ресурс


2-1213456175
WebSQLNeederrr
2008-06-14 19:09
2008.07.13
try .. exception - как вывести сообщение самой ошибки


6-1190358040
botaniQ
2007-09-21 11:00
2008.07.13
Куки для IdHTTP и Explorer...