mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 07:19:35 +02:00
+ Fixed header row for table
This commit is contained in:
parent
2da22be553
commit
cfde5a91a5
@ -514,10 +514,10 @@ begin
|
||||
If UseHeader then
|
||||
begin
|
||||
Dec(Rows);
|
||||
T:='<tr>';
|
||||
T:='<th>';
|
||||
For I:=1 to Cols do
|
||||
T:=T+'<th></th>';
|
||||
T:=T+'</tr>'+lineEnding;
|
||||
T:=T+'<td></td>';
|
||||
T:=T+'</th>'+lineEnding;
|
||||
end;
|
||||
For I:=1 to rows do
|
||||
T:=T+R;
|
||||
|
Loading…
Reference in New Issue
Block a user