А можно не изобретать велосипед ?

← →
Decoda (2002-04-15 21:38) [0]

Уважаемые мастера я делаю HTML гинератор в своей проге так:
procedure TForm1.Button5Click(Sender: TObject); Var otchet, temp: textfile; list: integer; text: string; begin assignfile(otchet, SaveDialog1.FileName); rewrite(otchet); append(otchet); gauge1.MaxValue:=ListBox1.Items.Count; listbox1.ItemIndex:=-1; {================================H T M L ====================================} {===============================Заголовок HTML===============================} writeln(otchet,"<html>"); writeln(otchet,"<head>"); writeln(otchet,"<title>"+combobox1.text+"</title>"); writeln(otchet,"<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">"); writeln(otchet,"</head>"); writeln(otchet,"<html>"); writeln(otchet,"<style>a:link, a:visited, a:active { text-decoration: none; }a:hover { text-decoration: none; color: #99FF99; }</style>"); writeln(otchet,"<body bgcolor="#4F687D" text="#FFFFFF" link="#33CCCC" vlink="#FFCCFF" alink="#FF0000">"); writeln(otchet,"<table border="1" width="100%" bgcolor="#006633" align="CENTER">"); writeln(otchet,"<tr>"); writeln(otchet,"<td height="16">"); writeln(otchet,"<div align="CENTER">"); writeln(otchet,"<font face="Georgia, Times New Roman, Times, serif" size="5"> "); writeln(otchet," <font color="#00FF00" size="6">"); writeln(otchet," FAQ на тему:"+" "+combobox1.text+"</font>"); writeln(otchet,"<font color="#FFFF00" size="6"> </font> </font>"); writeln(otchet,"</div>"); writeln(otchet,"</td>"); writeln(otchet,"</tr>"); writeln(otchet,"</table>"); writeln(otchet,"<table border="1" width="100%">"); writeln(otchet,"<tr>"); writeln(otchet,"<td height="10"> <font face="Georgia, Times New Roman, Times, serif">"); {=======================Cоздаём список вопросов==============================} For list:=1 to ListBox1.Items.Count do begin listbox1.ItemIndex:=listbox1.ItemIndex+1; writeln(otchet, "<a href="#"+inttostr(list)+"">"+ListBox1.Items[ListBox1.ItemIndex]+"</a><br>"); Gauge1.Progress:=Gauge1.Progress+1; end; {======================Cоздали список вопроосов==============================} writeln(otchet,"</font></td>"); writeln(otchet,"</tr></table>"); writeln(otchet,"<table border="1" width="100%">"); writeln(otchet,"<tr>"); writeln(otchet,"<td height="10"> <font face="Georgia, Times New Roman, Times, serif">"); listbox1.ItemIndex:=-1; Gauge1.Progress:=0; {=======================Cоздаём список ответов==============================} for List:=1 to ListBox1.Items.Count do begin listbox1.ItemIndex:= listbox1.ItemIndex+1; assignfile(temp, ExtractFilePath(Application.ExeName)+"Темы\"+combobox1.text+"\"+ListBox1.Items[ListBox1.ItemIndex]+".txt"); reset(temp); writeln(otchet, "<a name=""+inttostr(listbox1.ItemIndex+1)+""></a>"); writeln(otchet,"<font size="5"><font color="#99FF99"> "+ListBox1.Items[ListBox1.ItemIndex]+" </font></font><br>");
writeln(otchet,"<p> </p>");
while not EoF(temp) do
begin
readln(temp, text);
writeln(otchet, text+"<br>");
end;
writeln(otchet,"<p> </p>");
writeln(otchet,"<hr>");
Gauge1.Progress:=Gauge1.Progress+1;
closefile(temp);
end;

{======================Cоздали список ответов==============================}

writeln(otchet,"</font><center><font size="3"> <font color="#99FF99"> Сгинерировано в программе "Записнушка" (c) 2002-2003 </font></font><br></center></td>");
writeln(otchet,"</tr></table>");
writeln(otchet,"</body>");
writeln(otchet,"</html>");
closefile(otchet);

{===========================E N D H T M L ================================}
end;

А можно не изобретать велосипед ?

А можно не изобретать велосипед ? Найти похожие ветки