Объясните реализацию TMemo.Lines

[Skirmy]

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

Глупый, конечно, вопрос, но совершенно не понимаю, как формулировать запрос в гугле, чтобы найти что-то дельное.

Если вкратце, то я никогда не понимал схему, по которой TMemo.Lines, имеющий, по идее, тип TStrings, возвращает как массив строк (например, так: Memo1.Lines[0]), так и объект с методами (Memo1.Lines.Add -- метод!).

Пытался читать исходники встроенных библиотек, потонул в объемах кода, ничего не поняв FAQ ваш тоже читал, там про ООП почти ничего.

У меня тут просто возникла необходимость сделать аналогичную реализацию в своем классе. Помогите, пожалуйста.

/edit Я был очень невнимателен при чтении исходников VCL.

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

Похоже, что достаточно написать волшебное слово deafult перед нужным проперти и всё заработает. Если всё так, то помощь больше не нужна пошёл тестить.

[min@y™]

Memo1.Lines[0]

эквивалентно Memo1.Lines.Strings[0], т.к. это свойство default (по умолчанию).

[Аватар]

На самом деле там TMemoStrings, наследник TStrings. Сам TStrings абстрактный класс

[Stilet]

Похоже, что достаточно написать волшебное слово deafult перед нужным проперти и всё заработает.

Слово default говорит о том, что именно это свойство будет иметься ввиду, если обратиться к компоненту как к массиву. Как выше сказали это делается для удобства, если компонент содержит некий массив и поле доступа к нему чтоб лишний раз не писать много слов можно указать какое из свойств будет иметься ввиду, если к компоненту или полю обращаться.

Пример:

program Project1;

type

  { c }

  c=class
    private
      a:array[1..5] of string;     //Опишем внутри класса некий массив
      function GetItem(i: integer): string;
      procedure SetItem(i: integer; AValue: string);
    public
      // И свойство, которое будет по умолчанию иметься ввиду
      property Item[i:integer]:string read GetItem write SetItem; default;
  end;

{ c }

function c.GetItem(i: integer): string;
begin
  Result:=a[i];
end;

procedure c.SetItem(i: integer; AValue: string);
begin
 a[i]:=AValue;
end;

var
  q:c;
begin
  q:=c.Create();
  // Сам объект превращается в массив, хотя настоящая его форма такова: q.item[i]:=...
  //Но для удобства поскольку item обьявлен дефолтом его можно не писать.
  // Компилятор и так поймет что если никакое из свойств не написано - нужно брать
  // дефолтовое
  q[3]:='123';
  write(q[3]);
end.

[Skirmy]

Благодарю вас за ответы, уже разобрался самостоятельно, но, возможно, этот тред будет полезен кому-то ещё