VPF::Конкатенация строки c ячейкой Stringgrid

Fhusy

Дата 9.5.2009, 16:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 16.11.2006

Репутация: нет
Всего: нет

Проблема в следующем, у меня есть 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;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »