chenlala

摘要： var s: TStringList; I: Integer;begin //ShowMessage('Hello FastScript'); s := TStringList.Create; try s.Add('a'); s.Add('b'); ShowMessage(s.Text); finally s.Free; end;end. 阅读全文

摘要： {这个脚本功能恐怕很少人用到过，所以没人回答你…你的脚本不正确,你要先在程序中能正常执行，再放到txt中下面例子只测试1个参数，其它参数自己处理，自己参考着改吧:D:\1.txt脚本:}Function ChkDate(li_Year,li_Month,li_Day:Integer):Integer;begin Result:=0; if Length(IntToStr(li_Year))>4 then begin ShowMessage('不是正确的年份'); Exit; end; Result:=li_Year*365;end;beginend.{程序代码:}func 阅读全文

摘要： FastScript脚本使用白皮书（Ver1.0）作者：袁锋QQ：11442361Email：kingbluesoft@126.comhttp://www.kingbluesoft.com1. 可以使用的对象如下：1.1. 原始类： Tobject, TPersistent ,TList, TStrings, TStringList, TStream, TFileStream, TMemoryStream, TComponent, TfsXMLItem, TfsXMLDocument.A) Tobject: 方法： constructor Create Free ... 阅读全文

摘要： (转)Pascal Script Examplesprogram psce;//enhanced with compiler messages to the shell and output to shell//bytecode and dissasembly output//jan 2011 www.softwareschule.ch/maxbox.htm, loc's =218{$APPTYPE CONSOLE}{$IFDEF FPC}{$mode delphi}{$H+}{$ENDIF}uses SysUtils, Classes, Forms, uPSCompiler, uPS 阅读全文

摘要： unit fMain;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, uPSCompiler, uPSRuntime, uPSPreprocessor, uPSUtils, Menus, uPSC_comobj, uPSR_comobj;type TMainForm = class(TForm) Memo1: TMemo; Memo2: TMemo; Splitter1: TSplitter; M... 阅读全文

摘要： Unit fMain;InterfaceUses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, uPSComponent, uPSCompiler, Menus, uPSRuntime, uPSUtils;Type TForm1 = Class(TForm) Memo1: TMemo; Memo2: TMemo; Splitter1: TSplitter; PSScript: TPSScript; PS3DllPlug... 阅读全文