〖转载〗FastScript脚本使用白皮书（Ver1.0）
1. 可以使用的对象如下：
1.1. 原始类：
Tobject, TPersistent ,TList, TStrings, TStringList, TStream, TFileStream, TMemoryStream, TComponent, TfsXMLItem, TfsXMLDocument.
A) Tobject:
方法：
constructor Create
Free
function ClassName: String
B)TPersistent ：class(Tobject);
方法：
procedure Assign(Source: TPersistent)
C) TList ：class (TObject)
方法：
function Add(Item: TObject): Integer'
procedure Clear', CallMethod);
procedure Delete(Index: Integer)
function IndexOf(Item: TObject)
procedure Insert(Index: Integer; Item: TObject)
function Remove(Item: TObject): Integer
属性：
Count: Integer
Items[i: Integer]: TObject'
D) TStrings: class(TPersistent)
function Add(const S: string): Integer
function AddObject(const S: string; AObject: TObject): Integer
procedure Clear', CallMethod);
procedure Delete(Index: Integer)', CallMethod);
function IndexOf(const S: string): Integer', CallMethod);
function IndexOfName(const Name: string): Integer
function IndexOfObject(AObject: TObject): Integer
procedure Insert(Index: Integer; const S: string)
procedure InsertObject(Index: Integer; const S: string; AObject: TObject)
procedure LoadFromFile(const FileName: string)
procedure LoadFromStream(Stream: TStream)
procedure SaveToFile(const FileName: string)
procedure SaveToStream(Stream: TStream)
属性：
CommaText：string
Count：Integer
Names', 'Integer', 'string', CallMethod, True);
Objects', 'Integer', 'TObject',;
Values', 'String', 'string',;
Strings[i: Integer', 'string',
'Text', 'string', GetProp, SetProp);
end;
E)TStringList: class(TStrings)
方法：
function Find(s: String; var Index: Integer): Boolean
procedure Sort', CallMethod)
属性：
Duplicates: TDuplicates
Sorted：Boolean
F) TStream：class(TObject)
方法：
function Read(Buffer: string; Count: Longint): Longint
function Write(Buffer: string; Count: Longint): Longint
function Seek(Offset: Longint; Origin: Word): Longint
function CopyFrom(Source: TStream; Count: Longint): Longint
属性：
Position：Longint
Size：Longint
G) TFileStream：class('TStream')
constructor Create(Filename: String; Mode: Word)
H) TMemoryStream：class('TStream')
procedure Clear', CallMethod);
procedure LoadFromStream(Stream: TStream)
procedure LoadFromFile(Filename: String)
procedure SaveToStream(Stream: TStream)
procedure SaveToFile(Filename: String)
I) TComponent：class(TPersistent)
方法：
constructor Create(AOwner: TComponent)
属性：
Owner：Component
J) TfsXMLItem：=class(TObject)
方法：
constructor Create
procedure AddItem(Item: TfsXMLItem)
procedure Clear', CallMethod)
procedure InsertItem(Index: Integer; Item: TfsXMLItem)
function Add: TfsXMLItem
function Find(const Name: String): Integer
function FindItem(const Name: String):
function Prop(const Name: String): String
function Root: TfsXMLItem
属性：
Data：Integer
Count：Integer
Items[i: Integer]: TfsXMLItem
Name：String
Parent：TfsXMLItem
Text：String
K) TfsXMLDocument：=class('TObject')
方法：
constructor Create
procedure SaveToStream(Stream: TStream)
procedure LoadFromStream(Stream: TStream)
procedure SaveToFile(const FileName: String)
procedure LoadFromFile(const FileName: String)
属性：
Root：fsXMLItem'
-------------------------------------------------------------------------------------
1.2. 常用类：（如果需要使用此类控件需要加fsFormsRTTI1控件）
控件：
TWinControl类（TWinControl: Class(Tcontrol)）
TEdit,TMemo,Tmaskedit,TCombobox,TCheckBox,TRadioButton,TBitbtn, TListBox,TForm, TTScrollBox
TControl类 （TControl: Class(TComponent)）
TSpeedbutton ，Ttoolbar ，Tpanel ，Tbitbtn，TLabel ，TGroupBox ，TImage，TShape，TToolbar
TComponent 类
TDataModule
------------------------------------------------------------------------------------
说明：
对于TControl有
方法：
procedure Hide
procedure Show
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer)', CallMethod);
事件：
OnCanResize
OnClick
OnDblClick
OnMouseDown
OnMouseMove
OnMouseUp
OnResize
对于TWinControl除了有上面TControl的方法和事件外，还有：
方法：
procedure SetFocus
事件：
OnEnter
OnExit
OnKeyDown
OnKeyPress
OnKeyUp
对于TCombobox还有如下事件：
OnChange
OnDropDown
OnCloseUp
除了有Published属性外还有如下属性：
DroppedDown：Boolean
ItemIndex：Integer
对于TEdit,TMemo还有如下方法：
procedure CopyToClipboard
procedure CutToClipboard
procedure PasteFromClipboard
对于TlistBox除了有Published属性外还有如下属性：
ItemIndex：Integer
SelCount：integer
Selected[Index: Integer]: Boolean
对于Form类还有：
方法：
procedure Close
procedure Hide
procedure Show
function ShowModal: Integer
事件：
OnActivate
OnClose
OnCloseQuery
OnCreate
OnDestroy
OnDeactivate
OnHide
OnPaint
OnShow
除了有Published属性外还有如下属性：
Canvas
ModalResult
---------------------------------------------------------------------------------------------------------------------
1.3. 数据敏感类：（如果需要使用此类控件需要加fsDBCtrlRTTI1控件）
控件：
TWinControl类
TDBEdit，TDBComboBox，TDBImage，TDBCheckBox，TDBListBox，TDBMemo，TDBNavigator，TDBRadioGroup，TDBLookupControl，TDBLookupListBox，TDBLookupComboBox，TDBGrid
TGraphicControl(在fsFormsRTTI1里定义 AddClass(TGraphicControl, 'TControl')
TDBText
TPersistent类：
TColumnTitle，TColumn，TDBGridColumns
说明：
对于TDBCheckBox除了有Published属性外还有如下属性：
Checked：Boolean
对于TDBComboBox
除了有Published属性外还有如下属性：
Text：String
DroppedDown：Boolean
ItemIndex：Integer
除了Twincontrol事件外，还有如下事件：
OnChange
OnDropDown
OnCloseUp
对于TDBListBox除了有Published属性外还有如下属性：
ItemIndex：Integer
SelCount：integer
Selected[Index: Integer]: Boolean
对于TDBRadioGroup除了有Published属性外还有如下属性：
ItemIndex：Integer
Value：String
对于TDBLookupListBox除了有Published属性外还有如下属性：
KeyValue：Variant
SelectedItem：String
对于TDBLookupComboBox除了有Published属性外还有如下属性：
KeyValue：Variant
Text：String
对于TDBGridColumns
除了有Published属性外还有如下属性：
Items[i：Integer]：Tcolumn
方法：
function Add: TColumn
function Count: Integer
procedure RebuildColumns
procedure RestoreDefaults
1.4. 字段和数据集类：（ 如果需要使用此类控件需要加fsDBRTTI1控件）
A) TField： class(TComponent)
属性：
AsBoolean：Boolean
AsCurrency：Currency
AsDateTime：TDateTime
AsFloat：Double
AsInteger：Integer
AsString：String
AsVariant：Variant
DataType：TFieldType
DisplayName：String
DisplayText：String
IsNull：Boolean
Size：Integer
Value：Variant
B) TFields：class(TObject)
属性：
Fields[i: Integer]：TField
C) TStringField: class(TField)
D) TNumericField: class(TField)
E) TIntegerField: class(TNumericField)
F) TSmallIntField: class(TIntegerField)
G) TWordField: class(TIntegerField)
H) TAutoIncField: class(TIntegerField)
I) TFloatField: class(TNumericField)
J) TCurrencyField: class(TFloatField)
K) TBooleanField: class(TField)
L) TDateTimeField: class(TField)
M) TDateField: class(TDateTimeField)
N) TTimeField: class(TDateTimeField)
O) TBinaryField: class(TField)
P) TBytesField : class(TBinaryField)
Q) TVarBytesField: class(TBinaryField)
R) TBCDField: class(TNumericField)
S) TBlobField: class(TField)
方法：
procedure LoadFromFile(const FileName: String)
procedure LoadFromStream(Stream: TStream)
procedure SaveToFile(const FileName: String)
procedure SaveToStream(Stream: TStream)
T) TMemoField：class(TBlobField)
U) TGraphicField: (TBlobField)
V) TFieldDef: class(TPersistent)
W) TFieldDefs: class(TObject)
function AddFieldDef: TFieldDef', CallMethod);
function Find(const Name: string): TFieldDef', CallMethod);
procedure Add(const Name: string; DataType: TFieldType; Size: Word; Required: Boolean)
procedure Clear
procedure Update
属性：
Items[i：Integer] ：TFieldDef
X) TDataSource： class(TComponent)
Y) TDataSet: TComponent
方法：
procedure Open
procedure Close
procedure First
procedure Last
procedure Next
procedure Prior
procedure Cancel
procedure Delete
procedure Post
procedure Append
procedure Insert
procedure Edit
function FieldByName(const FieldName: string): TField
procedure GetFieldNames(List: TStrings)
function FindFirst: Boolean
function FindLast: Boolean
function FindNext: Boolean
function FindPrior: Boolean', CallMethod);
procedure FreeBookmark(Bookmark: TBookmark)
function GetBookmark: TBookmark
procedure GotoBookmark(Bookmark: TBookmark)', CallMethod);
function Locate(const KeyFields: string; const KeyValues: Variant;' +
'Options: TLocateOptions): Boolean
function IsEmpty: Boolean
属性：
Bof：Boolean
Eof：Boolean
fieldCount：Integer
RecordCount：Integer
FieldDefs：TFieldDefs
Fields：TFields
Filter：string
Filtered：Boolean
FilterOptions：TFilterOptions
Active：Boolean
事件：
BeforeOpen
AfterOpen;
BeforeClose
AfterClose
BeforeInsert
AfterInsert
BeforeEdit
AfterEdit
BeforePost
AfterPost
BeforeCancel
AfterCancel
BeforeDelete
AfterDelete
BeforeScroll
AfterScroll
OnCalcFields
OnFilterRecord
OnNewRecord
Z) TParam：class(TPersistent)
方法：
procedure Clear
属性：
AsBoolean：Boolean
AsCurrency：Currency
AsDateTime：TDateTime
AsFloat：Double
AsInteger：Integer
AsDate：TDate
AsTime：TTime
AsString：String
Bound：Boolean
IsNull：Boolean
Text：String
AA) TParams：class(TPersistent)
方法：
function ParamByName(const Value: string): TParam
事件：
function FindParam(const Value: string): TParam
属性：
Item[i: Integer]：TParam
1.5. ADO类：（ 如果需要使用此类控件需要加fsADORTTI1控件）
TDataBase,TDataSource,TDataSet,TAdoconnection,TAdoDataSet,TAdoquery,TAdoTable,TAdoStoredProc,TClientDataSet
A) TADOConnection：TComponent
B) TParameter：TPersistent
属性：
Items[i：Integer]：TParameter
C) TCustomADODataSet: class(TDataSet)
D) TADODataSet：class(TCustomADODataSet)
E) TCustomClientDataSet：class(TDataSet)
F) TADOTable：class(TCustomADODataSet);
G) TADOQuery：class(TCustomADODataSet') do
方法：
procedure ExecSQL
H) TADOStoredProc：TCustomADODataSet
方法：
procedure ExecProc
I) TClientDataSet: class(TCustomClientDataSet
方法：
procedure Excute
1.6. BDE类：（如果需要使用此类控件需要加fsBDERTTI1控件）
TTable,Tquery,TDataBase,TStoreProc,TSession
对于TDataBase可以使用如下方法：
procedure Open
对于TTable可以使用如下方法：
procedure CreateTable
procedure DeleteTable;
procedure EmptyTable;
function FindKey(const KeyValues: array): Boolean;
procedure FindNearest(const KeyValues: array);
procedure RenameTable(const NewTableName: string);
对于TQuery可以使用如下方法：
procedure ExecSQL
function ParamByName(const Value: string): TParam
procedure Prepare
ParamCount
对于TStoredProc可以使用如下方法：
procedure ExecProc
function ParamByName(const Value: string): TParam
procedure Prepare
ParamCount
1.7. 对话类：（如果需要使用此类控件需要加fsDialogRTTI1控件）
TOpenDialog、TSaveDialog、TColorDialog 、TFontDialog、TPrintDialog、TPrinterSetupDialog
function InputBox(ACaption, APrompt, ADefault: string): string
function InputQuery(ACaption, APrompt: string; var Value: string): Boolean
1.8. 图像类：
控件：
TFont，TPen，TBrush，TCanvas，TGraphic，TMetafile，Timage，TMetafileCanvas，TBitmap
对于TCanvas: TPersistent，除了TPersistent的方法外还有如下方法：
procedure Draw(X, Y: Integer; Graphic: TGraphic)
procedure Ellipse(X1, Y1, X2, Y2: Integer)
procedure LineTo(X, Y: Integer)
procedure MoveTo(X, Y: Integer)
procedure Rectangle(X1, Y1, X2, Y2: Integer)
procedure RoundRect(X1, Y1, X2, Y2, X3, Y3: Integer)
procedure StretchDraw(X1, Y1, X2, Y2: Integer; Graphic: TGraphic)
function TextHeight(const Text: string)：Integer
procedure TextOut(X, Y: Integer; const Text: string)
function TextWidth(const Text: string)：Integer
Pixels（X, Y: Integer;）：TColor
对于TGraphic= class(TPersistent)
除了TPersistent的方法外，还有如下
方法：
procedure LoadFromFile(const Filename: string)', CallMethod);
procedure SaveToFile(const Filename: string)', CallMethod);
属性：
Height：Integer
Width：Integer
对于TBitmap: TGraphic
除了TPersistent的属性外，还有如下属性：
Canvas: TCanvas
2. 常用函数：（系统默认可以使用下列函数）
转换类：
IntToStr(i: Integer): String
FloatToStr(e: Extended): String
DateToStr(e: Extended): String
TimeToStr(e: Extended): String
DateTimeToStr(e: Extended): String
VarToStr(v: variant): String
StrToInt(s: String): Integer
StrToFloat(s : String): Float
StrToDate(s: String): TDate
StrToTime(s: String): TTime
StrToDateTime(s:String): TDateTime
格式化类:
Format(Fmt: String; Args: array): String
FormatFloat(Fmt: String; Value: Extended): String
FormatDateTime(Fmt: String; DateTime: TDateTime): String
FormatMaskText(EditMask: String; Value: String): String
时间类：
function EncodeDate(Year, Month, Day: Word): TDateTime
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word)
function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime
procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word)
function Date: TDateTime
function Time: TDateTime
function Now: TDateTime
function DayOfWeek(aDate: DateTime): Integer
function IsLeapYear(Year: Word): Boolean
function DaysInMonth(nYear, nMonth: Integer): Integer
字符串类：
function Length(s: String): Integer
function Copy(s: String; from, count: Integer): String
function Pos(substr, s: String): Integer
procedure Delete(var s: String; from, count: Integer): String
procedure Insert(s: String; var s2: String; pos: Integer): String'
function Uppercase(s: String): String
function Lowercase(s: String): String
function Trim(s: String): String
function NameCase(s: String): String
function CompareText(s, s1: String): Integer
function Chr(i: Integer): Char
function Ord(ch: Char): Integer
procedure SetLength(var S: String; L: Integer)
数学类：
function Round(e: Extended): Integer
function Trunc(e: Extended): Integer
function Int(e: Extended): Integer
function Frac(X: Extended): Extended
function Sqrt(e: Extended): Extended
function Abs(e: Extended): Extended
function Sin(e: Extended): Extended
function Cos(e: Extended): Extended
function ArcTan(X: Extended): Extended
function Tan(X: Extended): Extended
function Exp(X: Extended): Extended
function Ln(X: Extended): Extended
function Pi: Extended
其他：
procedure Inc(var i: Integer; incr: Integer = 1)
procedure Dec(var i: Integer; decr: Integer = 1)
procedure RaiseException(Param: String)
procedure ShowMessage(Msg: Variant)
procedure Randomize
function Random: Extended
function ValidInt(cInt: String): Boolean
function ValidFloat(cFlt: String): Boolean
function ValidDate(cDate: String): Boolean
说明：
由于FastScript解释执行脚本，所以很多对象或者对象的属性都没有包括，也就是在Delphi中有的对象或属性、方法等在脚本里面可能不能用，以上面所述为准。但是对于大多数情况下，FastScript能满足，且能较方便地进行扩展。
1．在FastScript中，任何类都能用属于Published的属性，如果又加了属性，则也可以用。
2．子类继承父类的所有方法和属性。也就是子类可以使用父类的所有方法和属性。
如果有加了方法和事件，也一样可以用
编者：袁锋
日期： 2004-06-05
附：
A．关于如何使用第三方控件，增加方法、属性、事件)
举例如下：
如：有一控件为edtbutton:TedtButton，我们需要在动态脚本中使用该控件。我们采用如下方法：
我们可以把该控件申明在fs_iformsrtti单元里面（当然也可以申明在其他的单元如fs_idbrtti里面,但是遵守一个原则是尽量使得功能相似的控件放在同一个单元里面，这样只需要把该单元所对应的控件拖动到form上即可，提高系统运行效率）
如：fs_iformsrtti单元对应控件板上的fsiformsrtti。以此类推
AddClass(TedtButton, 'TControl');
对于增加方法：请看如下例子：
如需要增加Tedit类的CopyToClipboard、CutToClipboard、PasteFromClipboard方法。则代码如下所示：
with AddClass(TEdit, 'TWinControl') do
begin
AddMethod('procedure CopyToClipboard', CallMethod);
AddMethod('procedure CutToClipboard', CallMethod);
AddMethod('procedure PasteFromClipboard', CallMethod);
end;
在 CallMethod中需要增加相应方法的实现。
function TFunctions.CallMethod(Instance: TObject; ClassType: TClass;
const MethodName: String; var Params: Variant): Variant;
var
Form: TCustomForm;
begin
Result := 0;
if ClassType = TControl then
begin
if MethodName = 'HIDE' then
TControl(Instance).Hide
else if MethodName = 'SHOW' then
TControl(Instance).Show
else if MethodName = 'SETBOUNDS' then
TControl(Instance).SetBounds(Params[0], Params[1], Params[2], Params[3])
end
else if ClassType = TWinControl then
begin
if MethodName = 'SETFOCUS' then
TWinControl(Instance).SetFocus
end
else if ClassType = TEdit then//需要增加的实现（只是对于Tedit）;
begin
if MethodName = uppercase('CopyToClipboard') then
Tedit(Instance).CopyToClipboard ;
if MethodName = uppercase('CutToClipboard') then
Tedit(Instance).CutToClipboard ;
if MethodName = uppercase('PasteFromClipboard') then
Tedit(Instance).PasteFromClipboard ;
end
End
对于增加属性：请看如下例子：
如需要增加TdataSet的RecordCount属性，则代码如下所示：
with AddClass(TDataSet, 'TComponent') do
begin
AddMethod('procedure Open', CallMethod);
……
AddProperty('FieldCount', 'Integer', GetProp, nil);
AddProperty('RecordCount', 'Integer',GetProp,nil); 因为RecordCount属性只有读没有写。
AddProperty('Active', 'Boolean', GetProp, SetProp);既能读又能写。
End
如果有写过程，则需要在 GetProp过程中增加相应属性的实现。
function TFunctions.GetProp(Instance: TObject; ClassType: TClass;
const PropName: String): Variant;
begin
…….
if ClassType = TField then
begin
……
Result := _TField.Size
else if PropName = 'VALUE' then
Result := _TField.Value
……
end
else if ClassType = TDataSet then
begin
……
else if PropName = 'FIELDCOUNT' then
Result := _TDataSet.FieldCount
else if PropName = 'RECORDCOUNT' then
Result := _TDataSet.RecordCount
……
end。
procedure TFunctions.SetProp(Instance: TObject; ClassType: TClass;
const PropName: String; Value: Variant);
……
if ClassType = TField then
begin
_TField := TField(Instance);
if PropName = 'ASBOOLEAN' then
_TField.AsBoolean := Value
else if PropName = 'ASCURRENCY' then
_TField.AsCurrency := Value
else if PropName = 'ASDATETIME' then
_TField.AsDateTime := Value
else if PropName = 'ASFLOAT' then
_TField.AsFloat := Value
else if PropName = 'ASINTEGER' then
_TField.AsInteger := Value
else if PropName = 'ASSTRING' then
_TField.AsString := Value
else if PropName = 'ASVARIANT' then
_TField.AsVariant := Value
else if PropName = 'VALUE' then
_TField.Value := Value
end
else if ClassType = TDataSet then
begin
_TDataSet := TDataSet(Instance);
if PropName = 'FILTER' then
_TDataSet.Filter := Value
else if PropName = 'FILTERED' then
_TDataSet.Filtered := Value
else if PropName = 'FILTEROPTIONS' then
_TDataSet.FilterOptions := IntToFilterOptions(Value)
else if PropName = 'ACTIVE' then
_TDataSet.Active := Value
end
……
B．调用Delphi过程：
1． 先创建事件处理方法：TfsCallMethodEvent
2． 然后再用调用TfsScript.AddMethod方法，第一个参数为Delphi方法的语法，第二个参数为TfsCallMethodEvent链接的一个句柄。
如在Delphi有一个过程为DelphiFunc，
…..
procedure TForm1.DelphiFunc(s: String; i: Integer);
begin
ShowMessage(s + ', ' + IntToStr(i));
end;
{TfsCallMethodEvent}
function TForm1.CallMethod(Instance: TObject; ClassType: TClass; const MethodName: String;
var Params: Variant): Variant;
begin
if MethodName = 'DELPHIFUNC' then //注意方法名称都为大写比较。
DelphiFunc(Params[0], Params[1]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
{ clear all items }
fsScript1.Clear;
{ script text }
fsScript1.Lines := Memo1.Lines;
{ frGlobalUnit contains standard types and functions }
fsScript1.Parent := fsGlobalUnit;
{ make DelphiFunc procedure visible to a script }
fsScript1.AddMethod('procedure DelphiFunc(s: String; i: Integer)', CallMethod);
{ compile the script }
if fsScript1.Compile then
fsScript1.Execute else{ execute if compilation was succesfull }
ShowMessage(fsScript1.ErrorMsg); { show an error message }
end;
C．调用FastScript过程：与调用Delphi函数类似。
举例说明：如果在动态脚本里面有一个'ScriptFunc'的一个过程，则在delphi代码里需要写如下：
fsScript1.Clear;
{ script text }
fsScript1.Lines := Memo1.Lines;
{ frGlobalUnit contains standard types and functions }
fsScript1.Parent := fsGlobalUnit;
{ make DelphiFunc procedure visible to a script }
{ compile the script }
if fsScript1.Compile then
{ Call script function with one string parameter and one integer param }
fsScript1.CallFunction('ScriptFunc', VarArrayOf(['Call ScriptFunc', 1])) else
ShowMessage(fsScript1.ErrorMsg); { show an error message }
end;
例如动态脚本内容如下：
procedure ScriptFunc(Msg: String; Num: Integer);
begin
ShowMessage('1st param: ' + Msg +
'2nd param: ' + IntToStr(Num));
end;
begin
DelphiFunc('Call DelphiFunc', 1);
end.
2260
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
