tinysoft
/
TSOffice
5
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

v1.2.3-patch2

This commit is contained in:
csh 2023-03-14 17:07:26 +08:00
parent 6dda8f85bc
commit 387c2fbccc
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
funcext/TSOffice/TSUtils/NodeInfo.tsf
View File

@ -165,7 +165,10 @@ public
lName := lowerCase(name); lName := lowerCase(name);
r := sselect * from attrs where lName = lowerCase([0]) end; r := sselect * from attrs where lName = lowerCase([0]) end;
if istable(r) then if istable(r) then
return node.GetAttribute(r[1]); begin
value := node.GetAttribute(r[1]);
return trystrtofloat(value, r) ? r : value;
end
children := GetChildren(); children := GetChildren();
r := select * from children where lName = lowerCase(['field']) end; r := select * from children where lName = lowerCase(['field']) end;