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

218. procedure TForm1.BBDeleteClick(Sender: TObject);

219. var i,Ln:integer;

220. begin

221. Ln:=Length(AComp);

222. for i:=CurK to Ln-2 do

223. AComp[i]:=AComp[i+1];

224. if Ln>0 then

225. SetLength(AComp,Ln-1);

226. if CurK<ln then

227. ShowComp(AComp[CurK]);

228. ShowAComp(AComp,SGrid1);

229. end;

230. // Создание нового массива записей

231. procedure TForm1.NCreateClick(Sender: TObject);

232. begin

233. CurK:=0;

234. SetLength(AComp,0);

235. Fname:='';

236. ShowAComp(AComp,SGrid1);

237. end;

238. // созание формы - формирование шапки таблицы

239. procedure TForm1.FormCreate(Sender: TObject);

240. begin

241. SGrid1.Cells[0,0]:='№ п/п';

242. SGrid1.Cells[1,0]:='Имя ПК';

243. SGrid1.Cells[2,0]:='Объём памяти';

244. SGrid1.Cells[3,0]:='Объём ОП';

245. SGrid1.Cells[4,0]:='Тип монитора';

246. SGrid1.Cells[5,0]:='Подключениек Internet';