Свойства в Delphi

[Beren42]

Резюмируя, если меня кто спросит ). Функция чтения-это функция как С ПАРАМЕТРОМ так и БЕЗ ПАРАМЕТРА , возвращающее значение того типа, который объявлен для свойства. Так ?

[Пепел Феникса]

вообще то в книге правда написана, но она написана, для простых свойств.
а это

property Items[Index: Integer]: Double read GetItem;

свойство массив(индексатор) и у него немного иные правила.
в принципе вы их уже сами заметили.

[Beren42]

Тогда так. Функция чтения-это функция как С ПАРАМЕТРОМ для свойств -массивов так и БЕЗ ПАРАМЕТРА для простых свойств , возвращающее значение того типа, который объявлен для свойства. Правильно ?

[Beren42]

Спасибо Kazik и Пепел Феникса.

[Beren42]

Многое я в этом коде не понимаю, поэтому напишу , что понятно мне. Исправьте меня если я не прав

unit Unit2;
interface
uses
  SysUtils;
type
  TVector = class          // имя класса
    private
      FItems: array of Double; // поля класса-динамический массив
      function GetItem(Index: Integer): Double; // метод класса- с парматром


    public
      constructor Create(AItems: array of Double); //  конструктор 
      destructor Destroy; override;  //Зачем у деструктора  override; ?
      property Items[Index: Integer]: Double read GetItem; default; // В обычных свойствах  функция для чтения без параметра, но здесь массив свойств . Поэтому она с параметром. А вот зачем default ?
  end;
implementation
{ TVector }
constructor TVector.Create(AItems: array of Double); // Реализация конструктора
var
  i: Integer;
begin
  SetLength(FItems, Length(AItems)); // создание динамического массива FItems длинной AItems
  for i := Low(AItems) to High(AItems) do  // цикл от наименьшего индекса динамического массива да наибольшего
    FItems[i] := AItems[i]; //  Эту строчку я вообще не понимаю
end;
destructor TVector.Destroy; // реализация деструктора
begin
  SetLength(FItems, 0); //  Уничтожение динамичекого массива
  inherited; // унаследованый деструктор
end;
function TVector.GetItem(Index: Integer): Double; // Реализация метода GetItem
begin
  if Index in [Low(FItems)..High(FItems)] then  // если Index  лежит в интервале  от наименьшего до наибольшого индекса массива 
    Result := FItems[Index] // То что ? Строка тоже не понятна
  else  иначе
    raise Exception.Create('Index is not Valid!'); //  Вообще не понятно
end;
end.

[alexBlack]

if Index in [Low(FItems)..High(FItems)] then

я бы не использовал в данном случае такую конструкцию.
Посмотрите на код:

var FItems: array of Double;
    a : integer;
begin
   SetLength(FItems, 2000);

   a := 210;
   if a in [low(FItems) .. high(FItems)]
   then writeln('ok')
   else writeln('wrong');

думаю, Вам будет интересно увидеть, что появится на экране и разобраться почему.

А вот зачем default ?

В данном случае для удобства. Помеченное как default индексированное свойство можно не указывать при вызове

V := TVector.Create...
// Следующие два вызова одно и то-же: 
a := V[12] 
a := V.Items[12]

//Зачем у деструктора override; ?

Потому что у предка (TObject) этот метод объявлен как виртуальный