癫狂编程

摘要： //动态创建四级菜单 var MainMenu:TMainMenu; SubMenu,SubMenu2,submenu3,submenu4:TMenuItem; MainMenu:=TMainMenu.Create(self); MainMenu.AutoHotkeys:=maManual; Sub 阅读全文

摘要： 背景：连接数据库用ADOQuery控件，但是程序一旦编译完成，如果想更改数据库连接设置还得重新修改ADOQuery的属性重新编译 如果可以在程序中可以随时设置ADOQuery的属性则会方便很多。 实现：调用如下程序可以进行数据库连接属性的设置 [delphi] view plaincopyprint 阅读全文

摘要： 项目需要使用"数据链接属性"对话框来设置ConnectionString,查阅了一些资料,解决办法如下: 1.Delphi在Delphi中比较简单,步骤如下:方法1: use ADOConED; ADOConED.EditConnectionString(ADOConnection1); 这样我们就 阅读全文

摘要： 已经使用CnPack好几年了，这个插件太好了，现在离开它我都不会写代码了，现在将使用心得与大家分享一下： 1.代码助手非常好用，只需要输入几个字符后，自动出现提示列表，真是懒人的福音呀。 2.代码高亮很方便，【源代码高亮扩展】->【允许光标处匹配当前标示符背景高亮显示】选项（此选项默认不打开）打开后 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton... 阅读全文

摘要： function Encode(Str: string): string; var //加密 TmpChr: AnsiChar; i, Len: integer; begin Result := Str; Len := Length(Result); TmpChr := Result[1]; for 阅读全文