Скачать: CL | DM;

List View - не добавляются элементы   Найти похожие ветки 

← →
Urvin   (2006-06-22 19:16) [0]

почему-то при работе следующего кода вылетает ошибка:
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..

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

---

← →
EvS ©   (2006-06-22 19:32) [1]

Справку читать не пробовал?
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;

---

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

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

---

← →
Сергей М. ©   (2006-06-23 08:20) [3]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c