delphi小技巧集锦_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

delphi小技巧集锦

作者：闵涛文章来源：闵涛的学习笔记点击数：2229 更新时间：2009/4/23 18:28:14

t:= strtoint(FormatFloat(''''#'''',value));
end; function doRound(Value: Double): integer;
//取整四舍五入
//这个我有一半，呵呵。
begin
if Value < 0 then Result:= - doRound( -Value )
else
Result := round(int((value + 0.5) * 10)) div 10;
end;
//当然，这个函数还有其他的写法，如果你有不同的思路欢迎继续。。。补充说明：
round这个函数本身采用的是“四舍六入五成双”的法则，虽然更科学，但是实际应用中没有几个用这种规则的。
我也贴几个自己常用的：
{-----------------------------------------------------------------------------
过程名: Msg
作者:   Gongqin
日期:   2003-6-9 16:57:44
参数:   AMsg : String; ATitle : String=''''提示''''; AType : byte=0; btn : Longint=0
            AType := 1 显示"信息"图标
                      2 显示"错误"图标
             AMsg(显示的消息内容)   ATitle(显示标题)
             btn   := 0 显示 OK
                      1 显示 Ok Cancel
                      2 显示 Yes No
                      3 显示 Retry and Cancel
                      4 显示 Abort, Retry, and Ignore
返回值: Integer
说明：显示消息对话框
-----------------------------------------------------------------------------}
function Msg(AMsg: String;ATitle: String;AType: byte;btn: Longint): Integer;
var Flag : Longint;
begin
case AType of
    1: Flag := MB_ICONQUESTION; //提问
    2: Flag := MB_ICONERROR; //Error
    3: Flag := MB_ICONSTOP; //Stop
else
    Flag := MB_ICONWARNING;
end;
case btn of
    0 : Flag := Flag + MB_OK;
    1 : Flag := Flag + MB_OKCANCEL;
    2 : Flag := Flag + MB_YESNO;
    3 : Flag := Flag + MB_YESNOCANCEL;
    4 : Flag := Flag + MB_RETRYCANCEL;
    5 : Flag := Flag + MB_ABORTRETRYIGNORE;
end;
result := Application.MessageBox(pchar(AMsg), pchar(ATitle), Flag);
end; {-----------------------------------------------------------------------------
过程名: getAppPath
作者:   Gongqin
日期:   2003-6-9 17:01:17
参数:   None
返回值: string
说明：取应用程序的路径
          如果只用ExtractFilePath(ExtractFilePath(application.Exename))取路径
          可能出错，所以加了处理
-----------------------------------------------------------------------------}
function getAppPath : string;
var
strTmp : string;
begin
strTmp := ExtractFilePath(ExtractFilePath(application.Exename));
if strTmp[length(strTmp)] <> ''''\'''' then
    strTmp := strTmp + ''''\'''';
result := strTmp;
end;
下面是我自己整理的
http://www.myf1.net/bbs/dispbbs.asp?boardID=5&ID=215239
//计算当前日期所在的季度的第一个月份和最后一个月份
//终极版
function QuarterBegin( TheDate : TDateTime = 0 ) : Integer;
//Copy Right 549@18:25 2003-9-3
begin
Result := ( Quarter( TheDate ) - 1 ) * 3 + 1;
end; function QuarterEnd( TheDate : TDateTime = 0 ) : Integer;
//Copy Right 549@18:25 2003-9-3
begin
Result := ( Quarter( TheDate ) - 1 ) * 3 + 3;
end; function Quarter( TheDate : TDateTime = 0 ) : Integer;
//Copy Right 549@10:06 2003-9-5
begin
Result := MonthOf( TheDate );
if TheDate = 0 then Result := MonthOf( Date );
Result := ( Result + 2 ) div 3;
end;

上一页 [1] [2] [3]

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：对使用Delphi制作DLL复用文件的建议

下一篇教程：扑克牌组件之二——利用 cards.dll 编写扑克牌组件

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……