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

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

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

for i: =1 to nmax do

begin

nowRand: = (1-2*random (2)) *random (100) /10;

vectViev. Cells [i-1,0]: =FloatToStr (nowRand);

matrRecLink (mainList [nowItem]) ^. vt [i]: =nowRand;

end;

end;

procedure TmatrEditor. operListClick (Sender: TObject);

begin

if nowItem<>-1 then

begin

objInf. Enabled: =true;

nowItem: =operList. ItemIndex;

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

begin

l4. caption: ='vect';

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 (matrRecLink (mainList [nowItem]) ^. vt [i]);

vectViev. Color: =clWindow;

vectViev. Ctl3D: =true;

vectViev. Enabled: =true;

matrViev. Color: =clScrollBar;

matrViev. Ctl3D: =false;

matrViev. Enabled: =false;

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