随笔分类 -  Delphi函数

摘要：procedure TForm1.Button1Click(Sender: TObject);varPach:string;beginPach:='E:\123\223'; //定义目录地址if not DirectoryExists(pach) then //查找文件夹是否存在 begin //建立文件夹(ForceDirectories可建立多级目录，创建单级目录用：CreateDirectory) ForceDirectories(Pach); endelse begin showmessage('目录已经存在'); end;end; 阅读全文

摘要：private procedure WMSYSCOMMAND(var msg:TMessage);message WM_SYSCOMMAND; { Private declarations } public { Public declarations } end;//禁止窗体移动procedure TSysTemCenter.WMSYSCOMMAND(var msg: TMessage);begin if msg.WParam=SC_MOVE then msg.WParam:=0;end; 阅读全文

摘要：var s: string;begin //FormatFloat 的参数1是 String 格式指令, 参数2是实数类型 Extended s := FormatFloat('###.###',12.3456); //返回: 12.346 s := FormatFloat('000.000',12.3456); //返回: 012.346 s := FormatFloat('#.###',12.3); //返回: 12.3 s := FormatFloat('0.000',12.3); //返回: 12.300 s := For 阅读全文

摘要：核心提示：【函数名】 GetTickCount【库名】 kernel32【适用范围】 95/98/ME/NT/2000/XP...【说明】 用于获取自windows启动以来经历的时间长度（毫秒）【返回值】 Long，以毫秒为单位的windows运行时间通常用来计算某个操作所使用的时间： Start:=GetTickCount; ...//执行耗时的操作Stop:=GetTickCount; TimeUsed:=(Stop-Start)/1000; //使用了xxx秒也可以用来做延时程序：Procedure TForm1.Delay(Msecs: Integer);var firstTickCo 阅读全文

摘要：形式 function StrToIntDef(const S: string; Default: Integer): Integer;引用单元 SysUtils.pas功能 返回字符串S转换成整数说明 字符串非整数表达时则返回默认值Default参考 procedure System.Val例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0);返回int（Edit1.Text） 如果不成功，返回0例子代码：procedure TForm1.btn1Click(Sender: TObject);var i:Integer; S:string;begi 阅读全文

摘要：function ListFiles(Dir: String):TStrings;var FSearchRec: TSearchRec; FileList: TStrings; FindResult: Integer;begin if Dir[length(Dir)]<>'\' then Dir:=Dir+'\'; FileList :=TStringList.Create; FindResult:=FindFirst(Dir+'*.ini',faAnyFile+faDirectory,FSearchRec); //只历遍INI文件类 阅读全文

摘要：//延迟函数：方法一procedure delay(msecs:integer);var Tick: DWord; Event: THandle; begin Event := CreateEvent(nil, False, False, nil); try Tick := GetTickCount + DWord(msecs); while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <> WAIT_TIMEOUT) do begin Application. 阅读全文

摘要：Function StrToHexStr(Const S: String): String; //字符串转换成16进制字符串(方法一) Var I: Integer; Begin For I := 1 To Length(S) Do Begin If I = 1 Then Result := IntToHex(Ord(S[1]), 2) Else Result := Result + ' ' + IntToHex(Ord(S[I]), 2); End; End; function strToHexStr(str:string):string; //字符串转换成16进制字符串(方 阅读全文

只有注册用户登录后才能阅读该文。