mirror of
https://gitlab.com/freepascal.org/fpc/pas2js.git
synced 2025-08-11 19:15:55 +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;
|
sHTML : String;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
|
// Prepend dataset name to id?
|
||||||
sHtml:=Format('<tr id="row-%d"><td>%d</td>',[DataSet.RecNo,aRowNo]);
|
sHtml:=Format('<tr id="row-%d"><td>%d</td>',[DataSet.RecNo,aRowNo]);
|
||||||
For I:=0 to Dataset.Fields.Count-1 do
|
For I:=0 to Dataset.Fields.Count-1 do
|
||||||
sHTML:=sHTML+'<td>'+Dataset.Fields[i].AsString+'</td>'+sLineBreak;
|
sHTML:=sHTML+'<td>'+Dataset.Fields[i].AsString+'</td>'+sLineBreak;
|
||||||
|
sHTML:=sHtml+'</tr>';
|
||||||
Result:=sHTML;
|
Result:=sHTML;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user