| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Динамич доб.колонок в TListView [D6, 2000]

Officeman ©   (2006-03-20 13:25:00) 

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

Вопрос 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-21 07:27:00) [1]

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

---

Сергей М.   (2006-03-20 16:15:00) [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-20 14:49:00) [3]

бесспорно таким образом происходит добавление записей  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

---

Наверх