Форум: "Начинающим";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];
Вниз
Динамич доб.колонок в 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c
