Экспорт TListView в TStringGridDelphi , Компоненты и Классы , TListViewЭкспорт TListView в TStringGrid
Оформил: DeeCo procedure ListView2StringGrid(Listview: TListView; StringGrid: TStringGrid); const MAX_SUBITEMS = 5; var i, j: Integer; begin with ListView do for i := 0 to Items.Count - 1 do begin {Get Item of First Column} StringGrid.Cells[1, i + 1] := Items[i].Caption; {loop through SubItems} for j := 0 to MAX_SUBITEMS do begin if Items[i].SubItems.Count > j then StringGrid.Cells[j + 2, i + 1] := Items[i].SubItems.Strings[j] else break; end; end; end; procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin // Clear the StringGrid if necessary // Falls notig, zuerst das StringGrid loschen i := 0; while i < StringGrid1.RowCount do begin StringGrid1.Rows[i].Clear; Inc(i); end; // Copy ListView1 to StringGrid1 ListView2StringGrid(ListView1, StringGrid1); end; Статья Экспорт TListView в TStringGrid раздела Компоненты и Классы TListView может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |