📄 dws2mflibmodule.pas
字号:
('sechzehn'),
('siebzehn')
);
numNamesB: array[1..9] of string =
(
('zehn'),
('zwanzig'),
('dreissig'),
('vierzig'),
('f黱fzig'),
('sechzig'),
('siebzig'),
('achtzig'),
('neunzig')
);
hundert: string = 'hundert';
tausend = 'tausend';
und = 'und';
million = 'million';
procedure Register;
begin
RegisterComponents('DWS2', [Tdws2MFLib]);
end;
{ Tdws2MFLib }
procedure Tdws2MFLib.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited;
if (Operation = opRemove) and (AComponent = Script) then
SetScript(nil)
end;
procedure Tdws2MFLib.SetScript(const Value: TDelphiWebScriptII);
var
x: Integer;
begin
if Assigned(FScript) then
FScript.RemoveFreeNotification(Self);
if Assigned(Value) then
Value.FreeNotification(Self);
FScript := Value;
for x := 0 to ComponentCount - 1 do
if Components[x] is Tdws2Unit then
Tdws2Unit(Components[x]).Script := Value;
if not (csDesigning in ComponentState) then
begin
AddIntConst(dws2UnitFile, 'DRIVE_UNKNOWN', DRIVE_UNKNOWN);
AddIntConst(dws2UnitFile, 'DRIVE_NO_ROOT_DIR', DRIVE_NO_ROOT_DIR);
AddIntConst(dws2UnitFile, 'DRIVE_REMOVABLE', DRIVE_REMOVABLE);
AddIntConst(dws2UnitFile, 'DRIVE_FIXED', DRIVE_FIXED);
AddIntConst(dws2UnitFile, 'DRIVE_REMOTE', DRIVE_REMOTE);
AddIntConst(dws2UnitFile, 'DRIVE_CDROM', DRIVE_CDROM);
AddIntConst(dws2UnitFile, 'DRIVE_RAMDISK', DRIVE_RAMDISK);
AddIntConst(dws2UnitFile, 'FILEDATE_CREATION', FILEDATE_CREATION);
AddIntConst(dws2UnitFile, 'FILEDATE_LASTACCESS', FILEDATE_LASTACCESS);
AddIntConst(dws2UnitFile, 'FILEDATE_LASTWRITE', FILEDATE_LASTWRITE);
AddIntConst(dws2UnitFile, 'MOVEFILE_REPLACE_EXISTING',
MOVEFILE_REPLACE_EXISTING);
AddIntConst(dws2UnitFile, 'MOVEFILE_COPY_ALLOWED', MOVEFILE_COPY_ALLOWED);
AddIntConst(dws2UnitFile, 'MOVEFILE_DELAY_UNTIL_REBOOT',
MOVEFILE_DELAY_UNTIL_REBOOT);
AddIntConst(dws2UnitFile, 'MOVEFILE_WRITE_THROUGH', MOVEFILE_WRITE_THROUGH);
AddIntConst(dws2UnitFile, 'MOVEFILE_CREATE_HARDLINK',
MOVEFILE_CREATE_HARDLINK);
AddIntConst(dws2UnitFile, 'MOVEFILE_FAIL_IF_NOT_TRACKABLE',
MOVEFILE_FAIL_IF_NOT_TRACKABLE);
AddIntConst(dws2UnitInfo, 'VER_UNKNOWN', VER_UNKNOWN);
AddIntConst(dws2UnitInfo, 'VER_WIN32S', VER_WIN32S);
AddIntConst(dws2UnitInfo, 'VER_WIN95', VER_WIN95);
AddIntConst(dws2UnitInfo, 'VER_WIN98', VER_WIN98);
AddIntConst(dws2UnitInfo, 'VER_WIN98SE', VER_WIN98SE);
AddIntConst(dws2UnitInfo, 'VER_WINME', VER_WINME);
AddIntConst(dws2UnitInfo, 'VER_WINNT', VER_WINNT);
AddIntConst(dws2UnitInfo, 'VER_WINNT4', VER_WINNT4);
AddIntConst(dws2UnitInfo, 'VER_WIN2000', VER_WIN2000);
AddIntConst(dws2UnitInfo, 'VER_WIN32', VER_WIN32);
{$WARNINGS OFF}
AddIntConst(dws2UnitRegistry, 'HKEY_CLASSES_ROOT', HKEY_CLASSES_ROOT);
AddIntConst(dws2UnitRegistry, 'HKEY_CURRENT_USER', HKEY_CURRENT_USER);
AddIntConst(dws2UnitRegistry, 'HKEY_LOCAL_MACHINE', HKEY_LOCAL_MACHINE);
AddIntConst(dws2UnitRegistry, 'HKEY_USERS', HKEY_USERS);
AddIntConst(dws2UnitRegistry, 'HKEY_PERFORMANCE_DATA', HKEY_PERFORMANCE_DATA);
AddIntConst(dws2UnitRegistry, 'HKEY_CURRENT_CONFIG', HKEY_CURRENT_CONFIG);
AddIntConst(dws2UnitRegistry, 'HKEY_DYN_DATA', HKEY_DYN_DATA);
{$WARNINGS ON}
AddIntConst(dws2UnitString, 'CROP_LEFT', CROP_LEFT);
AddIntConst(dws2UnitString, 'CROP_RIGHT', CROP_RIGHT);
AddIntConst(dws2UnitSystem, 'SW_HIDE', SW_HIDE);
AddIntConst(dws2UnitSystem, 'SW_SHOWNORMAL', SW_SHOWNORMAL);
AddIntConst(dws2UnitSystem, 'SW_NORMAL', SW_NORMAL);
AddIntConst(dws2UnitSystem, 'SW_SHOWMINIMIZED', SW_SHOWMINIMIZED);
AddIntConst(dws2UnitSystem, 'SW_SHOWMAXIMIZED', SW_SHOWMAXIMIZED);
AddIntConst(dws2UnitSystem, 'SW_MAXIMIZE', SW_MAXIMIZE);
AddIntConst(dws2UnitSystem, 'SW_SHOWNOACTIVATE', SW_SHOWNOACTIVATE);
AddIntConst(dws2UnitSystem, 'SW_SHOW', SW_SHOW);
AddIntConst(dws2UnitSystem, 'SW_MINIMIZE', SW_MINIMIZE);
AddIntConst(dws2UnitSystem, 'SW_SHOWMINNOACTIVE', SW_SHOWMINNOACTIVE);
AddIntConst(dws2UnitSystem, 'SW_SHOWNA', SW_SHOWNA);
AddIntConst(dws2UnitSystem, 'SW_RESTORE', SW_RESTORE);
AddIntConst(dws2UnitSystem, 'SW_SHOWDEFAULT', SW_SHOWDEFAULT);
AddIntConst(dws2UnitSystem, 'EWX_LOGOFF', EWX_LOGOFF);
AddIntConst(dws2UnitSystem, 'EWX_SHUTDOWN', EWX_SHUTDOWN);
AddIntConst(dws2UnitSystem, 'EWX_REBOOT', EWX_REBOOT);
AddIntConst(dws2UnitSystem, 'EWX_FORCE', EWX_FORCE);
AddIntConst(dws2UnitSystem, 'EWX_POWEROFF', EWX_POWEROFF);
AddIntConst(dws2UnitSystem, 'EWX_FORCEIFHUNG', EWX_FORCEIFHUNG);
AddIntConst( dws2UnitSystem, 'WM_MOVE', WM_MOVE );
AddIntConst( dws2UnitSystem, 'WM_SIZE', WM_SIZE );
AddIntConst( dws2UnitSystem, 'WM_ACTIVATE', WM_ACTIVATE );
AddIntConst( dws2UnitSystem, 'WM_SETFOCUS', WM_SETFOCUS );
AddIntConst( dws2UnitSystem, 'WM_KILLFOCUS', WM_KILLFOCUS );
AddIntConst( dws2UnitSystem, 'WM_ENABLE', WM_ENABLE );
// AddIntConst( dws2UnitSystem, 'WM_SETREDRAW', WM_SETREDRAW );
// AddIntConst( dws2UnitSystem, 'WM_SETTEXT', WM_SETTEXT );
// AddIntConst( dws2UnitSystem, 'WM_GETTEXT', WM_GETTEXT );
// AddIntConst( dws2UnitSystem, 'WM_GETTEXTLENGTH', WM_GETTEXTLENGTH );
// AddIntConst( dws2UnitSystem, 'WM_PAINT', WM_PAINT );
AddIntConst( dws2UnitSystem, 'WM_CLOSE', WM_CLOSE );
AddIntConst( dws2UnitSystem, 'WM_QUIT', WM_QUIT );
// AddIntConst( dws2UnitSystem, 'WM_QUERYOPEN', WM_QUERYOPEN );
// AddIntConst( dws2UnitSystem, 'WM_ERASEBKGND', WM_ERASEBKGND );
AddIntConst( dws2UnitSystem, 'WM_SHOWWINDOW', WM_SHOWWINDOW );
// AddIntConst( dws2UnitSystem, 'WM_CTLCOLOR', WM_CTLCOLOR );
AddIntConst( dws2UnitSystem, 'WM_ACTIVATEAPP', WM_ACTIVATEAPP );
AddIntConst( dws2UnitSystem, 'WM_SETCURSOR', WM_SETCURSOR );
AddIntConst( dws2UnitSystem, 'WM_MOUSEACTIVATE', WM_MOUSEACTIVATE );
AddIntConst( dws2UnitSystem, 'WM_CHILDACTIVATE', WM_CHILDACTIVATE );
// AddIntConst( dws2UnitSystem, 'WM_PAINTICON', WM_PAINTICON );
// AddIntConst( dws2UnitSystem, 'WM_ICONERASEBKGND', WM_ICONERASEBKGND );
// AddIntConst( dws2UnitSystem, 'WM_DRAWITEM', WM_DRAWITEM );
// AddIntConst( dws2UnitSystem, 'WM_MEASUREITEM', WM_MEASUREITEM );
// AddIntConst( dws2UnitSystem, 'WM_DELETEITEM', WM_DELETEITEM );
// AddIntConst( dws2UnitSystem, 'WM_VKEYTOITEM', WM_VKEYTOITEM );
// AddIntConst( dws2UnitSystem, 'WM_CHARTOITEM', WM_CHARTOITEM );
// AddIntConst( dws2UnitSystem, 'WM_SETFONT', WM_SETFONT );
// AddIntConst( dws2UnitSystem, 'WM_GETFONT', WM_GETFONT );
// AddIntConst( dws2UnitSystem, 'WM_QUERYDRAGICON', WM_QUERYDRAGICON );
// AddIntConst( dws2UnitSystem, 'WM_COMPAREITEM', WM_COMPAREITEM );
// AddIntConst( dws2UnitSystem, 'WM_COPYDATA', WM_COPYDATA );
// AddIntConst( dws2UnitSystem, 'WM_NOTIFY', WM_NOTIFY );
AddIntConst( dws2UnitSystem, 'WM_HELP', WM_HELP );
// AddIntConst( dws2UnitSystem, 'WM_CONTEXTMENU', WM_CONTEXTMENU );
// AddIntConst( dws2UnitSystem, 'WM_GETICON', WM_GETICON );
// AddIntConst( dws2UnitSystem, 'WM_SETICON', WM_SETICON );
// AddIntConst( dws2UnitSystem, 'WM_NCMOUSEMOVE', WM_NCMOUSEMOVE );
// AddIntConst( dws2UnitSystem, 'WM_NCLBUTTONDOWN', WM_NCLBUTTONDOWN );
// AddIntConst( dws2UnitSystem, 'WM_NCLBUTTONUP', WM_NCLBUTTONUP );
// AddIntConst( dws2UnitSystem, 'WM_NCLBUTTONDBLCLK', WM_NCLBUTTONDBLCLK );
// AddIntConst( dws2UnitSystem, 'WM_NCRBUTTONDOWN', WM_NCRBUTTONDOWN );
// AddIntConst( dws2UnitSystem, 'WM_NCRBUTTONUP', WM_NCRBUTTONUP );
// AddIntConst( dws2UnitSystem, 'WM_NCRBUTTONDBLCLK', WM_NCRBUTTONDBLCLK );
// AddIntConst( dws2UnitSystem, 'WM_NCMBUTTONDOWN', WM_NCMBUTTONDOWN );
// AddIntConst( dws2UnitSystem, 'WM_NCMBUTTONUP', WM_NCMBUTTONUP );
// AddIntConst( dws2UnitSystem, 'WM_NCMBUTTONDBLCLK', WM_NCMBUTTONDBLCLK );
// AddIntConst( dws2UnitSystem, 'WM_KEYFIRST', WM_KEYFIRST );
// AddIntConst( dws2UnitSystem, 'WM_KEYDOWN', WM_KEYDOWN );
// AddIntConst( dws2UnitSystem, 'WM_KEYUP', WM_KEYUP );
// AddIntConst( dws2UnitSystem, 'WM_CHAR', WM_CHAR );
// AddIntConst( dws2UnitSystem, 'WM_DEADCHAR', WM_DEADCHAR );
// AddIntConst( dws2UnitSystem, 'WM_SYSKEYDOWN', WM_SYSKEYDOWN );
// AddIntConst( dws2UnitSystem, 'WM_SYSKEYUP', WM_SYSKEYUP );
// AddIntConst( dws2UnitSystem, 'WM_SYSCHAR', WM_SYSCHAR );
// AddIntConst( dws2UnitSystem, 'WM_SYSDEADCHAR', WM_SYSDEADCHAR );
// AddIntConst( dws2UnitSystem, 'WM_KEYLAST', WM_KEYLAST );
AddIntConst( dws2UnitSystem, 'WM_COMMAND', WM_COMMAND );
AddIntConst( dws2UnitSystem, 'WM_SYSCOMMAND', WM_SYSCOMMAND );
AddIntConst( dws2UnitSystem, 'WM_HSCROLL', WM_HSCROLL );
AddIntConst( dws2UnitSystem, 'WM_VSCROLL', WM_VSCROLL );
// AddIntConst( dws2UnitSystem, 'WM_INITMENU', WM_INITMENU );
// AddIntConst( dws2UnitSystem, 'WM_INITMENUPOPUP', WM_INITMENUPOPUP );
// AddIntConst( dws2UnitSystem, 'WM_MENUSELECT', WM_MENUSELECT );
// AddIntConst( dws2UnitSystem, 'WM_MENUCHAR', WM_MENUCHAR );
// AddIntConst( dws2UnitSystem, 'WM_ENTERIDLE', WM_ENTERIDLE );
// AddIntConst( dws2UnitSystem, 'WM_MENURBUTTONUP', WM_MENURBUTTONUP );
// AddIntConst( dws2UnitSystem, 'WM_MENUDRAG', WM_MENUDRAG );
// AddIntConst( dws2UnitSystem, 'WM_MENUGETOBJECT', WM_MENUGETOBJECT );
// AddIntConst( dws2UnitSystem, 'WM_UNINITMENUPOPUP', WM_UNINITMENUPOPUP );
// AddIntConst( dws2UnitSystem, 'WM_MENUCOMMAND', WM_MENUCOMMAND );
// AddIntConst( dws2UnitSystem, 'WM_MOUSEFIRST', WM_MOUSEFIRST );
AddIntConst( dws2UnitSystem, 'WM_MOUSEMOVE', WM_MOUSEMOVE );
AddIntConst( dws2UnitSystem, 'WM_LBUTTONDOWN', WM_LBUTTONDOWN );
AddIntConst( dws2UnitSystem, 'WM_LBUTTONUP', WM_LBUTTONUP );
AddIntConst( dws2UnitSystem, 'WM_LBUTTONDBLCLK', WM_LBUTTONDBLCLK );
AddIntConst( dws2UnitSystem, 'WM_RBUTTONDOWN', WM_RBUTTONDOWN );
AddIntConst( dws2UnitSystem, 'WM_RBUTTONUP', WM_RBUTTONUP );
AddIntConst( dws2UnitSystem, 'WM_RBUTTONDBLCLK', WM_RBUTTONDBLCLK );
AddIntConst( dws2UnitSystem, 'WM_MBUTTONDOWN', WM_MBUTTONDOWN );
AddIntConst( dws2UnitSystem, 'WM_MBUTTONUP', WM_MBUTTONUP );
AddIntConst( dws2UnitSystem, 'WM_MBUTTONDBLCLK', WM_MBUTTONDBLCLK );
AddIntConst( dws2UnitSystem, 'WM_MOUSEWHEEL', WM_MOUSEWHEEL );
// AddIntConst( dws2UnitSystem, 'WM_MOUSELAST', WM_MOUSELAST );
// AddIntConst( dws2UnitSystem, 'WM_PARENTNOTIFY', WM_PARENTNOTIFY );
// AddIntConst( dws2UnitSystem, 'WM_ENTERMENULOOP', WM_ENTERMENULOOP );
// AddIntConst( dws2UnitSystem, 'WM_EXITMENULOOP', WM_EXITMENULOOP );
// AddIntConst( dws2UnitSystem, 'WM_NEXTMENU', WM_NEXTMENU );
// AddIntConst( dws2UnitSystem, 'WM_MDIACTIVATE', WM_MDIACTIVATE );
// AddIntConst( dws2UnitSystem, 'WM_MDIRESTORE', WM_MDIRESTORE );
// AddIntConst( dws2UnitSystem, 'WM_MDINEXT', WM_MDINEXT );
// AddIntConst( dws2UnitSystem, 'WM_MDIMAXIMIZE', WM_MDIMAXIMIZE );
AddIntConst( dws2UnitSystem, 'WM_MDITILE', WM_MDITILE );
AddIntConst( dws2UnitSystem, 'WM_MDICASCADE', WM_MDICASCADE );
// AddIntConst( dws2UnitSystem, 'WM_MDIICONARRANGE', WM_MDIICONARRANGE );
// AddIntConst( dws2UnitSystem, 'WM_MDIGETACTIVE', WM_MDIGETACTIVE );
// AddIntConst( dws2UnitSystem, 'WM_MDISETMENU', WM_MDISETMENU );
// AddIntConst( dws2UnitSystem, 'WM_ENTERSIZEMOVE', WM_ENTERSIZEMOVE );
// AddIntConst( dws2UnitSystem, 'WM_EXITSIZEMOVE', WM_EXITSIZEMOVE );
// AddIntConst( dws2UnitSystem, 'WM_MOUSEHOVER', WM_MOUSEHOVER );
// AddIntConst( dws2UnitSystem, 'WM_MOUSELEAVE', WM_MOUSELEAVE );
AddIntConst( dws2UnitSystem, 'WM_CUT', WM_CUT );
AddIntConst( dws2UnitSystem, 'WM_COPY', WM_COPY );
AddIntConst( dws2UnitSystem, 'WM_PASTE', WM_PASTE );
AddIntConst( dws2UnitSystem, 'WM_CLEAR', WM_CLEAR );
AddIntConst( dws2UnitSystem, 'WM_UNDO', WM_UNDO );
// AddIntConst( dws2UnitSystem, 'WM_DESTROYCLIPBOARD', WM_DESTROYCLIPBOARD );
// AddIntConst( dws2UnitSystem, 'WM_DRAWCLIPBOARD', WM_DRAWCLIPBOARD );
// AddIntConst( dws2UnitSystem, 'WM_PAINTCLIPBOARD', WM_PAINTCLIPBOARD );
// AddIntConst( dws2UnitSystem, 'WM_VSCROLLCLIPBOARD', WM_VSCROLLCLIPBOARD );
// AddIntConst( dws2UnitSystem, 'WM_SIZECLIPBOARD', WM_SIZECLIPBOARD );
// AddIntConst( dws2UnitSystem, 'WM_HSCROLLCLIPBOARD', WM_HSCROLLCLIPBOARD );
// AddIntConst( dws2UnitSystem, 'WM_PRINT', WM_PRINT );
// AddIntConst( dws2UnitSystem, 'WM_PRINTCLIENT', WM_PRINTCLIENT );
// AddIntConst( dws2UnitSystem, 'WM_APP', WM_APP );
AddIntConst( dws2UnitSystem, 'WM_USER', WM_USER );
AddIntConst( dws2UnitSystem, 'BM_CLICK', BM_CLICK );
AddIntConst( dws2UnitSystem, 'BM_GETCHECK', BM_GETCHECK );
AddIntConst( dws2UnitSystem, 'BM_SETCHECK', BM_SETCHECK );
AddIntConst( dws2UnitSystem, 'BST_CHECKED', BST_CHECKED );
AddIntConst( dws2UnitSystem, 'BST_INDETERMINATE', BST_INDETERMINATE );
AddIntConst( dws2UnitSystem, 'BST_UNCHECKED', BST_UNCHECKED );
AddIntConst( dws2UnitSystem, 'CB_GETCOUNT', CB_GETCOUNT );
AddIntConst( dws2UnitSystem, 'CB_GETCURSEL', CB_GETCURSEL );
AddIntConst( dws2UnitSystem, 'CB_GETDROPPEDSTATE', CB_GETDROPPEDSTATE );
AddIntConst( dws2UnitSystem, 'CB_GETEDITSEL', CB_GETEDITSEL );
AddIntConst( dws2UnitSystem, 'CB_GETTOPINDEX', CB_GETTOPINDEX );
AddIntConst( dws2UnitSystem, 'CB_RESETCONTENT', CB_RESETCONTENT );
AddIntConst( dws2UnitSystem, 'CB_SETCURSEL', CB_SETCURSEL );
AddIntConst( dws2UnitSystem, 'CB_SETEDITSEL', CB_SETEDITSEL );
AddIntConst( dws2UnitSystem, 'CB_SETTOPINDEX', CB_SETTOPINDEX );
AddIntConst( dws2UnitSystem, 'CB_SHOWDROPDOWN', CB_SHOWDROPDOWN );
AddIntConst( dws2UnitSystem, 'EM_GETSEL', EM_GETSEL );
AddIntConst( dws2UnitSystem, 'EM_SETSEL', EM_SETSEL );
AddIntConst( dws2UnitSystem, 'EM_UNDO', EM_UNDO );
AddIntConst( dws2UnitSystem, 'LB_GETCOUNT', LB_GETCOUNT );
AddIntConst( dws2UnitSystem, 'LB_GETCURSEL', LB_GETCURSEL );
AddIntConst( dws2UnitSystem, 'LB_GETSEL', LB_GETSEL );
AddIntConst( dws2UnitSystem, 'LB_GETSELCOUNT', LB_GETSELCOUNT );
AddIntConst( dws2UnitSystem, 'LB_GETTEXT', LB_GETTEXT );
AddIntConst( dws2UnitSystem, 'LB_GETTEXTLEN', LB_GETTEXTLEN );
AddIntConst( dws2UnitSystem, 'LB_GETTOPINDEX', LB_GETTOPINDEX );
AddIntConst( dws2UnitSystem, 'LB_ITEMFROMPOINT', LB_ITEMFROMPOINT );
AddIntConst( dws2UnitSystem, 'LB_RESETCONTENT', LB_RESETCONTENT );
AddIntConst( dws2UnitSystem, 'LB_SELITEMRANGE', LB_SELITEMRANGE );
AddIntConst( dws2UnitSystem, 'LB_SETCURSEL', LB_SETCURSEL );
AddIntConst( dws2UnitSystem, 'LB_SETSEL', LB_SETSEL );
AddIntConst( dws2UnitSystem, 'LB_SETTOPINDEX', LB_SETTOPINDEX );
AddIntConst( dws2UnitSystem, 'SB_BOTTOM', SB_BOTTOM );
AddIntConst( dws2UnitSystem, 'SB_ENDSCROLL', SB_ENDSCROLL );
AddIntConst( dws2UnitSystem, 'SB_LINEDOWN', SB_LINEDOWN );
AddIntConst( dws2UnitSystem, 'SB_LINEUP', SB_LINEUP );
AddIntConst( dws2UnitSystem, 'SB_PAGEDOWN', SB_PAGEDOWN );
AddIntConst( dws2UnitSystem, 'SB_PAGEUP', SB_PAGEUP );
AddIntConst( dws2UnitSystem, 'SB_THUMBPOSITION', SB_THUMBPOSITION );
AddIntConst( dws2UnitSystem, 'SB_THUMBTRACK', SB_THUMBTRACK );
AddIntConst( dws2UnitSystem, 'SB_TOP', SB_TOP );
end;
end;
// ****************************************************************************
// *** Basic Functions ********************************************************
// ****************************************************************************
procedure Tdws2MFLib.dws2UnitBasicFunctionsBeepEval(Info: TProgramInfo);
begin
SysUtils.Beep;
end;
procedure Tdws2MFLib.dws2UnitBasicFunctionsDecEval(Info: TProgramInfo);
var
i: Integer;
begin
i := Info['I'];
Dec(i);
Info['I'] := i;
end;
procedure Tdws2MFLib.dws2UnitBasicFunctionsDec2Eval(Info: TProgramInfo);
var
i: Integer;
begin
i := Info['I'];
Dec(i, Integer(Info['N']));
Info['I'] := i;
end;
procedure Tdws2MFLib.dws2UnitBasicFunctionsIncEval(Info: TProgramInfo);
var
i: Integer;
begin
i := Info['I'];
Inc(i);
Info['I'] := i;
end;
procedure Tdws2MFLib.dws2UnitBasicFunctionsInc2Eval(Info: TProgramInfo);
var
i: Integer;
begin
i := Info['I'];
Inc(i, Integer(Info['N']));
Info['I'] := i;
end;
procedure Tdws2MFLib.dws2UnitBasicFunctionsGetTickCountEval(
Info: TProgramInfo);
begin
{$WARNINGS OFF}
Info['Result'] := GetTickCount;
{$WARNINGS ON}
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -