摘要： 主程序装载脚本procedure TForm1.FormCreate(Sender: TObject);begin fsScript1.Clear; fsScript1.Parent := fsGlobalUnit; fsScript1.AddComponent(Form1); fsScript1.Lines.LoadFromFile('1.txt'); fsScript1.Run;end; 1.txt文件uses 'lang.txt'; //引用公用的语言单元 procedure button1click(sender: tobject);begin show 阅读全文

摘要： procedure GotoRowCol(Row, Col : Integer; RichEdit : TRichEdit);var TextLen, i : Integer;begin if Row > RichEdit.Lines.Count then Exit; TextLen := 0; for i := 0 to Row - 1 do TextLen := TextLen + Length(RichEdit.Lines[i]) + 1; if (Col <= Length(RichEdit.Lines[Row - 1])) and (Col > 0) then Te 阅读全文