Значение из 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;

спасибо))

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