mirror of
https://gitlab.com/freepascal.org/fpc/pas2js.git
synced 2025-04-08 08:07:49 +02:00
* Small fix in html, add missing closing tr tag
This commit is contained in:
parent
3d43138c51
commit
59e69a4993
@ -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;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user