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

Вниз

Динамич доб.колонок в 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]

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

---

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

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

Наверх

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