Здравствуйте хотел бы увидеть совет или ткнуть меня, как можно вывести текст из listview в html страницу (в крайнем случае в word). Текст в listview я вывожу следующим способом.
| Код |
if TreeView1.Items[0].Selected then begin
ListView1.Clear;
GetColumns2(ListView1, ImageList1);
LVMenu.Groups.Clear;
lv := LVMenu;
lv.GroupView:=true;
lv.Groups.Add.Header:=('Свойства монитора');
lv.Groups[0].GroupID:=0;
li := lv.Items.Add;
li := lv.Items.Add;
li.ImageIndex :=7;
li.GroupID:=0;
li.Caption := 'Версия драйвера';
li.SubItems.Add(MonitorDriverVersionReg);
end;
if TreeView1.Items[3].Selected then begin
ListView1.Clear;
LVMenu.Groups.Clear;
GetColumns2(ListView1, ImageList1);
lv := ListView1;
lv.GroupView:=true;
lv.Groups.Add.Header:=('Свойства ЦП');
lv.Groups[0].GroupID:=0;
li := lv.Items.Add;
li := lv.Items.Add;
li.ImageIndex :=1;
li.Caption := 'Физических процессоров';
li.GroupID:=0;
li.SubItems.Add(IntToStr(ProcessorInfo1.ObjectsCount));
li := lv.Items.Add;
li.ImageIndex :=1;
li.GroupID:=0;
li.Caption := 'Название';
li.SubItems.Add(ProcessorNameReg);
end;
|
и т.д.
|