Имеется следующий тип:
type
TRuMVector = record
case Integer of
0: (RuM: array [0..2] of double);
1: (Xr,Yr,Zr: Double);
end;
var A, B: TRuMVector;
procedure SumRuM();
begin
A[0] := A[0] + B[0];
A[1] := A[1] + B[1];
A[2] := A[2] + B[2];
end;
В программе при компиляции ошибка:
[DCC Error] Unit1.pas(38): E2149 Class does not have a default property
Раньше вроде можно было?