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

[evg_m]

Сообщение от Beren42

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

Давай по порядку.

Пишет , что надо квадратные скобки.

где когда? при использовании? правильно. Ты сам этого потребовал, когда описывал свойство. Компьютер не знает твоих мыслей от том, что это за свойство.Он видит описание в котором указаны скобки, вот и просит. Если они не нужны, то убери их в описании.
И вопрос к тебе как автору свойства Что может означать массив свойств modul[]. Если не знаешь, то зачем делаешь такое свойство?

[Beren42]

Вот мы и подходим к самому интересному. Нужно ли так объявлять свойство property Modul[Index: integer] :real read GetModul ; Или надо property Modul : Extended read GetModul; Если второй вариант правильный, то у меня задание сделать свойство модуль через массив свойств property Modul[Index: integer] :real read GetModul ; .
Или это В ПРИНЦИПЕ НЕВОЗМОЖНО ?

[evg_m]

то у меня задание сделать свойство модуль через массив свойств property Modul[Index: integer] :real read GetModul ; .

может быть сделать свойство модуль через массив свойств Items
реализовать вычисление модуля используя массив свойств (Items[]), а не внутренние данные (Fitems[]) напрямую.

свойство модуль через массив свойств property Modul[Index: integer]

конечно можно записать ОДНО число (модуль) в массив (массив свойств) длины 1(ОДИН). и прочитать.

[Beren42]

ожет быть сделать свойство модуль через массив свойств Items

Да скорее всего именно это и требуется. Тогда как это будет выглядеть ?

[mss]

Это должно означать , что property Modul[Index: integer] :real read GetModul ;

Это не "массив свойств", а "свойство типа массив".
Для упомянутого тобой св-ва Modul объявлять и реализовать его как св-во типа массив лишено смысла, ибо "модуль вектора" имеет вещественный тип.

[Beren42]

Это я и хотел услышать. А скалярное произведение векторов можно через массив свойств ?
P.S Массивы свойств Голованов М., Веселов Е. - Создание компонентов в среде Delphi. Руководство разработчика (2004)(S)

[Beren42]

Вот мой вариант скалярного произведения

private
 function GetScalarMulty (Index: Integer): real;
public
 property ScalarMulty [Index: integer]  :real read GetScalarMulty  ;
 
implementation
 function TVector.GetScalarMulty(Index: Integer; AItems: TVector ): real;
 begin
    if Index in [Low(FItems)..High(FItems)] and in [Low(AItems)..High(AItems)]  then
begin
 for Index := Low(FItems) to High(FItems) do
Result:=Result+ AItems.Items[index]* FItems[index];
    end;
     end;

Выдаёт ошибку уже при

 
public
 property ScalarMulty [Index: integer]  :real read GetScalarMulty  ;

Непонятно (

[evg_m]

property ScalarMulty [Index: integer] :real read

[Beren42]

Сделал скалярное произведение через метод, всё нормально. Но при вызове ошибка
Тут ошибок нет.

function TVector.GetScalarMulty(const  AItems: array of real) : real ;
    var
  i : Integer;
begin
  if High(FItems) <> High(AItems) then
    ShowMessage('Îøèáêà. Ðàçìåðíîñòè âåêòîðîâ ðàçëè÷íû.') ;
    Result := 0;
  for i := 0 to High(FItems) do
    Result := Result +  FItems[i] * AItems[i];

Ошибка вот где

var
  Form1: TForm1;
  Vector,Vector1:TVector;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Vector:=TVector.Create([1., 1., 1.]);
Vector1:=TVector.Create([2.,2.,3.]);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Vector.Destroy ;
Vector1.Destroy ;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin

  with Vector do
   begin
         Edit3.Text:=FloatToSTr(GetScalarMulty(Vector1 )); // вот тут ошибка (

   end;

end;