Процедура или функция записи файла
Помогите, пожалуйста. нет идей. Как сделать функцию, чтоб она записывала содержимое СГ в файл?
type sved=record name:string[30]; sg:string[15]; cena:integer; izg:string[30]; end; var Form1: TForm1; f:file of sved; flname:string; product: array of sved; recofsved: sved; n,i:integer; procedure TForm1.openClick(Sender: TObject); var i:integer; begin if OpenDialog1.Execute then Begin AssignFile(f,OpenDialog1.FileName); Reset(f); i:=0; SetLength(product, FileSize(F)); while not eof(f) do Begin Read(f, product[i]); stringgrid1.Cells[0,i+1]:=product[i].name; stringgrid1.Cells[1,i+1]:=product[i].sg; stringgrid1.Cells[2,i+1]:=inttostr(product[i].cena); stringgrid1.Cells[3,i+1]:=product[i].izg; i:=i+1; stringgrid1.RowCount:=stringgrid1.R owCount+1; end; CloseFile(f); SF.Hide; stringgrid1.RowCount:=stringgrid1.R owCount-1; end else exit; end; procedure TForm1.saveClick(Sender: TObject); begin if not savedialog1.Execute then exit; flname:=savedialog1.FileName; assignfile(f,flname); try rewrite(f); except showmessage('ошибка создания файла '+flname); exit end; for i:= 0 to High(product) do begin Write(f, product[i]); end; closefile(f); end; |
Часовой пояс GMT +4, время: 21:15. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.