paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-17 11:40:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Small fix in html, add missing closing tr tag

Browse Source
This commit is contained in:
michael 2019-03-07 08:55:15 +00:00
parent 3d43138c51
commit 59e69a4993
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
demo/restbridge/simple/restbridgeclient.lpr
View File

@ -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;