self.修改为{self,},提高执行效率

This commit is contained in:
csh
2024-07-10 16:42:53 +08:00
parent 08d5c1c6f7
commit 3dab5b5fb5
372 changed files with 6349 additions and 6349 deletions
+4 -4
View File
@@ -22,7 +22,7 @@ end;
function TSComponentsBase.OpenFile(alias: string; file: string; password: string): tableArray;
begin
self.Init();
{self.}Init();
zipfile_ := new ZipFile();
return zipfile_.Open(alias, file, password);
end;
@@ -42,7 +42,7 @@ begin
begin
node := xml.FirstChild(conf_[_name][1]);
if not ifObj(node) then raise (name $ " error.");
_variable := self.NewObject(_name);
_variable := {self.}NewObject(_name);
_variable.InitNode(node);
end
end
@@ -59,7 +59,7 @@ begin
while ifObj(xml) do
begin
node := xml.FirstChild(conf_[_name][1]);
obj := self.NewObject(_name);
obj := {self.}NewObject(_name);
obj.InitNode(node);
_variable[length(_variable)] := obj;
name := Format(conf_[_name][0], ++ind);
@@ -70,7 +70,7 @@ begin
if ifnil(_variable[_index]) then
begin
obj := nil;
self.SetProp(obj, _name, _index + 1);
{self.}SetProp(obj, _name, _index + 1);
_variable[_index] := obj;
end
return _variable[_index];