1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

     v1:=TVector.Create(p_vid_comp);
     v2:=TVector.Create(p_vid_comp);

     v1.InsertComp (1,1);
     v1.InsertComp (2,1);
     v1.Sort;

     v2.InsertComp (1,2);
     v2.InsertComp (2,2);
     v2.Sort;


     Memo1.Lines.Add ('v1');
     v1.WriteVector(Memo1);
     Memo1.Lines.Add ('v2');
     v2.WriteVector(Memo1);

     Memo1.Lines.Add ('Distanz v1,v2 : '+FloatToStr(v1.EuclDist(v2)));

     Vectors:=TVectorList.Create;

     VectorList.InsertVector(@v1);
     VectorList.InsertVector(@v2);
     VectorList.CalcMean;

     Memo1.Lines.Add ('Center-Vektor');
     VectorList.GetMeanVector.WriteVector(Memo1);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

for i:=1 to unknown do
begin
       c:=TVector.Create(p_vid_comp);

            ---> in C++ würde ich jetzt sowas sagen wie c = new TVector(p_vid_comp) und c zeigt
            ---> auf einen neuen TVector, TVectorList kommt damit gut klar

       c.InsertComp (1, X); 
       c.InsertComp (2, Y);
       c.Sort;
       Core.InsertVector(@c); // Adresse der statischen Variable c
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

for i:=1 to unknown do 
begin 
       c:=TVector.Create(p_vid_comp); 
       c.InsertComp (1, X);  
       c.InsertComp (2, Y); 
       c.Sort; 
       Core.InsertVector(c); 
       c.Free;
end;