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

if MessageDlg ('All matrix information will be lost. Change to vector? ', mtWarning, [mbYes, mbNo], 0) = mrYes then

begin

new (nowEl);

nowEl^. typeOf: =vect;

ziroVect (nowEl^. vt);

nowEl^. strName: =matrRecLink (mainList [nowItem]) ^. strName;

for i: =1 to nmax do

for j: =1 to nmax do

matrViev. Cells [i-1,j-1]: ='';

for i: =1 to nmax do vectViev. Cells [i-1,0]: =FloatToStr (nowEl^. vt [i]);

dispose (mainList [nowItem]);

mainList [nowItem]: =nowEl;

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

vectViev. Color: =clWindow;

vectViev. Ctl3D: =true;

vectViev. Enabled: =true;

matrViev. Color: =clScrollBar;

matrViev. Ctl3D: =false;

matrViev. Enabled: =false;

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

operList. Items [nowItem]. SubItems [0]: ='Vector';

end;

end;

procedure TmatrEditor. matrixRBClick (Sender: TObject);

begin

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

if MessageDlg ('All vector information will be lost. Change to matrix? ', mtWarning, [mbYes, mbNo], 0) = mrYes then

begin

new (nowEl);