Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > TListView

Автор: Akella 25.3.2005, 15:53

Как програмно запонить TListView?

Автор: z-END 25.3.2005, 16:08

запонить? это какое слово? у меня два варианта:
1. Заполнить:

Код


var Itm: TListItem;
 x: Integer;
begin
for x:=1 to 1000 do 
 begin
     Itm := ListVIew1.Items.Add;
     Itm.Caption := 'вот так мона запонить програмно :)'; 
  end;

2. Запомнить
..вот это сложее... и зависит от финкциональной нагрузки на ListView в общем случае - создаем тестовый файл и записываем туда названия всех элементов.

Автор: _hunter 25.3.2005, 16:10

как в справке... дельфийской щас нет, поэтому вот:

Код


void __fastcall TForm1::FormCreate(TObject *Sender)

{
  const char Names[6][2][10] = 
   {{"Rubble","Barny"},
    {"Michael", "Johnson"},
    {"Bunny", "Bugs"},
    {"Silver", "HiHo"},
    {"Simpson", "Bart"},
    {"Squirrel", "Rocky"}};

  TListColumn  *NewColumn;
  TListItem  *ListItem;
  TListView   *ListView = new TListView(this);

  ListView->Parent = this;
  ListView->Align = alClient;
  ListView->ViewStyle = vsReport;
  NewColumn = ListView->Columns->Add();
  NewColumn->Caption = "Last";

  NewColumn = ListView->Columns->Add();
  NewColumn->Caption = "First";
  for (int i = 0; i < 6; i++)
  {
    ListItem = ListView->Items->Add();
    ListItem->Caption = Names[i][0];
    ListItem->SubItems->Add(Names[i][1]);
  }
}

или в чем проблема?

Автор: RA 25.3.2005, 16:23

Цитата(dsergey @ 25.3.2005, 15:53)

запонить

Это мы теперь гадать должны какую букву подставить? smile

Автор: Akella 25.3.2005, 16:26

Пацаны, простите за невнимательность.
z-END, дал уже код.

Автор: ~FoX~ 25.3.2005, 16:37

А можно через Assignet

Автор: z-END 25.3.2005, 16:41

~FoX~ простите через что? smile

и как?

Автор: ~FoX~ 25.3.2005, 16:47

Сори Assign:

Код


var
  s: TStrings;
  i: integer;
begin
  s := TStringList.Create;
  for i := 0 to 12 do s.Add(IntToStr(i)); //Заполняем s

  ListBox1.Items.Assign(s); //ассоциируем ЛистБокс с S

  s.Free;
end;

Автор: z-END 25.3.2005, 17:01

~FoX~ -) есть две небольшие разницы между ListBox и ListView
в качестве Items в первом используется TStrings а во втором TListLitem
и меня терзают смутные сомнения что назнчить (Assign) TStrings для TlistItems неполучится smile

Автор: ~FoX~ 25.3.2005, 17:09

z-END
Проклятая рассеяность, прошу прощения.