paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 18:24:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-js: clean up

Browse Source
This commit is contained in:
mattias 2022-02-01 13:07:46 +01:00
parent a70d33ff00
commit e298e6eccd
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-js/src/tstopas.pp
View File

@ -770,12 +770,14 @@ procedure TTypescriptToPas.DumpElements;
N : TJSElementNode; N : TJSElementNode;
begin begin
{AllowWriteln}
Writeln(aSection,': ',aList.Count,' elements'); Writeln(aSection,': ',aList.Count,' elements');
For I:=0 to aList.Count-1 do For I:=0 to aList.Count-1 do
begin begin
N:=Alist[i]; N:=Alist[i];
Writeln(aSection,' element ',I,' : ',N.Node.ClassName); Writeln(aSection,' element ',I,' : ',N.Node.ClassName);
end; end;
{AllowWriteln-}
end; end;
Var Var