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

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

List View - не добавляются элементы [D7, XP]

Urvin ©   (2006-06-22 19:16:00) 

почему-то при работе следующего кода вылетает ошибка:
procedure TfrmMAin.Button2Click(Sender: TObject);
begin
 lvClients.Items.Add.Caption:='Fsdtuu';
end;

Project ... exception class EStringList Error with Message 'list index out of bounds (7)'
Process stopped..

в чем причина?

---

Сергей М.   (2006-06-23 08:20:00) [1]

> не работает и последний метод.


Ошибка не в приведенном коде.

---

Urvin   (2006-06-22 19:44:00) [2]

справку читать пробовал. причем по моему методу в одном ил листвью все работает, а в другом не работает.
соответственно не работает и последний метод.
я в непонятках.

---

EvS   (2006-06-22 19:32:00) [3]

Справку читать не пробовал?
This example requires only a blank form.  All other objects: TListView, TListColumns, TListItems, are created dynamically. You must add comctrls to the uses clause of the unit file.

procedure TForm1.FormCreate(Sender: TObject);

const
 Names: array[0..5, 0..1] of string = (
   ('Rubble', 'Barney'),
   ('Michael', 'Johnson'),
   ('Bunny', 'Bugs'),
   ('Silver', 'HiHo'),
   ('Simpson', 'Bart'),
   ('Squirrel', 'Rocky')
   );

var
 I: Integer;
 NewColumn: TListColumn;
 ListItem: TListItem;
 ListView: TListView;
begin
 ListView := TListView.Create(Self);
 with ListView do
 begin
   Parent := Self;
   Align := alClient;

   ViewStyle := vsReport;

   NewColumn := Columns.Add;
   NewColumn.Caption := 'Last';
   NewColumn := Columns.Add;
   NewColumn.Caption := 'First';

   for I := Low(Names) to High(Names) do
   begin
      ListItem := Items.Add;
     ListItem.Caption := Names[I][0];
     ListItem.SubItems.Add(Names[I][1]);
   end;
 end;
end;

---

Наверх