Класс вектор через массив свойств в Delphi .

[Beren42]

Я создал класс вектор. Теперь я хочу создать свойство Modul , вычисляющее модуль вектора . Но чего-то не выходит. Спрашивается вопрос : А вообще так можно ? . Вот код без этого свойства. Он работает нормально

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]; 
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.

Вот с свойством Modul :

private
      FItems: array of real ;
function GetModul[Index: Integer]: real;
        .
        . 
       public
        .
      property Modul[Index: integer]  :real read GetModul ;
       end;
implementation
 
constructor TVector.Create(AItems: array of real);
        .       
        .
  function TVector.GetModul(Index: Integer): real;
begin
  if Index in [Low(FItems)..High(FItems)] then
begin
 for Index := Low(FItems) to High(FItems) do
    Result := Result + FItems[Index] * FItems[Index] ;
 
  Result := Sqrt(Result);
end;
end.

[evg_m]

Но чего-то не выходит.

А где то что пишет Delphi
ЗАЧЕМ параметр использовать в качестве переменной цикла.

  function TVector.GetModul(Index: Integer): real;
begin
  if Index in [Low(FItems)..High(FItems)] then
begin
 for Index := Low(FItems) to High(FItems) do
    Result := Result + FItems[Index] * FItems[Index] ;
 
  Result := Sqrt(Result);
end;
end.

[Beren42]

А Вы предлагаете без параметра сделать ? Это как ? Delphш ничего не пишет. Я имел в виду, что как мне приметь это свйство

procedure TForm1.Button1Click(Sender: TObject);
begin

  with Vector do
   begin
      ShowMessage(FloatToSTr( Modul ));  // вот  тут ничего не выходит

    end;

end;

end.

[evg_m]

А Вы предлагаете без параметра сделать ?

Я не предлагаю, я интересуюсь "ЗАЧЕМ".

Я имел в виду, что как мне приметь это свйство

ТАК же как прменяются и остальные свойства. С указанием экземпляра объекта, свойства и параметров необходимых данному свойству.

[evg_m]

ТАК же как прменяются и остальные свойства. С указанием экземпляра объекта, свойства и параметров необходимых данному свойству.

Delphш ничего не пишет.

ShowMessage(FloatToSTr( Modul )); // вот тут ничего не выходит

И вот тут ничего не пишет? а как тогда узнал что вот тут ничего не выходит?

[Beren42]

Delphi ничего не пишет в самом классе, пишет при
ShowMessage(FloatToSTr( Modul ) ) Как я рассуждаю: Длина вектора -это число и у него нет индекса. Зачем же мне писать после Modul в квадратных скобках индекс ?
Это получается индекс чего ?! Про параметр Вы предлагете так

 function TVector.GetModul(Index: Integer): real;
var
j:integer
begin
  if j in [Low(FItems)..High(FItems)] then
begin
 for j := Low(FItems) to High(FItems) do
    Result := Result + FItems[j] * FItems[j] ;
   Result := Sqrt(Result);
end;
end.

Просто у меня глобальная идея: создать класс вектор со всеми его операциями (модуль, скалярное произведение и т.д.) через массив свойств. Я начал с модуля. Или это невозможно ?

[evg_m]

Как я рассуждаю: Длина вектора -это число и у него нет индекса. Зачем же мне писать после Modul в квадратных скобках индекс ?

а КАК рассуждаешь здесь?

property Modul[Index: integer]  :real read GetModul ;

Рассуждать надо при написании(объявлении) свойств и методов.
При использовании надо следовать формальным определениям свойств.

Delphi ничего не пишет в самом классе, пишет при
ShowMessage(FloatToSTr( Modul )

только в том случае есть какой-то другой Modul совместимый с float.

[Beren42]

Так в этом и вопрос. Можно ли сделать свойство модуль через массив свойств ?

[evg_m]

Можно ли сделать свойство модуль через массив свойств ?

Что это должно означать.

Delphi ничего не пишет в самом классе, пишет при
ShowMessage(FloatToSTr( Modul )

И что же он пишет?

[Beren42]

Это должно означать , что property Modul[Index: integer] :real read GetModul ;
называется массив свойств. Спрашивается вопрос: Через него можно ? Пишет , что надо квадратные скобки. А спрашиваю : Зачем, ведь -это число. А каком индексе в квадратных скобках может идти речь ?!