Mavzu: Delphi dasturlash tilida sikllar

5



6



n = 1





7

n = 1, sg1.rowcount, 1





C

B

А



C

B

А



Нет

Да

8

sg1.Cells[0,n]<>''

Mzap[2*n].prod:=sg1.Cells[0,n];
Mzap[2*n].onng:=strtoint(sg1.cells[1,n]);
Mzap[2*n].plan:=strtoint(sg1.cells[2,n]);
Mzap[2*n].onkg:=strtoint(sg1.cells[3,n]);
Mzap[2*n].svocep:=strtofloat(sg1.cells[5,n]);



9



n = n + 1

k = k +1

sg1.Cells[0,k]:=Mzap[n].prod;
sg1.Cells[1,k]:=inttostr(Mzap[n].onng);
sg1.Cells[2,k]:=inttostr(Mzap[n].plan);
sg1.Cells[3,k]:=inttostr(Mzap[n].onkg);
sg1.Cells[5,k]:=floattostr(Mzap[n].svocep);



Нет

Да

Mzap[n].prod<>''

n = 1, 200, 1