- 博客(5)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 Delphi TDateTime与Double的区别
//相关函数:SysUtils.FloatToDateTime();SysUtils.TryFloatToDateTime();在 System 单元定义有: TDateTime = type Double;看来 TDateTime 是一个 8 字节 64 位数据, 不过是 Double 的别名.{测试: TDateTime 就是一个 Double}vart: TDateTime;...
2019-03-21 14:57:28
756
原创 delphi关闭程序Close,application.Terminate与halt区别
当Close是一个主窗体时,程序会退出.Close会发生FormClose事件,FormCloseQuery事件Halt会发生FormDestory事件,Application.Terminate以上三个事件都不会发生Application.Terminate就是程序结束了。整个程序结束运行，系统强行收回系统资源当主窗口关闭时或WM_QUIT消息触发时,Terminate自动被调用cl...
2019-03-09 15:55:01
615
原创 delphi的str()函数跟inttostr()函数的效率问题
大家用delphi编程的时候，遇到需要把整数转为字符串，一般都是用inttostr函数，但是，其实还有另外一个方法的，就是用str函数，格式是str(整数,输出字符串)。看看下面的例子：varsss:string;str(123,sss);//sss := IntToStr(123);showmessage(sss);上面输出的结果都是123。但是考虑到速度问题，找出最合适我们使用的那...
2019-03-09 15:10:19
2580
原创 Delphi测试题——从Memo去重数据
vari: Integer;s: string;beginfor I := 0 to mmo1.Lines.Count - 1 dobegins := mmo1.Lines[i];mmo1.Lines.Delete(i);while mmo1.Lines.IndexOf(s) > -1 dommo1.Lines.Delete(mmo1.Lines.IndexOf(s));...
2019-02-22 19:43:39
604
2
原创 Delphi测试题——将字符串"10ad200d3" 中的数字合计
vari: Integer;t1: string;t2: Integer;n1: Integer;s: string;begins := Edit1.Text;if s = ‘’ thenexitelsebegint1 := '';t2 := 0;n1 := 1;for I := 1 to Length(Edit1.Text) dobegin if not (s...
2019-02-22 19:00:22
149
SQLPrompt 10.1.7 (完美支持SQL Server2019及以上,附赠styles免设置)
2022-08-17
DelphiXE10.3 三方控件集合包（EhLib，fastreport6，Raize，SUI，BusinessSkinForm）
2019-03-30
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人