VPF::TListItems - Форум программистов

Antony41

Дата 15.6.2009, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 27.12.2008

Репутация: нет
Всего: 1

Вот беру я 2 ListView'a в первый заполняю разные итемы. Потом выполняю LV2.Items:=LV1.Items
И во втором появляются все items'ы из первого. А мне надо чтобы этого первого ListView'a не было а был там типа наследник. ну как Memo и TStringsList?

Rrader

Дата 15.6.2009, 16:38 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191

TListItems неотделим от конкретного TListView и отдельно не используется. Может просто код по-другому построить? Данные, значит, есть - сделать функцию заполнения, и все.

--------------------

Let's do this quickly!
Rest in peace, Vit!

pseud

Дата 15.6.2009, 17:11 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(Antony41 @ 15.6.2009, 16:28

)

LV2.Items:=LV1.Items

лучше так

Код


LV2.Items.Assign(LV1.Items)

а вообще, заполняй сразу LV2, например так:

Код


LV2.Items.BeginUpdate;
try
  {заполнение}
finally
  LV2.Items.EndUpdate;
end;

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Antony41

Дата 15.6.2009, 18:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 27.12.2008

Репутация: нет
Всего: 1

задача такая

Код


procedure TForm1.FindFileFileMatch(Sender: TObject; const Folder: String;  const FileInfo: TSearchRec); //короче это процедура типа когда поиск нашёл нужный мне файл
var
  LI:TListItem;
begin
            LI:=LV.Items.Add;
            LI.Caption:='капшн'
            LI.SubItems.Add('Folder');
            LI.SubItems.Add('asdasd'); 
            LI.SubItems.Add('1235');
            LI.SubItems.Add('qwer1');
    LI.SubItems.Add('qwer4');
    LI.SubItems.Add('qwerdf');
end;

А добавляет он поочерёдно, сначало caption, потом подитемы
Из за этого возникает ошибка в процедуре

Код


procedure TForm1.LVCheckStateChange(Sender: TObject;  Item: TListItem);
begin
//Узнать сколько обектов checked
  if FCheckCount<-1 then
    FCheckCount:=0;
if LV.Items.Count<>0 then
  if Item.Checked then
    begin
      Inc(FCheckCount);
      Sum:=Sum+GetFileSize(IncludeTrailingBackslash(Item.SubItems[0])+Item.Caption);
    end
  else
    if FCheckCount<>-1 then
      begin
        Dec(FCheckCount);
        Sum:=Sum-GetFileSize(IncludeTrailingBackslash(Item.SubItems[0])+Item.Caption);
      end;
    st1.Items.Item[10].SubItems[0]:=FloatToStrF(FCheckCount+1,ffNumber,10, 0);
    st1.Items.Item[11].SubItems[0]:=GapSize(Sum);
end;

Заметьте это процедура выполняется при изменении чего либо, Когда функция поиска начинает добавлять итем, функция изменения срабатывает и выводит ошибку, типа subItem не создан по которому я пытаюсь:

Код


Sum:=Sum-GetFileSize(IncludeTrailingBackslash(Item.SubItems[0])+Item.Caption);

определить размер! ФАК!=(

и вот хочу попробовать сделать добавление построчно...

Antony41

Дата 15.6.2009, 19:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 27.12.2008

Репутация: нет
Всего: 1

спасибо всем пересмотрел и нашёл решение.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »