Keywords

• and
• array
• as
• begin
• case
• const
• div
• do
• downto
• else
• end
• except
• export
• finally
• for
• function
• goto
• chr
• if
• in
• is
• label
• mod
• nil
• not
• of
• on
• or
• ord
• out
• packed
• procedure
• program
• raise
• record
• repeat
• set
• shl
• shr
• then
• to
• try
• type
• unit
• until
• uses
• var
• while
• with
• xor

Constants

• akBottom = TAnchorKind(3);
• akLeft = TAnchorKind(0);
• akRight = TAnchorKind(2);
• akTop = TAnchorKind(1);
• alBottom = TAlign(2);
• alClient = TAlign(5);
• alLeft = TAlign(3);
• alNone = TAlign(0);
• alRight = TAlign(4);
• alTop = TAlign(1);
• arAlignBottom = TListArrangement(0);
• arAlignLeft = TListArrangement(1);
• arAlignRight = TListArrangement(2);
• WM_SETCURSOR = 32;
• WM_SETFOCUS = 7;
• WM_SETFONT = 48;
• WM_SETHOTKEY = 50;
• WM_SETICON = 128;
• WM_SETREDRAW = 11;
• WM_SETTEXT = 12;
• WM_SETTINGCHANGE = 26;
• WM_SHOWWINDOW = 24;
• WM_SIZE = 5;
• WM_SIZECLIPBOARD = 779;
• WM_SIZING = 532;
• WM_SPOOLERSTATUS = 42;
• WM_STYLECHANGED = 125;
• WM_STYLECHANGING = 124;
• WM_SYSCOLORCHANGE = 21;
• WM_SYSCOMMAND = 274;
• WM_SYSDEADCHAR = 263;
• WM_SYSCHAR = 262;
• WM_SYSKEYDOWN = 260;
• WM_SYSKEYUP = 261;
• WM_SYSTEMERROR = 23;
• wsMaximized = TWindowState(2);
• wsMinimized = TWindowState(1);
• wsNormal = TWindowState(0);

Types

• AnsiChar
• AnsiString
• AnyString = AnsiString;
• BOOL = LongBool;
• Boolean = (False, True);
• Byte
• ByteBool
• Cardinal = LongWord;
• COLORREF = LongWord;
• Currency
• Double
• DWORD = LongWord;
• EConnectFlag = (eConnect, eReconnect, eDisconnect);
• Extended
• FILETIME = record
    dwHighDateTime: LongWord;
    dwLowDateTime: LongWord;
  end;
• HACCEL = LongWord;
• HBITMAP = LongInt;
• HCURSOR = LongWord;
• HDC = LongWord;
• HFONT = LongWord;
• HGLOBAL = LongWord;
• HICON = LongWord;
• HIMAGELIST = LongWord;
• HINST = LongWord;
• HKEY = LongWord;
• HKL = LongWord;
• HMENU = LongWord;
• HMODULE = LongWord;
• HMONITOR = LongInt;
• HPALETTE = LongInt;
• HRESULT = LongInt;
• HTreeItem = Pointer;
• HWND = LongInt;
• TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient);
• TAlignment = (taLeftJustify, taRightJustify, taCenter);
• TAlignSet = set of TAlign;
• TAnchorKind = (akLeft, akTop, akRight, akBottom);
• TAnchors = set of TAnchorKind;
• TMessage = record
    LParam: LongInt;
    Msg: LongWord;
    Result: LongInt;
    WParam: LongInt;
  end;
• UnicodeString
• UTF8String = String;
• Variant = Variant;
• WideChar
• WideString
• Word
• WordBool

Variables

• ExitCode: LongInt;
• IsCalled: Boolean;
• optDateFormat: String;
• optDateTimeFormat: String;
• optFloatFormat: String;
• optTimeFormat: String;
• ScriptResult: LongInt;
• StdOut: String;

Global objects

• Application: TApplication;
• MainForm: TForm;
• Screen: TScreen;
• ScriptVars: TStringList;
• Self: TForm;

Procedures

