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

188. AssignFile(F,Fname);

189. Rewrite(f);

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

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

192. CloseFile(F);

193. end;

194. end;

195. // открытие типизированного файла и вывод его содержимого на форму

196. procedure TForm1.NOpenClick(Sender: TObject);

197. var K:integer;

198. begin

199. if OpenDlg.Execute then

200. begin

201. Fname:=OpenDlg.FileName;

202. AssignFile(F,Fname);

203. ReSet(f);

204. k:=0;

205. SetLength(AComp,0);

206. while not eof(f) do

207. begin

208. read(f,Comp);

209. SetLength(AComp,k+1);

210. AComp[k]:=Comp;

211. k:=k+1;

212. end;

213. CloseFile(F);

214. ShowAComp(AComp,SGRid1);

215. end;

216. end;