Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.053 c
1-1141280201
Димон
2006-03-02 09:16
2006.04.02
запуск Оутлук с адресом из таблицы


2-1142366442
depo72
2006-03-14 23:00
2006.04.02
Зависает программа при выгрузке DLL


2-1142356163
Fenix
2006-03-14 20:09
2006.04.02
TreeView


11-1123421854
EVILDeath
2005-08-07 17:37
2006.04.02
Unit xxxxx was compiled with another version of yyyyy


1-1141225888
ArtemESC
2006-03-01 18:11
2006.04.02
Алгоритм поиска относительного пути...