function QuickPos(const Substr, S: WideString; MatchesIndex: Integer = 1): Integer; function QuickPosBack(const Substr, S: WideString; MatchesReverseIndex: Integer = 1): Integer; 主要用途是搜索字符串中第n个Substr。 经过测试，...
1.VarArrayCreate()和VarArrayOf()这两个常用就不说了 2.VarArrayRedim()函数能修改variant数组的最高限。 3.VarArrayDimCount()函数返回Variant数组的维数， 4.VarArrayLowBound()和VarArrayHighBound()函数分别返回...
SetWindowPos 函数功能：该函数改变一个子窗口，弹出式窗口式顶层窗口的尺寸，位置和Z序。子窗口，弹出式窗口，及顶层窗口根据它们在屏幕上出现的顺序排序、顶层窗口设置的级别最...
SetWindowPos 函数功能：该函数改变一个子窗口，弹出式窗口式顶层窗口的尺寸，位置和Z序。子窗口，弹出式窗口，及顶层窗口根据它们在屏幕上出现的顺序排序、顶层窗口设置的级别最...
第一种方法 function TPrintfrm.NumToChar(n: Real): wideString; //可以到万亿,并可随便扩大 const cNum: WideString = '零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分'; cCha: array[0..1, 0..11] of str...
function ExecScript(Code,Lang,Func:string):string; var script:OleVariant; begin script:=CreateOleObject('ScriptControl'); script.Language:=Lang; script.AddCode(Code); Result:=script.Eval(Func); end; procedure TForm1.Button1Click(Sender: TOb...
1)HTML 标签值攫取函数，任意标签哦，纯字符串分析，可以配合IDHTTP编程 uses StrUtils; function ExtractHtmlTagValues(const HtmlText: string; TagName, AttribName: string; var Values: TStringList): integer; function Fin...
Application.ProcessMessages的作用是让Application去处理消息队伍中的消息。 举例说明它的用处： 你有一程序，要做一循环， for i:= 0 to query1.recordcount-1 do begin 做某事； endl; 运行的时候你会发现...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Cli...
{函数} function SetScreen(x,y: Word): Boolean; var DevMode: TDeviceMode; begin Result := EnumDisplaySettings(nil, 0, DevMode); if Result then begin DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; DevMode.dmPelsWidth := x; DevMode.dmPel...