• procedure Cls;
• procedure CopyFiles(SourceDir: String; Mask: String; DestDir: String; Overwrite: Boolean);
• procedure CreateRegKey(Key: String; ValueName: String; Value: String);
• procedure Dec(var x);
• procedure DecodeDate(DateTime: Double; var Year: Word; var Month: Word; var Day: Word);
• procedure DecodeFile(InFile: AnsiString; OutFile: AnsiString; Password: AnsiString; cMethod: AnsiString);
• procedure DecodeTime(DateTime: Double; var Hour: Word; var Min: Word; var Sec: Word; var MSec: Word);
• procedure Delete(var s: AnyString; ifrom: LongInt; icount: LongInt);
• procedure DeleteRegKey(Key: String);
• procedure DrawMenuItem(MenuItem: TMenuItem; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
• procedure Writeln(s: String);
• procedure WStrSet(c: AnyString; I: LongInt; var s: AnyString);

Functions

• function Abs(e: Extended): Extended;
• function AnsiCompareStr(S1: String; S2: String): LongInt;
• function AnsiCompareText(S1: String; S2: String): LongInt;
• function AnsiDequotedStr(S: String; AQuote: Char): String;
• function AnsiLowercase(s: String): String;
• function ParamCount: LongInt;
• function ParamStr(Index: LongInt): String;
• function Pi: Extended;
• function VarIsClear(V: Variant): Boolean;
• function VarIsEmpty(V: Variant): Boolean;
• function VarIsNull(V: Variant): Boolean;
• function VarType(V: Variant): Word;
• function WStrGet(var S: AnyString; I: LongInt): WideChar;

Classes

• EDatabaseError = class(TObject)
  • constructor Create: TObject;
  • function ClassInfo: Pointer;
  • function ClassName: String;
  • function ClassNameIs(Name: String): Boolean;
  • function FieldAddress(Name: String): Pointer;
  • function InstanceSize: LongInt;
  • function MethodAddress(Name: String): Pointer;
  • function MethodName(Address: Pointer): String;
  • procedure Free;
  end;
• TAction = class(TCustomAction)
  • constructor Create(AOwner: TComponent): TComponent;
  • function ClassInfo: Pointer;
  • function ClassName: String;
  • function ClassNameIs(Name: String): Boolean;
  • function DoHint(var HintStr: String): Boolean;
  • function Execute: Boolean;
  • function FieldAddress(Name: String): Pointer;
  • function FindComponent(AName: String): TComponent;
  • function GetNamePath: String;
  • function GetParentComponent: TComponent;
  • function HandlesTarget(Target: TObject): Boolean;
  • function HasParent: Boolean;
  • function InstanceSize: LongInt;
  • function MethodAddress(Name: String): Pointer;
  • function MethodName(Address: Pointer): String;
  • function Update: Boolean;
  • procedure Assign(Source: TPersistent);
  • procedure DestroyComponents;
  • procedure Destroying;
  • procedure ExecuteTarget(Target: TObject);
  • procedure Free;
  • procedure FreeNotification(AComponent: TComponent);
  • procedure InsertComponent(AComponent: TComponent);
  • procedure RegisterChanges(Value: TBasicActionLink);
  • procedure RemoveComponent(AComponent: TComponent);
  • procedure RemoveFreeNotification(AComponent: TComponent);
  • procedure UnRegisterChanges(Value: TBasicActionLink);
  • procedure UpdateTarget(Target: TObject);
  • property ActionList: TCustomActionList;
  • property AutoCheck: Boolean;
  • property Caption: String;
  • property Category: String;
  • property ComponentCount: LongInt;
  • property ComponentIndex: LongInt;
  • property Components[Index: LongInt]: TComponent;
  • property ComponentState: TComponentState;
  • property Designinfo: LongInt;
  • property DisableIfNoHandler: Boolean;
  • property Enabled: Boolean;
  • property GroupIndex: LongInt;
  • property HelpContext: LongInt;
  • property HelpKeyword: String;
  • property Hint: String;
  • property Checked: Boolean;
  • property ImageIndex: LongInt;
  • property Index: LongInt;
  • property Name: String;
  • property OnExecute: TNotifyEvent;
  • property OnHint: THintEvent;
  • property OnUpdate: TNotifyEvent;
  • property Owner: TComponent;
  • property ShortCut: Word;
  • property Tag: LongInt;
  • property Visible: Boolean;
  end;
• TActionList = class(TCustomActionList)
  • constructor Create: TObject;
  • function ClassInfo: Pointer;
  • function ClassName: String;
  • function ClassNameIs(Name: String): Boolean;
  • function FieldAddress(Name: String): Pointer;
  • function InstanceSize: LongInt;
  • function MethodAddress(Name: String): Pointer;
  • function MethodName(Address: Pointer): String;
  • procedure Free;
  • property ActionCount: LongInt;
  • property Actions[Index: LongInt]: TContainedAction;
  • property Images: TCustomImageList;
  • property OnExecute: TActionEvent;
  • property OnChange: TNotifyEvent;
  • property OnStateChange: TNotifyEvent;
  • property OnUpdate: TActionEvent;
  • property Tag: LongInt;
  end;
• TWorkArea = class(TCollectionItem)
  • constructor Create(Collection: TCollection): TCollectionItem;
  • function ClassInfo: Pointer;
  • function ClassName: String;
  • function ClassNameIs(Name: String): Boolean;
  • function FieldAddress(Name: String): Pointer;
  • function GetNamePath: String;
  • function InstanceSize: LongInt;
  • function MethodAddress(Name: String): Pointer;
  • function MethodName(Address: Pointer): String;
  • procedure Assign(Source: TPersistent);
  • procedure Free;
  • property Collection: TCollection;
  • property Color: LongInt;
  • property DisplayName: String;
  • property Id: LongInt;
  • property Index: LongInt;
  • property Rect: TRect;
  end;
• TWorkAreas = class(TOwnedCollection)
  • constructor Create: TObject;
  • function Add: TWorkArea;
  • function ClassInfo: Pointer;
  • function ClassName: String;
  • function ClassNameIs(Name: String): Boolean;
  • function FieldAddress(Name: String): Pointer;
  • function FindItemId(Id: LongInt): TCollectionItem;
  • function GetNamePath: String;
  • function Insert(Index: LongInt): TWorkArea;
  • function InstanceSize: LongInt;
  • function MethodAddress(Name: String): Pointer;
  • function MethodName(Address: Pointer): String;
  • function Owner: TPersistent;
  • procedure Assign(Source: TPersistent);
  • procedure BeginUpdate;
  • procedure Clear;
  • procedure Delete(Index: LongInt);
  • procedure EndUpdate;
  • procedure Free;
  • property Count: LongInt;
  • property Items[Index: LongInt]: TWorkArea;
  end;