易截截图软件、单文件、免安装、纯绿色、仅160KB
热门标签: c c# c++ asp asp.net linux php jsp java vb Python Ruby mysql sql access Sqlite sqlserver delphi javascript Oracle ajax wap mssql html css flash flex dreamweaver xml
 最新文章 : delphi

delphi编程里的bool跟boolean类型有什么区别

bool是LongBool类型。
Delphi中定义了四种布尔类型:Boolean,ByteBool,WordBool和LongBool。后面三种布尔类型是为了与其他语言兼容而引入的,一般情况下建议使用Boolean类型。
这四种类型的布尔值占用内存的数量如下:
Boolean 1 Byte
ByteBool 1 Byte
WordBool 2 Bytes(1 Word)
LongBool 4 Bytes(2 Words)
对于ByteBool,WordBool和LongBool三种类型True常量的值为非零,False为零,可以用Ord函数验证;
而对于Boolean类型,True常量的值为1,False为零。在期望Boolean值的上下文中,编译器会将ByteBool,WordBool和LongBool三种类型的非零值转换为True。
然而,在Delphi中布尔表达式和Integer/Real是不兼容的。下面的表格对比了Boolean与ByteBool/WordBool/LongBool在异同:
Boolean
 False < True
Ord(False) = 0
Ord(True) = 1
Succ(False) = True
Pred(True) = False
BoolToStr(True) = -1 //这个函数很变态
BoolToStr(False) = 0
ByteBool, WordBool, LongBool
False <> True
Ord(False) = 0
Ord(True) <> 0
Succ(False) = True
Pred(False) = True
BoolToStr这个函数最莫名其妙了,明明说True的值是1,而它却告诉我 ......

数字转换大写人民币的delphi实现

文章来源:IT工程信息网  http://www.systhinker.com/html/09/n-12309.html
之前用Access作一个应用,但找不到货币转换成大写人民币的功能(当然可以通过excel 转换,但不在一个应用上,放弃)。以为比较简单,自己试写,谁知用了两个晚上,才基本实现,但没有小数点(元)以下货币的转换。也没有兆的判断。而且对字符的合法性也没有检验。今天有时间,将其完善一下。(可能还会有考虑不周的地方)
思路:
1、判断是否带有小数点的金额,如果是,就找出小数点所在数据。该位字符不进行转换。
2、小数点前的作为整数位,进行转换。整数位的每一位都有表示金额的级别:拾、佰、仟。而且还有万、亿的级别。
3、小数点后的作为角、分、厘处理。
4、如果有连续的零,只显示一个零。如50006,显示为伍万零陆。如果是发生在拾、佰、仟位,该零还要去掉。
view source
< id="highlighter_197338_clipboard" title="copy to clipboard" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" width="16" height="16" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,0,0" type="application/x-shockwave-flash">
print?
00 ......

Delphi日期函数

所在单元: DateUtils
Day 开头的函数
1、DayOf()
描述: 使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个 只带有日期的 TDateTime 类型变量。 例如: showmessage(DateTimetostr(dateof(now()))); 你得到的是 2003/03/19 而 showmessage(DateTimetostr((now()))); 得到的是
2、DateTimeTostr()
描述: DateTimeToString 函数将 TDateTime 类型的参数 DateTime 转换成一个 字符串,使用给定的全局变量 ShortDateFormat 的格式,时间部分按照 给定的全局变量 LongTimeFormat 的格式。 其中 DateTime 为零的部分将不会显示出来。 例如: ShortDateFormat:=’yyyy mm dd’; showmessage(DateTimetostr((now()))); 你将得到:2003
3、DateTimeToString
描述: DateTimeToString 方法将TDateTime类型的参数DateTime 按照由参数Format提供的格式 转化成字符串,并保存在Result中。 对于Format的格式类型,请看 Date-Time format strings 的帮助。 例如: DateTimeToString(result,’yyyy mm dd’,now()); 那么 result的结果为:2003
4、DateTimeToSystemTime ()
描述: 有时为了调用API函数来使用系统时间,你可以使用 DateTimeToSystemTi ......

Delphi to Excel 一些方法

一)   使用动态创建的方法   
  
  首先创建   Excel   对象,使用ComObj: 
  var   ExcelApp:   Variant; 
  ExcelApp   :=   CreateOleObject(   'Excel.Application'   ); 
  
  1)   显示当前窗口: 
  ExcelApp.Visible   :=   True; 
  
  2)   更改   Excel   标题栏: 
  ExcelApp.Caption   :=   '应用程序调用   Microsoft   Excel'; 
  
  3)   添加新工作簿: 
  ExcelApp.WorkBooks.Add; 
  
  4)   打开已存在的工作簿: 
  ExcelApp.WorkBooks.Open(   'C:\Excel\Demo.xls'   ); 
  
  5)   设置第2个工作表为活动工作表: 
  ExcelApp.WorkSheet ......

ExpressQuantumGrid.Suite.v6.30 在Delphi 7中的安装

ExpressQuantumGrid.Suite.v6.30 在Delphi 7中的安装
大名鼎鼎的Grid控件,没有找到打好包的,以下是手动安装步骤
=====================
1、必须配套安装如下7组控件,已经安装过的则跳过
XP Theme Manager
ExpressGDI+ Library
ExpressLibrary
ExpressExport Library
ExpressDataController
ExpressEditors Library 5
ExpressPageControl 2
2、在Delphi 7中,选择菜单File | Close All(最好这样);
3、(可选步骤)选择菜单Tools | Environment Options...,在Environment Variables页中,点击"New..."按钮,在Variable Name右边输入框中输入cxQGrid(或任意其他名字,但后面的设置要与此一致),在Variable Value右边输入框中输入控件的绝对路径(如:C:\Program Files\Borland\Delphi7\Projects\ExpressQuantumGrid.Suite.v6.30\),按"OK";
4、点击"Library"切换到Library页,在Library path后面加上:
$(cxQGrid)\XP Theme Manager\Sources;
$(cxQGrid)\ExpressGDI+ Library\Sources;
$(cxQGrid)\ExpressLibrary\Sources;
$(cxQGrid)\ExpressExport Library\Sources;
$(cxQGrid)\ExpressDataController\Sources;
$(cxQGrid)\ExpressEditors Libr ......

Delphi在Vasta/win 7下获取权限

毕竟Win32程序的开发,Delphi还是有顽强的生命力的。
操作步骤如下:
1.建立 res 文件
建立一个文本文件,名字可以自己起,我这里叫:UAC.manifest,内容:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
<security>
<requestedPrivileges>
<requestedExecutionLevel level="requireAdministrator"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>
建立文本文件,名为 UAC.rc,内容:
1 24 UAC.manifest
编译成 uac.res 文件,运行:
brcc32 uac.rc -fouac.res
2.在代码中引入
打开项目文件,加入
{$R uac.res}
3.编译程序
这时程序就支持 VISTA 了,在运行的时候,会弹出 WINDOWS 的提示框,询问用户是否允许以管理员身份运行。
 通过我自己实践,在Delphi7下面是可以的,但是在Delphi2009下面测试没有通过。 ......
总记录数:644; 总页数:108; 每页6 条; 首页 上一页 [2] [3] [4] [5] 6 [7] [8] [9] [10] [11]  下一页 尾页
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号