paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 18:29:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Mattias Gaertner; SetCharAt

Browse Source 
git-svn-id: trunk@35429 -
This commit is contained in:
michael 2017-02-12 15:17:12 +00:00
parent bc22805000
commit 7702ebb261
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utils/pas2js/dist/rtl.js vendored
View File

@ -203,7 +203,11 @@ var rtl = {
var oldlen = arr.length;
if (oldlen==newlength) return;
arr.length = newlength;
for (var i=oldlen; i<newlength; i++) arr[i]=defaultvalue;
if (rtl.isArray(defaultvalue)){
for (var i=oldlen; i<newlength; i++) arr[i]=[]; // new array
} else {
for (var i=oldlen; i<newlength; i++) arr[i]=defaultvalue;
}
return arr;
},
@ -215,6 +219,10 @@ var rtl = {
return (a!=null) ? a.length : 0;
},
setCharAt: function(s,index,c){
return s.substr(0,index)+c+s.substr(index+1);
},
createSet: function(){
var s = {};
for (var i=0; i<arguments.length; i++){