Класс вектор в Delphi

[Beren42]

Друзья вопрос из серии : " А что если ? ". Надо создать класс вектора и произвести операцию длина вектора. Вот если нам надо найти модуль комплексного числа то тут всё понятно : unit TComplex1;

interface
   uses SysUtils,Dialogs,Classes ;
   type
   TComplex=class
   private
   FRe,FIm:real;
   protected
function GetMod:real;
   public
   property Re:real read FRe write FRe ;
   property Im:real read FIm write FIm ;
   property Modul :real read GetMod  ;
   end;
implementation
 function TComplex.GetMod:real;
 begin
 Result:=sqrt(FIm*FIm+FRe*FRe);
 end;
end.

А как нам найти у вектора (a1....an) если у нас каждый раз an может быть любым ? Другими словами как сделать кол-во полей переменным ? В комплексном числе понятно, там всегда 2 поля. В этом и вопрос. Спасибо за помощь

[mss]

операцию длина вектора

"Операция длина" - это что за ересь ?
Может быть всё же "операция вычисления длины" ?

[Beren42]

Естественно

[evg_m]

private
vect: array of real;
public
property lenvect: integer;
propery valdim[ndim: integer]: real read ... write

F1

Array properties are indexed properties. They can represent things like items in a list, child controls of a control, and pixels of a bitmap.

The declaration of an array property includes a parameter list that specifies the names and types of the indexes. For example,

property Objects[Index: Integer]: TObject read GetObject write SetObject;
property Pixels[X, Y: Integer]: TColor read GetPixel write SetPixel;
property Values[const Name: string]: string read GetValue write SetValue;

[Beren42]

А подробней можно ?

[evg_m]

Для хранения произвольного числа однотипных величин используется МАССИВ (array of
).
FRe,FIm:real; -> Flist: array of Real;
property re: real;
property Im: real; -> property list[ndim: integer]: real; Array properties
Все методы использующие Fre Fim(re. im) будут использовать flist[] (list[]).
+ property dimvector: integer //размерность вектора
+ setLength(flist,....) задание длины массива flist для хранения величин вектора

[Beren42]

Так ?

unit TVector;

interface
   uses SysUtils,Dialogs,Classes ;
   type
   TComplex=class
   private
   FList:array of real
   protected
function GetMod:real;
   public
   property list[ndim: integer]: real; Array properties
   property dimvector: integer 
   
   end;
implementation

А что писать в setLength(flist, ) ? Где бы почиать про массив свойств ?

[evg_m]

Где бы почиать про массив свойств ?

F1 array properties

что писать в setLength(flist, )

вар 1. SetLength F1
вар 2. ВОТ ЭТО вверху этой страницы