17.04.2017, 23:17 | #1 (permalink) |
Новичок
Регистрация: 17.04.2017
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Процедура или функция записи файла
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; |
17.04.2017, 23:17 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обратите внимание на этот пост, в нем схожие по содержанию с вашей темы Ошибка отложенной записи. Не удалось сохранить все данные файла С:/$Mift..... Не открывается CD диск после записи видео файла с камеры наблюдения Процедура, Паскаль Процедура |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|