diff --git a/designer/utslcodeformat.tsf b/designer/utslcodeformat.tsf index 573db3b..762a220 100644 --- a/designer/utslcodeformat.tsf +++ b/designer/utslcodeformat.tsf @@ -683,7 +683,7 @@ type TFormatParser = class ChangeLine(); Formataline(bkindex,FTkIndex); ChangeLine(); - FHier.Push(); +// FHier.Push(); //20220606 unit 去掉缩进 FStates.Push(BT_UNIT); state := BT_UNIT; //return ""; diff --git a/funcext/tvclib/uvclthreadworker.tsf b/funcext/tvclib/uvclthreadworker.tsf index c5f869c..2256f60 100644 --- a/funcext/tvclib/uvclthreadworker.tsf +++ b/funcext/tvclib/uvclthreadworker.tsf @@ -60,7 +60,7 @@ type TCustomThreadworker = class() if not ifarray(FThreaders) then FThreaders := array(); FThreader := new tworkerHost(); FThreaders[inttostr(FThreader.handle)] := FThreader; - if not (checkok(s,libs,declaration)) then raise "工作线程构造失败!"; + if not (checkok(s,lib,declaration)) then raise "工作线程构造失败!"; uibeginthreadworker(FScript); end function Operator [](idx);