X
xieyj
Unregistered / Unconfirmed
GUEST, unregistred user!
var Title:array [0..1000] of string;
i:integer;
with query1 do
begin
close;
sql.clear;
sql.add('select * from book_main where type='''+treeview.Selected.Text+'''');
Try
Open;
count:=query1.RecordCount;
While Not Eof do
for i:=0 to query1.RecordCount-1 do
begin
Title:=GetTitle(trim(Fieldbyname('Title').Asstring));
AssignFile(html,savedir+GetTitle(trim(Fieldbyname('Title').Asstring))+'.htm');
System.SetTextBuf(html,htmlBuf);
Rewrite(html);
writeln(html,'<HTML>');
Writeln(html,'<HEAD>');
Writeln(html,'</HEAD><BODY>');
writeln(html,'<div align=center>');
writeln(html,GetTitle(trim(Fieldbyname('Title').Asstring)));
writeln(html,'</div><br>');
writeln(html,htmtotxt(Fieldbyname('Content').Asstring));
writeln(html,'</BODY>');
writeln(html,'</HTML>');
CloseFile(html);
Writeln(hhc,'<LI> <OBJECT type="text/sitemap">');
Writeln(hhc,'<param name="Name" value="'+GetTitle(trim(Fieldbyname('Title').Asstring))+'">');
Writeln(hhc,'<param name="Local" value="'+GetTitle(trim(Fieldbyname('Title').Asstring))+'.htm">');
Writeln(hhc,'</OBJECT>');
Next;
end;
Except
On E:exception do
Application.MessageBox(PChar(E.Message),'错误提示：',mb_ok+mb_iconinformation);
end;
end;
i:integer;
with query1 do
begin
close;
sql.clear;
sql.add('select * from book_main where type='''+treeview.Selected.Text+'''');
Try
Open;
count:=query1.RecordCount;
While Not Eof do
for i:=0 to query1.RecordCount-1 do
begin
Title:=GetTitle(trim(Fieldbyname('Title').Asstring));
AssignFile(html,savedir+GetTitle(trim(Fieldbyname('Title').Asstring))+'.htm');
System.SetTextBuf(html,htmlBuf);
Rewrite(html);
writeln(html,'<HTML>');
Writeln(html,'<HEAD>');
Writeln(html,'</HEAD><BODY>');
writeln(html,'<div align=center>');
writeln(html,GetTitle(trim(Fieldbyname('Title').Asstring)));
writeln(html,'</div><br>');
writeln(html,htmtotxt(Fieldbyname('Content').Asstring));
writeln(html,'</BODY>');
writeln(html,'</HTML>');
CloseFile(html);
Writeln(hhc,'<LI> <OBJECT type="text/sitemap">');
Writeln(hhc,'<param name="Name" value="'+GetTitle(trim(Fieldbyname('Title').Asstring))+'">');
Writeln(hhc,'<param name="Local" value="'+GetTitle(trim(Fieldbyname('Title').Asstring))+'.htm">');
Writeln(hhc,'</OBJECT>');
Next;
end;
Except
On E:exception do
Application.MessageBox(PChar(E.Message),'错误提示：',mb_ok+mb_iconinformation);
end;
end;