//▎============================================================▎//
//▎=====================⑿其它函数及过程=======================▎//
//▎============================================================▎//
function TrimInt(Value, Min, Max: Integer): Integer; overload; {测试通过}
{* 输出限制在Min..Max之间}
function IntToByte(Value: Integer): Byte; overload; {测试通过}
{* 输出限制在0..255之间}
function InBound(Value: Integer; Min, Max: Integer): Boolean; {测试通过}
{* 判断整数Value是否在Min和Max之间}
procedure CnSwap(var A, B: Byte); overload;
{* 交换两个数}
procedure CnSwap(var A, B: Integer); overload;
{* 交换两个数}
procedure CnSwap(var A, B: Single); overload;
{* 交换两个数}
procedure CnSwap(var A, B: Double); overload;
{* 交换两个数}
function RectEqu(Rect1, Rect2: TRect): Boolean;
{* 比较两个Rect是否相等}
procedure DeRect(Rect: TRect; var x, y, Width, Height: Integer);
{* 分解一个TRect为左上角坐标x, y和宽度Width、高度Height}
function EnSize(cx, cy: Integer): TSize;
{* 返回一个TSize类型}
function RectWidth(Rect: TRect): Integer;
{* 计算TRect的宽度}
function RectHeight(Rect: TRect): Integer;
{* 计算TRect的高度}
procedure Delay(const uDelay: DWORD); {测试通过}
{* 延时}
procedure BeepEx(const Freq: WORD = 1200; const Delay: WORD = 1); {Win9X下测试通过}
{* 只能在Win9X下让喇叭发声}
procedure ShowLastError; {测试通过}
{* 显示Win32 Api运行结果信息}
function writeFontStyle(FS: TFontStyles; inifile: string; write: boolean):string;
{* 将字体Font.Style写入INI文件}
function readFontStyle(inifile: string): TFontStyles;
{* 从INI文件中读取字体Font.Style文件}
//function ReadCursorPos(SourceMemo: TMemo): TPoint;
function ReadCursorPos(SourceMemo: TMemo): string;
{* 取得TMemo 控件当前光标的行和列信息到Tpoint中}
function CanUndo(AMemo: TMemo): Boolean;
{* 检查Tmemo控件能否Undo}
procedure Undo(Amemo: Tmemo);
{*实现Undo功能}
procedure AutoListDisplay(ACombox:TComboBox);
{* 实现ComBoBox自动下拉}
function UpperMoney(small:real):string;
{* 小写金额转换为大写 }
function Myrandom(Num: Integer): integer;
{*利用系统时间产生随机数)}
procedure OpenIME(ImeName: string);
{*打开输入法}
procedure CloseIME;
{*关闭输入法}
procedure ToChinese(hWindows: THandle; bChinese: boolean);
{*打开中文输入法}
//数据备份
procedure BackUpData(LpBackDispMessTitle:String);
implementation {▎=======函数及过程体开始==========▎}