VPF::Нумерация stringrid - Форум программистов

MrDmitry

Дата 3.12.2013, 15:48 (ссылка)

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

Загрузка ...

Опытный

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

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

Возникла странность при нумерации таблицы stringrid

Код


procedure TMain.FormShow(Sender: TObject);
var i:integer; //Строка грида
    j:integer;//Столбец грида
    number:integer; //Нумерация грида
begin

number:=0;//Обнуляем счетчик грида
 for I := 0 to grid_a.colCount-1 do
  begin
   for j := 0 to grid_a.rowCount-1 do
    begin
     inc(number); //Наращеваем счетчик грида

     //Нумеруем гриды в зависимости
     grid_a.Cells[j,i]:=inttostr(number);
     grid_a.Alignments[j,i]:=taCenter;

     grid_b.Cells[j,i]:=inttostr(number);
     grid_b.Alignments[j,i]:=taCenter;

     grid_c.Cells[j,i]:=inttostr(number);
     grid_c.Alignments[j,i]:=taCenter;

     grid_d.Cells[j,i]:=inttostr(number);
     grid_d.Alignments[j,i]:=taCenter;
    end;
  end;
end;

При отображение формы все происходит нормально, числа нумеруются по порядку от 1 до 36(таблицы 6 на 6)

т.к в ходе работы программы таблицы меняет свой размер, написал процедурку

Код


//Изменения размера таблиц
procedure Tmain.regrid(size, r:integer);
var i:integer; //Строка грида
    j:integer;//Столбец грида
    number:integer; //Нумерация грида
begin

  //Изменения размерности грида
  grid_a.RowCount:=r;
  grid_a.Height:=154+size;
  grid_c.RowCount:=r;
  grid_c.Height:=154+size;
  Grid_c.Top:=161+size;

  grid_b.RowCount:=r;
  grid_b.Height:=154+size;
  grid_d.RowCount:=r;
  grid_d.Height:=154+size;
  Grid_d.Top:=161+size;
  Main.Height:=394+size*2;

number:=0;//Обнуляем счетчик грида
 for I := 0 to grid_a.colCount-1 do
  begin
   for j := 0 to grid_a.RowCount-1 do
    begin
     inc(number); //Наращеваем счетчик грида

     //Нумеруем гриды в зависимости
     grid_a.Cells[j,I]:=inttostr(number);
     grid_a.Alignments[j,I]:=taCenter;
     grid_a.Colors[j,I]:=clwhite;

     grid_b.Cells[j,I]:=inttostr(number);
     grid_b.Alignments[j,I]:=taCenter;
     grid_b.Colors[j,I]:=clwhite;

     grid_c.Cells[j,I]:=inttostr(number);
     grid_c.Alignments[j,I]:=taCenter;
     grid_c.Colors[j,I]:=clwhite;

     grid_d.Cells[j,I]:=inttostr(number);
     grid_d.Alignments[j,I]:=taCenter;
     grid_d.Colors[j,I]:=clwhite;
    end;
  end;
end;

Вызов процедуры

Код


procedure TMain.N71Click(Sender: TObject);
begin
//Изменяем размер таблицы
regrid(75, 9);
end;

И вот тут возникает ошибка, Нумерация происходит не правильно и выглядит так

Код


1,2,3,4,5,6,
10,11,12,13,14,15,
19,20,21,22,23,24,
28,29,30,31,32,33,
37,38.39,40,41,42,
46,47,48,49,50,51

Почему так происходит я не понимаю (

Poseidon

Дата 3.12.2013, 17:43 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Потому что Row - это строка, а Col - это колонка. У тебя наоборот. Вот твоя 9 и указывает не на количество колонок, а на количество строк

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

MrDmitry

Дата 4.12.2013, 12:03 (ссылка)

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

Загрузка ...

Опытный

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

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

Почему же тогда такой же код в FormShow все правильно нумерует? )

Это сообщение отредактировал(а) MrDmitry - 4.12.2013, 12:03

Poseidon

Дата 4.12.2013, 20:52 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Потому что там 6х6, т.е. разницы между размерностью колонок и строк нет.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

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