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

128. // добавление новой записи в массив

129. procedure TForm1.BBAddClick(Sender: TObject);

130. var

131. k:integer;

132. begin

133. Comp.Name:=EName.Text;

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

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

136. Comp.Monitor:=EMonitor.Text;

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

138. //

139. if GetComp(Comp.Name,AComp,Comp) then

140. begin

141. MessageBox(0,PAnsiChar(String('Ошибка! Запись компьютера с именем '+Comp.Name+' уже существует!')),'Ошибка',0);

142. exit;

143. end;

144. k:=Length(AComp);

145. SetLength(AComp,k+1);

146. AComp[k]:=Comp;

147. CurK:=k;

148. ShowAComp(AComp,SGrid1);

149. end;

150. // переход на предыдущую запись массива

151. procedure TForm1.BBPrevClick(Sender: TObject);

152. begin

153. curK:=CurK-1;

154. if CurK<0 then CurK:=Length(AComp)-1;

155. if CurK < Length(AComp) then

156. ShowComp(AComp[CurK]);