Лабораторная работа: Изучение работы с файлами на языке Delphi

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