var a,b: VectorInt;
c: TDoubleArray;
begin
c := TDoubleArray.Create(1,1,1,1,1);
TVecInt(a).CopyFromArray(c);
TVecInt(a).Copy(b);
if a = b thenERaise('a and b are equal!');
if a = 1 thenERaise('a equals 1!'); //compare to real valueif a = Cplx(1,0) thenERaise('a equals 1!'); //compare to complex valueend;