Проблема в следующем, у меня есть 3 цикла которые заполняют ячейки информацией, первый цикл заполняет пустые ячейки ,второй те же ячейки заполеные первым циклом , третий тож добаляет инфу в эти же ячейки, но в итоге получается так , что виден результат толька второй и третьей операции, цикла 3 потому что в 2-х циклах та же байда, вот код:
| Код |
procedure TForm1.cb2Change(Sender: TObject);
begin
if c<=cb1.Items.Count then
ko[strtoint(cb1.Text)]:=strtoint(cb2.Text);
c:=c+1;
end;
procedure TForm1.cb3Change(Sender: TObject);
begin
ii:=ii+1;
kr[ii,1]:=strtoint(cb2.Text);
kr[ii,2]:=strtoint(cb3.Text);
//if (kr[ii,0]>kr[ii-1,0])and(ii<>0)then
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var i,j,k,buf:integer;
begin
buf:=0;
for i:=1 to strtoint(edit1.Text) do
sg1.Cells[0,i-1]:='X';
for i:=1 to strtoint(edit2.Text) do begin
for j:=1 to ko[i] do begin
sg1.Cells[1,buf]:=inttostr(i);
buf:=buf+1;
end;
end;
buf:=0;
for i:=1 to ii do begin
for j:=1 to kr[i,2] do begin
sg1.Cells[1,buf]:=sg1.Cells[1,buf]+inttostr(kr[i,1]);
buf:=buf+1;
end;
end;
buf:=0;
for i:=1 to ii do begin
for j:=1 to kr[i,2] do begin
sg1.Cells[1,buf]:=sg1.Cells[1,buf]+inttostr(kr[j,2]);
buf:=buf+1;
end;
end;
showmessage(inttostr(buf));
end;
|
|