- 博客(6)
- 资源 (30)
- 收藏
- 关注
原创 自动关闭对话框
<br />{*******************************************************} { } { 一种自动关闭对话框的简单方法 } { } { 使用方法:打开对话框前调用 SetDlgAuto
2011-01-27 02:09:00 712
原创 uses IdTime;
uses IdTime; //clock.psu.edu; var HttpTime, LocalTime: string; begin LocalTime := FormatDateTime('HHMM', now); try HttpTime := TimeToStr(idtm1.DateTime); HttpTime := Copy(HttpTime, 1, 5); HttpTime := StringReplace(HttpTime, ':',
2011-01-20 04:02:00 804
原创 模糊搜索
<br />USES StrUtils if AnsiContainsText('abcrfghhhg','ab') then ShowMessage('YES') else ShowMessage('NO');
2011-01-18 23:07:00 437
原创 function MakeFileList
<br />function MakeFileList(Path, FileExt: string; LimitFile: string): TStringList; var sch: TSearchrec; begin Result := TStringlist.Create; if rightStr(trim(Path), 1) <> '/' then //RightStr Uses StrUtils Path := trim(Path) + '/
2011-01-17 15:39:00 609
原创 //让 Edit 只接受数字
<br />//让 Edit 只接受数字 //方法1: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9']) then Key := Chr(0); end; //方法2: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not
2011-01-02 23:21:00 453
原创 InStall SerVice Demo
{ Install Service Demo } { } { 2011年元旦By[haiou327] } { } { } function InstallService(PathName, Name, DisplayName: PChar): Boolean; var schSCManager, sc
2011-01-01 04:23:00 778
TMS Component Pack 5.7.1.0 Full Source 安装版
2010-10-02
DELPHI全掌握(万一先生的博客)
2009-07-05
PASCAL精要(编程技巧)
2009-07-05
API函数的中文帮助文件
2009-07-05
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人