摘要: 国外 视频讲解 http://codegearguru.com/index.phpAbout Delphi http://delphi.about.com/od/ 国内 大富翁 http://www.dfwlt.com/forum.php?gid=1Delphi盒子 http://www.2ccc. 阅读全文
posted @ 2017-10-16 11:03 绿水青山777 阅读(427) 评论(0) 推荐(0)
摘要: DELPHI 各版本下载 链接: https://pan.baidu.com/s/1qYCU8kk 密码: igmc 阅读全文
posted @ 2017-10-16 11:02 绿水青山777 阅读(686) 评论(0) 推荐(0)
摘要: 转:http://www.cnblogs.com/jay-xu33/p/5210098.html oracle11g 修改字符集 修改为ZHS16GBK1.cmd下,cd到oracle数据库软件的服务器端 如:D:\app\Administrator\product\11.2.0\dbhome_1\ 阅读全文
posted @ 2017-09-29 21:19 绿水青山777 阅读(182) 评论(0) 推荐(0)
摘要: delphi 判断调试状态 delphi 判断调试状态 D7:DebugHook 该变量在调试状态下值为1,运行模式为0,例如,我们可以使用如下的代码来简单控制: if DebugHook=0 thenDXE6 : if IsDebuggerPresent then LangManager.Acti 阅读全文
posted @ 2017-09-27 10:11 绿水青山777 阅读(433) 评论(0) 推荐(0)
摘要: 不加引号 错误提示:没有声明的变量 frxReport1.Variables['bt'] := QuotedStr(getyym + _('门诊挂号员日报')); frxReport1.Variables['czy'] := QuotedStr( dosql.fieldbyname('xingm') 阅读全文
posted @ 2017-09-22 14:29 绿水青山777 阅读(207) 评论(0) 推荐(0)
摘要: d7 >dxe6需要修改 1.PChar替换成PAnsiChar 2.Length(P1) 修改成 Length(P1)*SizeOf(Char) 或者 ByteLength函数计算 3.Key in ['a'..'z','B','C'] 这类代码最好替换成CharInSet(Key,['a'..' 阅读全文
posted @ 2017-09-18 10:17 绿水青山777 阅读(1498) 评论(0) 推荐(0)
摘要: 阅读全文
posted @ 2017-09-16 11:00 绿水青山777 阅读(129) 评论(0) 推荐(0)
摘要: Windows将消息分成了几块,其中的一块是划分给程序自定义的消息使用的。自定义的消息其实于WM_APP。当然了,自定义的消息也可以不从WM_APP开始,但是那样的话,你定义的消息代码有可能和Windows的消息代码重复。所以,安全起见,自定义的消息,最好还是从WM_APP开始。 procedure 阅读全文
posted @ 2017-09-15 16:28 绿水青山777 阅读(154) 评论(0) 推荐(0)
摘要: 转自于:http://www.cnblogs.com/findumars/p/3847804.html 有意思的RTL函数RegisterClass(在持久化中,你生成的一个新类的对象,系统并不知道他是如何来的,因此需要你注册)good 例子1:Delphi中使用纯正的面向对象方法(这个例子最直接) 阅读全文
posted @ 2017-09-14 09:16 绿水青山777 阅读(276) 评论(0) 推荐(0)
摘要: procedure TfrmBiaoBLBWH.Button1Click(Sender: TObject);var ABinary,AText:TMemoryStream;begin inherited; ABinary:=TMemoryStream.Create; ABinary.WriteCom 阅读全文
posted @ 2017-09-14 08:59 绿水青山777 阅读(171) 评论(0) 推荐(0)