nuker2015
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GTA3
вот функция из DelphiWorld, сохранение TListWiew в HTML
Код: #output: имя файла для экспорта
function ListViewConfHTML(Listview:TListview; output:string; center: Boolean) : Boolean;
var i,f: Integer; tfile: TextFile;
begin try
ForceDirectories(ExtractFilePath(output));
AssignFile(tfile,output);
ReWrite(tfile);
WriteLn(tfile,'<html><head><title>Exported from: '+listview.Name+'</title></head><body>');
WriteLn(tfile,'<table border="1" bordercolor="#666"><tr>');
for i := 0 to listview.Columns.Count - 1 do begin
if center then
WriteLn(tfile,'<td><b><center>'+listview.columns[i].caption+'</center></b></td>') else
WriteLn(tfile,'<td><b>'+listview.columns[i].caption+'</b></td>');
end;
WriteLn(tfile,'</tr><tr>');
for i := 0 to listview.Items.Count-1 do begin
WriteLn(tfile,'<td>'+listview.items.item[i].caption+'</td>');
for f := 0 to listview.Columns.Count-2 do begin
if listview.items.item[i].subitems[f]='' then Write(tfile,'<td>-</td>') else
Write(tfile,'<td>'+listview.items.item[i].subitems[f]+'</td>');
end;
Write(tfile,'</tr>');
end;
WriteLn(tfile,'</table></body></html>');
CloseFile(tfile);
Result := True;
except Result := False;
end;
end; |
ЗЫ: Сам не проверял. но видно что HTML не валидный
Добавлено:
pit23
А в DesignTime подключается?
Строку подключения в студию.
Добавлено:
Erazer
TPNGImage ИМХО самый правильный из OpenSource-ных
+ новая версия недавно вышла.
Можешь написать обертку к gdiplus.dll, хотя их итак хватает.
|
Всего записей: 132 | Зарегистр. 26-10-2005 | Отправлено: 03:11 01-09-2006 | Исправлено: nuker2015, 03:20 01-09-2006 |
|
