Курсовая работа: Разработка программы при помощи языка программирования языка Delphi

248. // чтение инофрмации из полей ввода и обновление

249. // данных текцщей записи в массиве AComp

250. procedure TForm1.BBUpdateClick(Sender: TObject);

251. begin

252. Comp.Name:=EName.Text;

253. Comp.HDD:=StrToFloat(EHDD.Text);

254. Comp.RAM:=StrToInt(ERAM.Text);

255. Comp.Monitor:=EMonitor.Text;

256. Comp.Inet:=RgrInet.ItemIndex = 1;

257. //

258. AComp[CurK]:=Comp;

259. ShowCompInGrid(Comp,SGrid1,CurK+1);

260. end;

261. // ввод информации типизированного файл?