|
Вопрос # 480/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Подскажите какой нибудь компонент для экспорта данных из ListView в HTML.
--
С уважением, Spawn.
 |
Вопрос задал: Spawn (статус: 1-ый класс)
Вопрос отправлен: 15 апреля 2007, 08:24
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Косолапов Дмитрий Юрьевич
Непонятно, что подразумевается под "экспортом". В принципе, если не нужны иконки, то HTML-файл очень легко генерируется (см. приложение).
Приложение: Переключить в обычный режим- procedure TForm1.Button1Click(Sender: TObject);
- var f:TextFile;
- i,j:integer;
- n:integer;
- begin
- if SaveDialog1.Execute then
- begin
- AssignFile(f,SaveDialog1.FileName);
- Rewrite(f);
- WriteLn(f,'<html><body><table border="1">');
- Write(f,'<tr>');
- n:=ListView1.Columns.Count-1;
- for i:=0 to n do
- Write(f,'<th>',ListView1.Columns[i].Caption,'</th>');
- WriteLn(f,'</tr>');
- for i:=0 to ListView1.Items.Count-1 do
- begin
- Write(f,'<tr><td>',ListView1.Items[i].Caption,'</td>');
- for j:=0 to n-1 do
- if j<ListView1.Items[i].SubItems.Count then
- Write(f,'<td>',ListView1.Items[i].SubItems[j],'</td>')
- else
- Write(f,'<td> </td>');
- WriteLn(f,'</tr>');
- end;
- WriteLn(f,'</table></body></html>');
- CloseFile(f);
- end;
- end;
-
 |
Ответ отправил: Косолапов Дмитрий Юрьевич (статус: 8-ой класс)
Время отправки: 15 апреля 2007, 09:13
Оценка за ответ: 4
Комментарий к оценке: Попробую.. Под экспортом я подразумеваю именно компонент для экспортирования данных в файл какого либо формата, в основном мне нужен HTML.
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 15 апреля 2007, 11:00; участников в обсуждении: 1.
|
|
Spawn (статус: 1-ый класс), 15 апреля 2007, 11:00 [#1]:
Пробовал компонент TmxListViewExport из библиотеки mxExport.. Но нормально "привязать" его к программе не получилось, некоторые пункты ListView'а могут быть пустыми, и из за этих пустых пунктов возникает ошибка в TmxListViewExport..
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
