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

ziroMatr (matrRecLink (mainList [nowItem]) ^. mt);

for i: =1 to nmax do

for j: =1 to nmax do

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

end;

end;

procedure TmatrEditor. itemNombKeyUp (Sender: TObject; var Key: Word;

Shift: TShiftState);

var saveVal: real;

begin

if (matrRecLink (mainList [nowItem]) ^. typeOf=vect) and not (Key=46) then

begin

try

// saveVal: =matrRecLink (mainList [nowItem]) ^. vt [vectViev. Col];

matrRecLink (mainList [nowItem]) ^. vt [vectViev. Col]: =StrToFloat (itemNomb. text);

saveVal: =matrRecLink (mainList [nowItem]) ^. vt [vectViev. Col];

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

except

on EConvertError do

begin

matrRecLink (mainList [nowItem]) ^. vt [vectViev. Col]: =saveVal;

text: =FloatToStr (saveVal);

showMessage ('Put only number! ');

end;

end;

end;

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

begin

saveVal: =matrRecLink (mainList [nowItem]) ^. mt [matrViev. Col] [matrViev. Row];