Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Экспорт TListView в TStringGrid

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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;
Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.