Текущий архив: 2004.06.13;
Скачать: CL | DM;

Вниз

StringGrid   Найти похожие ветки 

← →
Yanis   (2004-06-01 08:53) [0]

Я уже долго маюсь с этой проблемой, но что то никак не выходит заветный алгоритм.
Есть массив a:array of string;. В StringGrid 16 колонок. Нужно засунуть массив a в ячейки StringGrid"а. Трудность в том, что бы переходить на следующую строчку если мы находимся в 16-й колонке.

---

← →
Семен Сорокин ©   (2004-06-01 09:03) [1]

if Index div 16 = 0 then
RowCount := RowCount + 1

---

← →
pasha_golub ©   (2004-06-01 10:55) [2]

Семен Сорокин ©   (01.06.04 09:03) [1]
Не то. Мы же не знаем сколько строк было до этого.

2Янис


var i:integer;
begin
...
with StringGrid1 do
 begin
  RowCount := Length(A) div 16;
  for i:=low(a) to high(a) do
   Cells[i mod 15, i div 15] := a[i];
 end;
...
end;

Если используются фиксированные ячейки, алгоритм нужно уточнить.

---

← →
Sandman25 ©   (2004-06-01 11:14) [3]

Тут нужно 16, а не 15 ИМХО.
Cells[i mod 16, i div 16] := a[i];

---

Страницы: 1 вся ветка

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.027 c