Как работать с ListView?

← →
Tigraman (2006-06-03 16:53) [0]

Скажите, как работать с ListView, точнее как добавлять текст в айтемс. Если после такого кода form3.ListView1.AddItem("text",form3.ListView1); добавляется text только в 1-й столбец. То как добавить не только в первый столбец, а и во второй. Мне нужен компонент напоминающий диспетчер задач(вкладка с процессами), чтобы несколько разных переменных занести в разные колонки, а потом если надо, выделить строку и нажать кнопку удалить ее. ListView это тот компонент что мне нужен?

← →
chai (2006-06-04 01:33) [1]

procedure TForm1.Button1Click(Sender: TObject); var Col: TListColumn; ListItem: TListItem; I: Integer; begin with ListView1 do begin ViewStyle := vsReport; ShowColumnHeaders := True; ListItem := Items.Add; ListItem.Caption := "Item #1"; for I := 1 to 4 do begin Col := Columns.Add; Col.Caption := "Column #"+ IntToStr(I); ListItem.SubItems.Add("SubItem #" + IntToStr(I)); end; end; end;

← →
Tigraman (2006-06-04 10:13) [2]

Спасибо.

← →
Tigraman (2006-06-05 22:43) [3]

А вот еще меня интересует, как хранить данные из колонок listview? Как их записывать и потом считывать?

> айтемс

Блин, c трудом поняла, что это означает Items...

> А вот еще меня интересует, как хранить данные из колонок
> listview? Как их записывать и потом считывать?

А прочитать ты их можешь, эти данные?

Если можешь, тогда запиши в файл и все.
Если записать в файл не можешь, тогда это тема другой ветки.

← →
Tigraman (2006-06-07 02:08) [5]

Так в том то и проблема. Я записываю данные так
var f:textfile; g,h:string;
begin
AssignFile(f, ExtractFilePath(paramstr(0))+"\items.txt");
{$I-}
rewrite(f);
for i:=0 to ListView1.Items.Count-1 do begin
g:=listview1.Items.Item[i].Caption;
Writeln(f,g);
end; CloseFile(f);
AssignFile(f, ExtractFilePath(paramstr(0))+"\subitems.txt");
rewrite(f);
for i:=0 to ListView1.Items.Count-1 do begin
h:=listview1.Items.Item[i].SubItems.Strings[i];
Writeln(f,h);
CloseFile(f);{$I+}
end; end;

Но записывается только первая колонка, которая является Items, а вот subitems не записывается.

Считывать пытаюсь так,

memo1.Lines.LoadFromFile(ExtractFilePath(paramstr(0))+"\items.txt");
//мемо использую для определения кол-во строк из-за незнания как это правильно делать.
AssignFile(f, ExtractFilePath(paramstr(0))+"\items.txt");
{$I-}
reset(f);
for i:=0 to Memo1.Lines.Count-1 do begin
readln(f,g);
begin with form3.ListView1 do begin
ListItem := Items.Add;
ListItem.Caption := g;
end; end;end;
closefile(f);
for i:=0 to Memo1.Lines.Count-1 do begin
AssignFile(f, ExtractFilePath(paramstr(0))+"\subitems.txt");
reset(f);
readln(f,h);
ListItem.SubItems.Add(h); end;

Но subitems записывается не 1,2,3 строку, а в 2,3 колонку последней строки.

Как работать с ListView? Найти похожие ветки