Текущий архив: 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.021 c
