Динамич доб.колонок в TListView

← →
Officeman (2006-03-20 13:25) [0]

Здраствуйте.

Вопрос 1. Нужно по ButtonClick создать структуру.

500 colums
500 items (без данных)

чёта запутался. (((

так создаю(добавляю) колонки
procedure TForm1.Button1Click(Sender: TObject); var cr_colums,cr_items:integer; begin try for cr_colums:=1 to 500 do begin //500 колонок with LV.Columns.Add do begin Caption := inttostr(cr_colums); //номер колонки в HeadColums width := 25; //ширина колонки end; end; finally showmessage("Create colums complete"); end; end;

Надо после этого создать (добавить) 500 items(позиций)

Вопрос 2. Возможно ли ???
Добавить 1 ОДНУ колонку, добавить к ней 500 позиций,
потом
Добавить ВТОРУЮ колонку, добавить к ней 500 позиций,
и тд. до 500

← →
Officeman (2006-03-20 14:49) [1]

бесспорно таким образом происходит добавление записей item-ов

for cr_items:=1 to 10 do begin // для 10 столбцов with LV.items.Add do begin caption := "1"; subitems.add ("1"); subitems.add ("2"); subitems.add ("3"); subitems.add ("4"); subitems.add ("5"); subitems.add ("6"); subitems.add ("7"); subitems.add ("8"); subitems.add ("9"); subitems.add ("10"); end; end;

А если полей в таблице 500 или 1000, тоже в ручную прописывать таким макаром?

for cr_items:=1 to 10 do begin // для 10 столбцов with LV.items.Add do begin caption := "1"; subitems.add ("1"); subitems.add ("2"); subitems.add ("3"); subitems.add ("4"); ................................. ................................. subitems.add ("999"); subitems.add ("1000"); end; end;

Помогите решением.

с Уважением, Officeman

← →
Сергей М. © (2006-03-20 16:15) [2]

> если полей в таблице 500 или 1000, тоже в ручную прописывать
> таким макаром?

Ну зачем же "таким" ?

На то циклы существуют ..

for cr_items:= 1 to 500 do begin // для 500 строк
with LV.items.Add do begin //добавили 1-ю колонку
caption := IntToStr(i);
for j:= 2 to 500 do //добавили оставшиеся 499 колонок
subitems.add (IntToStr(j));
end;

← →
Officeman (2006-03-21 07:27) [3]

странно. также делал. но не получилось.
сейчас в точности ваш код попробую

Динамич доб.колонок в TListView Найти похожие ветки