Свойства в Delphi

[Beren42]

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

 type
  TRectangle = class
  private
    fArea   : LongInt;
    fCoords : array[0..3] of Longint;
    function  GetCoord(Index: Integer): Longint;
    procedure SetCoord(Index: Integer; Value: Longint);
  public
    Property Area   : Longint read fArea;
    Property Left   : Longint Index 0 read GetCoord write SetCoord;
    Property Top    : Longint Index 1 read GetCoord write SetCoord;

То есть GetCoord с параметром Index: Integer. Так может она иметь параметр ?. Спасибо.

[Kazik]

функция не имеет параметров. Функция возвращает некоторое значение. В твоем примере GetCoord - значение типа Integer, которое вернет функция. А
Property Left : Longint Index 0 read GetCoord write SetCoord;
Property Top : Longint Index 1 read GetCoord write SetCoord;
использует не саму функцию GetCoord для чтения, а читает значение, передаваемое данной функцией.

[Beren42]

функция не имеет параметров. Функция возвращает некоторое значение. В твоем примере GetCoord - значение типа Integer, которое вернет функция.

У GetCoord тип возвращаемого значения разве не Longint ?

[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;
      property Items[Index: Integer]: Double read GetItem; 
  end;

Я всё равно не понимаю .
То есть здесь function GetItem(Index: Integer): Double; в property Items[Index: Integer]: Double read GetItem; используется для чтения. В книгах сказано, что она не имеет параметров. А здесь параметр Index: Integer . Можно по -простому объяснить ? Сказано без параметров , а она с параметром . Почему ? Вот чего мне мозг взорвало .

[Kazik]

Посмотри весь код. Если где-то Index используется...тогда непонятно почему пишут что без параметров. Если не используется - тогда параметр передавать не нужно. Просто может быть опечатка в коде. Часто бывает, когда код пишет человек, часто используемый функции, а не процедуры. Просто привыкаешь к тому, что функция возвращает значение и содержит некоторый параметр...Вот и пишут так...

[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;
      property Items[Index: Integer]: Double read GetItem; default;
  end;
implementation
{ TVector }
constructor TVector.Create(AItems: array of Double);
var
  i: Integer;
begin
  SetLength(FItems, Length(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;
begin
  if Index in [Low(FItems)..High(FItems)] then
    Result := FItems[Index]
  else
    raise Exception.Create('Index is not Valid!');
end;
end.

[Kazik]

В книге значит опечатка...Index передает значение, которое должно входить в интервал для выполнения условия...так что просто забей...в книгах не всегда пишут правду...

[Beren42]

Не понял. Опечатка в Функция чтения-это функция БЕЗ ПАРАМЕТРА , возвращающее значение того типа, который объявлен для свойства ? Или из function GetItem(Index: Integer): Double;. Удалить параметр (Index: Integer) ?

[Kazik]

опечатка в книге...функция передает параметр...код должен быть рабочим...если удалить Index, ты просто не сможешь компилировать код))