AssignFile(htmFile,'c:\test.htm');
ReWrite(htmFile);
with adoquery1 do begin
while not eof do begin
htmMidList.Add('<TR bgColor=#f3f3f3><TD>+DateTimeToStr(adoquery1['time']);
next;
end;
try
for i:=0 to htmTopList.Count-1 do
Writeln(htmFile,htmTopList[i]);
for i:=0 to htmMidList.Count-1 do
Writeln(htmFile,htmMidList[i]);
for i:=0 to htmBomList.Count-1 do
Writeln(htmFile,htmBomList[i]);
finally
CloseFile(htmFile);
htmmidlist.Clear;
end;
end;