摘要: DELPHI常见属性说明: ALIGN 设置组件对齐(同其父容器)方式 BORDERSTYLE 设置组件边框形状 CAPTION 设置组件标题 CTL3D 设置组件边框是否为3D模式,若BORDERSTYLE设置为BSNONE则此属性无效 COLOR 设定组件背景颜色 CURSOR 设定鼠标经过组件时光标所显示的形状 ENABLED 设定组件是否能使用,当设为FALSE时组件会呈灰色 FONT 设... 阅读全文
posted @ 2009-03-12 13:33 谭志宇 阅读(1450) 评论(0) 推荐(0) 编辑
该文被密码保护。 阅读全文
posted @ 2009-03-12 10:33 谭志宇 阅读(1) 评论(0) 推荐(0) 编辑
该文被密码保护。 阅读全文
posted @ 2009-03-06 11:49 谭志宇 阅读(5) 评论(0) 推荐(0) 编辑
摘要: #include using namespace std; class ta { public: ta() { coutfun(); delete a; return 0; } DELPHI代码 type Ta = class public constructor create(); procedure Test; virtual; destru... 阅读全文
posted @ 2009-03-06 02:27 谭志宇 阅读(219) 评论(0) 推荐(0) 编辑
摘要: 1 WebBrowser1.Width := TControl(WebBrowser1).Parent.ClientWidth + 3; WebBrowser1.Height := TControl(WebBrowser1).Parent.ClientHeight + 3; WebBrowser1.Left := -2; WebBrowser1.Top... 阅读全文
posted @ 2009-03-05 21:31 谭志宇 阅读(3492) 评论(0) 推荐(0) 编辑
摘要: Function Str_Gb2UniCode(text:String):String; var i,j,len: integer; cur: integer; t: String; ws: widestring; begin Result:=''; ws:=text; len:=length(ws); i:=1; j:=0; while i #include void En... 阅读全文
posted @ 2009-03-05 11:47 谭志宇 阅读(984) 评论(0) 推荐(0) 编辑
摘要: #include #include #include using namespace std; void find(char *IpPath) { char szFind[100]; char szFile[100]; WIN32_FIND_DATA FindFileData; strcpy(szFind,IpPath); strcat(szFind,... 阅读全文
posted @ 2009-03-05 00:19 谭志宇 阅读(177) 评论(0) 推荐(0) 编辑
摘要: 剖析Delphi中的构造和析构 1 Delphi中的对象模型: 2 1.1 对象名表示什么? 2 1.2 对象存储在哪里? 2 1.3 对象中存储了什么?它们是如何存储的? 3 2 构造函数与创建对象 5 2.1 什么是构造函数?(“特殊的”类方法) 5 2.2 对象的创建的全过程 5 2.3构造函数另类用法(使用类引用实现构造函数的多态性) 6 3 析构函数与销毁对象 7 3.1 什么是析构函... 阅读全文
posted @ 2009-03-04 21:33 谭志宇 阅读(595) 评论(0) 推荐(1) 编辑
摘要: CodeCode highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->#include #include typedef struct node { int value; struct node* next; }node, *node_list; vo... 阅读全文
posted @ 2009-03-02 01:13 谭志宇 阅读(664) 评论(0) 推荐(0) 编辑
摘要: #include using namespace std; int main() { int a[30]; for(int i = 1; i <= 30; i++) a[i-1] = i; int num = 30, j= 0; int *current = a; while (num != 1) { if ((current == a+30 ) || (*current =... 阅读全文
posted @ 2009-03-02 01:12 谭志宇 阅读(189) 评论(0) 推荐(0) 编辑