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

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

159. procedure TForm1.BBNextClick(Sender: TObject);

160. begin

161. curK:=CurK+1;

162. if CurK>=Length(AComp) then CurK:=0;

163. if CurK < Length(AComp) then

164. ShowComp(AComp[CurK]);

165. end;

166. // сохранение содержимого массива в типизированном файле

167. procedure TForm1.NSaveClick(Sender: TObject);

168. var i:integer;

169. begin

170. if Fname = '' then

171. MessageBox(0,'Имя файла не задано!','Ошибка',0)

172. else begin

173. AssignFile(F,Fname);

174. Rewrite(f);

175. for i:=0 to Length(AComp)-1 do

176. write(f,AComp[i]);

177. CloseFile(F);

178. end;

179. end;

180. // сохранение в содержимого массива в типизированном файле

181. // с возможностью указания имени файла

182. procedure TForm1.NSaveAsClick(Sender: TObject);

183. var i:integer;

184. begin

185. if SaveDlg.Execute then

186. begin