编辑器

unit 取消缩进
This commit is contained in:
JianjunLiu 2022-06-06 10:06:07 +08:00
parent b22c97eebb
commit 220a667fbe
2 changed files with 2 additions and 2 deletions

View File

@ -683,7 +683,7 @@ type TFormatParser = class
ChangeLine(); ChangeLine();
Formataline(bkindex,FTkIndex); Formataline(bkindex,FTkIndex);
ChangeLine(); ChangeLine();
FHier.Push(); // FHier.Push(); //20220606 unit È¥µôËõ½ø
FStates.Push(BT_UNIT); FStates.Push(BT_UNIT);
state := BT_UNIT; state := BT_UNIT;
//return ""; //return "";

View File

@ -60,7 +60,7 @@ type TCustomThreadworker = class()
if not ifarray(FThreaders) then FThreaders := array(); if not ifarray(FThreaders) then FThreaders := array();
FThreader := new tworkerHost(); FThreader := new tworkerHost();
FThreaders[inttostr(FThreader.handle)] := FThreader; FThreaders[inttostr(FThreader.handle)] := FThreader;
if not (checkok(s,libs,declaration)) then raise "¹¤×÷Ï̹߳¹Ôìʧ°Ü!"; if not (checkok(s,lib,declaration)) then raise "¹¤×÷Ï̹߳¹Ôìʧ°Ü!";
uibeginthreadworker(FScript); uibeginthreadworker(FScript);
end end
function Operator [](idx); function Operator [](idx);