listview

[Djeka(c)]

Помогите 4 колонку с информацией из listview, выкачать в memo вот есть набросок,

procedure TForm1.Timer7Timer(Sender: TObject);
var
i: integer;
begin
for i:=0 to tslistview.Items.Count-1 do
Memo1.Lines.Add(tslistview.Items.Item[i].SubItems.Text);
end;

как тут сделать чтоб не 1 а 4 колонку

delphi 2010

Пожалуйста=)

[XeruH]

Про 2010 не знаю но в 7 вроде subitems[индекс колонки]

[DomiNick]

По таймеру? о___О

И у вас тут вытаскивается не 1-я колонка, а все "столбцы" кроме главного...

Если без проверок на существование таковых, то как-то так:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
Memo1.Lines.Clear;
for i:=0 to tslistview.Items.Count-1 do
      Memo1.Lines.Add(tslistview.Items.Item[i].SubItems.Strings[2]);
end;

[Djeka(c)]

Ошибки выдаёт какие то

[Stilet]

Ошибки выдаёт какие то

Подскажите как мне настроить браузер чтоб он показывал ошибки, которые не пишут авторы?

[DomiNick]

Какие ошибки-то? AV чтоль? Так возможно у вас там нет 4-й "колонки"?
Я ж сказал - не написал я проверки этого... Разонравился мне VCL, я с listview на апи взаимодействую...

Кстати а колонки при некоторых настройках можно мышкой местами переставлять - это учитывать нужно аль нет?

[.Phoenix]

Я не пойму, зачем в событие таймера записывать подобное действие?