Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 17.04.2017, 23:17   #1 (permalink)
pavelmora
Новичок
 
Регистрация: 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;
pavelmora вне форума   Ответить с цитированием

Старый 17.04.2017, 23:17
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Обратите внимание на этот пост, в нем схожие по содержанию с вашей темы

Ошибка отложенной записи. Не удалось сохранить все данные файла С:/$Mift.....
Не открывается CD диск после записи видео файла с камеры наблюдения
Процедура, Паскаль
Процедура

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 23:38.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.