![](https://img-blog.csdnimg.cn/20201014180756757.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
delphi技巧
dragon191
这个作者很懒,什么都没留下…
展开
-
得到周的描述
function getChinaWeek(adate : TdateTime) : string;var iWeek : integer;begin iWeek := dayofWeek(aDate); Result := ChinaWeek[iWeek - 1];end;转载 2005-04-15 09:11:00 · 695 阅读 · 0 评论 -
运行SQL语句
procedure RunSQL(sql : string);var comm : TAdoCommand;begin comm := TAdoCommand.Create(nil); comm.Connection := DM_Frm.AdoConn; comm.CommandText := sql; comm.Execute; FreeAndNil(Comm);end;转载 2005-04-15 09:44:00 · 723 阅读 · 0 评论 -
通过回车控制光标向下一控件移动
procedure TFrom1.FormKeyPress(Sender: TObject; var Key: Char);begin if KEY = #13 then perform(WM_NEXTDLGCTL, 0, 0);end;转载 2005-04-15 08:46:00 · 872 阅读 · 0 评论 -
把事务处理,分离出来!
function BeginTrans: Integer;begin if DM_Frm.AdoConn.InTransaction then DM_Frm.AdoConn.RollbackTrans; Result := DM_Frm.AdoConn.BeginTrans;end;procedure CommitTrans;begin DM_Frm.AdoConn.CommitTra转载 2005-04-15 09:40:00 · 836 阅读 · 0 评论 -
删除程序自身
(*//标题:自己删除自己说明:警告执行此程序将删除所在目录的所有文件及目录设计:Zswang日期:2002-01-29支持:wjhu111@21cn.com//*)///////Begin Sourceuses Windows, Dialogs, SysUtils, Controls;procedure DeleteMe(mDeleteDir: Boolean = False); { 自己删除转载 2005-04-15 11:35:00 · 729 阅读 · 0 评论 -
得到汉字的拼音
function TForm1.getpy(sHZ: string): string;var i: Integer; PY: string; s: string; function GetPYIndexChar(hzchar: string): char; begin case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of $B0A转载 2005-04-14 23:10:00 · 768 阅读 · 0 评论 -
获得当前应用程序的路径
function getApplicationPath : string;var strTmp : string;begin strTmp := getStanPath(ExtractFilePath(application.Exename)); result := strTmp;end;function getStanPath(const aPath : string) :string;b转载 2005-04-15 09:03:00 · 654 阅读 · 0 评论 -
当前系统信息
function getSystemInfo : string;var midStr : string;begin case Win32Platform of VER_PLATFORM_WIN32_WINDOWS : midStr := Windows 9x; VER_PLATFORM_WIN32_NT : midStr := Windows NT; end; if W转载 2005-04-15 09:04:00 · 599 阅读 · 0 评论 -
连接数据库
var OptionIni : TIniFile;function TDM_Frm.optionSet(conn: TAdoConnection; Param: string): boolean;var serverName ,UserName,pwd, DBName : string;begin result := True; try serverName := OptionIni转载 2005-04-15 09:59:00 · 705 阅读 · 0 评论