Курсовая работа: Розрахунок норм вектору

itemNomb. Text: =vectViev. Cells [0,0];

end;

// ==================================================

if matrRecLink (mainList [nowItem]) ^. typeOf=matr then

begin

l4. caption: ='matr';

for i: =1 to nmax do vectViev. Cells [i-1,0]: ='';

for i: =1 to nmax do

for j: =1 to nmax do

matrViev. Cells [i-1,j-1]: =FloatToStr (matrRecLink (mainList [nowItem]) ^. mt [i] [j]);

vectViev. Color: =clScrollBar;

vectViev. Ctl3D: =false;

vectViev. Enabled: =false;

matrViev. Color: =clWindow;

matrViev. Ctl3D: =true;

matrViev. Enabled: =true;

// -----------------------

matrixRB. Checked: =true;

itemNomb. Text: =matrViev. Cells [0,0];

end;

end;

end;

procedure TmatrEditor. vectVievClick (Sender: TObject);

begin

itemNomb. Text: =vectViev. Cells [vectViev. Col,0];

infLab. caption: =matrRecLink (mainList [nowItem]) ^. strName+' ['+IntToStr (vectViev. Col+1) +'] ';

end;

procedure TmatrEditor. vectorRBClick (Sender: TObject);

begin