Скачай Изучение работы с файлами на языке Delphi лабораторная по информатике и еще Руководство, Проектов, Исследование в формате PDF Информатика только на Docsity! Министерство образования и науки Российской Федерации Курский государственный технический университет Кафедра ПО ВТ Изучение работы с файлами на языке Delphi Выполнил: студент гр. ПО 62 Шиляков И.А. Проверил: ст. преподаватель Петрик Е.А. Курск 2006 Цель: Изучение принципов работы с файлами на языке Delphi, получение навыков программирования с использованием файлов. Задание: Создать каталог продуктов. Окно программы: Используемые компоненты: № Имя компонента Страница палитры компонентов Настраиваемые компоненты Значения 1 2 3 4 5 1 Form1 - Сaption Лабораторная работа №10 Color clMoneyGreen 2 Bitbtn1 Additional Caption Удалить по наименованию 3 Label1 Standard Caption Введите продукты и их стоимость Color clMoneyGreen Color (Font) clNavy Size (Font) 12 Charset (Font) DEFAULT_CHARSET Height (Font) -16 StringGrid1: TStringGrid; Button1: TButton; Button2: TButton; Edit1: TEdit; Label1: TLabel; Button3: TButton; Edit2: TEdit; Label2: TLabel; BitBtn1: TBitBtn; Edit3: TEdit; Button4: TButton; Button5: TButton; Edit4: TEdit; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button3Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function poisk(istochnik,chto:s30):boolean; var i,k:integer; procedure poisk2(B,M:s30); var k:integer; b1:boolean; begin i:=0; while length(b)>=length(m)+i do begin b1:=true; for k:=1 to length(m) do begin if m[k]=b[k+i] then else b1:=false; end; if b1=true then begin poisk:=b1; exit; end; i:=i+1; end; end; begin if length(istochnik)>=length(chto) then poisk2(istochnik,chto) else poisk2(chto,istochnik); end; procedure TForm1.Button2Click(Sender: TObject); var i:integer; s:string; z:p; f: file of p; begin s:=edit1.Text; system.Assign(f,s); // íàçíà÷àåòñÿ èìÿ ôàéëîâîé ïåðåìåííîé rewrite(f); // ñîäàíèå ïóñòîãî ôàéëà, óêàçàòåëü óñòàí. íà íóëåâîé ýë-ò for i:=1 to stringgrid1.RowCount do if (stringgrid1.Cells[0,i]<>'') then begin z.tovar:=stringgrid1.cells[0,i]; z.money:=strtoint(stringgrid1.cells[1,i]); z.kol:=strtoint(stringgrid1.cells[2,i]); write(f,z); // çàïèñü â ôàéë f çàïèñè z end; system.close(f); end; procedure TForm1.Button1Click(Sender: TObject); var i:integer; z:p; f: file of p; begin i:=1; system.Assign(f,edit1.Text); reset(f); // îòêðûòü ôàéë while not eof(f) do begin read(f,z); stringgrid1.cells[0,i]:=z.tovar; stringgrid1.cells[1,i]:=inttostr(z.money); stringgrid1.cells[2,i]:=inttostr(z.kol); stringgrid1.RowCount:=i+1; i:=i+1; end; system.close(f);
