* Small fix in html, add missing closing tr tag

This commit is contained in:
michael 2019-03-07 08:55:15 +00:00
parent 3d43138c51
commit 59e69a4993

View File

@ -99,9 +99,11 @@ Var
sHTML : String;
begin
// Prepend dataset name to id?
sHtml:=Format('<tr id="row-%d"><td>%d</td>',[DataSet.RecNo,aRowNo]);
For I:=0 to Dataset.Fields.Count-1 do
sHTML:=sHTML+'<td>'+Dataset.Fields[i].AsString+'</td>'+sLineBreak;
sHTML:=sHtml+'</tr>';
Result:=sHTML;
end;