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

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);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

stringgrid1.Cells[0,0]:='Òîâàð';

stringgrid1.Cells[1,0]:='Ñòîèìîñü';

stringgrid1.Cells[2,0]:='Êîë-âî';

stringgrid1.Cells[3,0]:='Èòîãî';

end;

procedure TForm1.Button3Click(Sender: TObject);

Var i:integer;

begin

edit2.Text:='0';

for i:=1 to stringgrid1.RowCount-1 do

begin

stringgrid1.cells[3,i]:=Floattostr(strtoint(stringgrid1.Cells[1,i])*(strtoint(stringgrid1.Cells[2,i])));

edit2.Text:=floattostr(strtofloat(stringgrid1.cells[3,i])+strtofloat(edit2.text));

end;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var i,k:integer;

begin

i:=1;