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

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

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

Автор: Михалыч 14.7.2015, 20:37

В ListView несколько колонок, и установлен checkboxes в ListView.
Интересует первая колонка, как все отмеченные записи чикетом из первой колонки загрузить в StringList ?

Автор: GRU 14.7.2015, 22:33

если правильно понял (и серьезно), думаю так:

Код


procedure TForm1.ListViewTest;
var
  AString: TStringList;
  i, count: integer;
begin
  try
    AString := TStringList.Create;

    Count := ListView1.Items.Count;
    for i := 0 to Count-1 do begin
      if (ListView1.Items[i].Checked)
      then begin
        AString.Add(ListView1.Items[i].Caption) // or ListView1.Items[i].SubItems[AColumn]
      end;
    end;
    AString.SaveToFile('C:\ListView test.txt');
  finally
    FreeAndNil(AString);
  end;
end;

Автор: Михалыч 16.7.2015, 18:54

Спасибо!!!!!