可怜这片多灾多难的土地,愿上天赐福于这些民众...

1. 男人是社会的主体，不管你信或不信。所以男人应该有种责任感。
　　2. 25岁之前，请记得，爱情通常是假的，或者不是你所想象的那样纯洁和永远。如果你过了25岁，那么你应该懂得这个道理。
　　3. 吃饭7成饱..

阅读全文>>

重新来过
我常觉得你不是不够聪明，而是不够傻，今天莱丽叶音乐院艾司纳（Leonard Eisner）教授对你演奏的评语，即印证了我的话。
艾司纳教授说，他发现体有非常好的音感和记忆力，什么曲调只要听一遍，就能模仿..

阅读全文>>

第5部分
05
--------------------------------------------------------------------------------
有个话剧演员，独白到舞台边，突然听见下面人传来嗑爪子的声音，虽然只有一声，他却气得差点从台上跳下去，掐..

阅读全文>>

一个娇生惯养，从未出过远门的孩子，从今早开始，每天要坐三个多小时的车子，穿过肮脏黑暗而强盗出没的地区，到曼哈顿的高中上学……

上课第一天
今天是你上高中的第一天，虽然早晨我没有起来送你，却很清醒地..

阅读全文>>

面向对象的编程工具的特点之一就是要提高代码重用性(Reuse)，作为新一代可视化开发工具，Delphi中的代码重用性相当高。我们知道，在Delphi中，大部分程序代码都直接或间接地对应着一个事件，此程序称为事件处理句柄..

阅读全文>>

SQL SERVER 与ACCESS、EXCEL的数据转换

熟悉SQL SERVER 2000的数据库管理员都知道，其DTS可以进行数据的导入导出，其实，我们也可以使用Transact-SQL语句进行导入导出操作。在Transact-SQL语句中，我们主要使用O..

阅读全文>>

Delphi中易混淆的概念


　　一、Owner和Parent的区别：
　　Parent属性是指构件的包容器，构件只能在此范围内显示和移动。举例子如下：
　　(1)在Form1的窗体上，放一个Panel1,并将Panel1拉大，
　　(2)在Panel1上..

阅读全文>>

Delphi 中Sender对象的定义


1.Sender的定义：
每一个事件处理里面至少都有一个Sender参数。比如：
procedure TForm1.Button1Click(Sender:TObject);
begin
...
end;
Sender的含义就是代表调用TForm1.Butto..

阅读全文>>

Juliette Lewis: “I just want to tell you I love you, and I miss you.
Don't forget about me.
You won't forget about me?”


Woody Harrelson: “I won't forget about you.
It'..

阅读全文>>

Delphi与Word之间的融合技术
yzhshi@263.net
一、VBA代码含义
Microsoft Word是一个集成化环境，是美国微软公司的字处理系统，但是它决不仅仅是一个字处理系统，它集成了Microsoft Visual Basic，可以通过编程来实..

阅读全文>>

动态链接库是一个能够被应用程序和其它的DLL调用的过程和函数的集合体,它里面包含的是公共代码或资源。由于DLL代码使用了内存共享技术,在某些地方windows也给了DLL一些更高的权限,因而DLL中可以实现一些一般程序所..

阅读全文>>

今年是我大学毕业满10年的日子，也是我投身it技术的第10年。一直想能对过去的经历做些回顾与反思，以更好地走向未来，但总没有笔。刚好csdn举办“讲述程序员的故事”征文，这件事成了一个引子，我终于趁着暑期有时..

阅读全文>>

TField对象的SetText和GetText事件处理函数
使用TField对象的SetText和GetText事件处理函数可方便的解决字段的代码与代码所对应值的显示问题
TSimpleDataset/TClientDataset对象的Aggregation
使用TDataset对象的A..

阅读全文>>

=========================================================================}

unit Net;

interface

uses

SysUtils

,Windows

,dialogs

,winsock

,Classes

,ComObj

,WinInet;

//得到本机的局域网Ip地址..

阅读全文>>

引用 ShlwApi.pas

//取绝对路径的函数

// BasePath: 是参考路径。RelativePath: 是指相对路径

function GetAbsolutePathEx(BasePath, RelativePath:string):string;
var
Dest:array [0..MAX_PATH] of char..

阅读全文>>

在 Delphi 中调用 Windows API 函数十分方便,只需在单元的 uses 段加入 Windows 单元名即可 ( 对于由 Delphi 自动创建的单元,该项工作已经完成 ) 。单元 Windows.pas 已经由 Delphi 编写并直接提供开发者引用?1 收..

阅读全文>>

《Delphi 7 经典问题解析》里一个可参考的例子，实现无VCL版可视窗体的构建。其实这在本人前篇文章《我的第一个偏移量补丁》里已有相关实现方法，不过那是用资源文件方式生成，而这个却完全是用纯代码编写，编译运..

阅读全文>>

uses

windows,

messages;
const

hellostr='Hello World!';
{$R delphi.res}

//窗口消息处理函数.

function MyWinProc(hWnd:THandle;uMsg:UINT;wParam,lParam:Cardinal):Cardinal;exp

ort;stdcall;
v..

阅读全文>>

library MYAPIDLL;
{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause ..

阅读全文>>

为了能在Windows下快速开发应用程序，Delphi对Windows的控件都进行了很好的封装，这样，我们就可以直接使用Delphi的控件来编写程序，而不用使用格式、调用控制复杂的API来进行开发，为我们节省了大量的开发时间。
..

阅读全文>>