当你踌躇不前、站在人生十字路口时候，这56条哲理或许能助你一臂之力！ 1．拿得起，放得下 我们每个人都有很多“宝贝”，但你不可能什么都得到，在某些时候一定要学会拿得起，放得下。拿得起是勇气，放得下是肚量，拿的起是可贵，放得下是超脱。人生最大的敬佩是拿得起，生命最大的安慰是放得下。 2．做人要心怀感恩 Read More
posted @ 2016-03-17 23:58
findumars
Views(436)
Comments(0)
Diggs(0)
1. [CTRL+空格] [CTRL+SHIFT+空格] 这两个快捷键都是在代码编写过程中用到的，起提示作用，使用频率最高。 CTRL+空格： 在当前光标处提示有哪些变量、函数可以使用。这个功能对于无法准确写出函数名非常有用，你不需要去记住每个函数的名字，只需要在提示选项中选择，这样你仅需要输入几个 Read More
posted @ 2016-03-17 23:54
findumars
Views(1362)
Comments(0)
Diggs(0)
请看下面的代码： program TestRecord; {$APPTYPE CONSOLE} uses SysUtils, Math; type TRecordA = record Name: string; end; procedure RunTestRecord;var R1, R2: TRe Read More
posted @ 2016-03-17 23:46
findumars
Views(599)
Comments(0)
Diggs(0)
先定义一个结构： TUserInfo = record UserID: Integer; // 用户编号 UserName: string; // 用户名end; 然后编写如下代码： procedure TForm1.Timer1Timer(Sender: TObject);begin User.U Read More
posted @ 2016-03-17 23:45
findumars
Views(833)
Comments(0)
Diggs(0)
Delphi的VCL框架在创建应用时TApplication是一个自动创建的隐藏窗口，其它创建的窗口是自动以该窗口为窗口，这就导致创始的主窗口在任务栏的系统菜单只有三项，只要在主窗口的Create事件中将系统菜单用Application的系统菜单替换，并将SysCommand消息转发到主窗口就正常了 Read More
posted @ 2016-03-17 23:43
findumars
Views(341)
Comments(0)
Diggs(0)
// UTF-8文件写入函数procedure SaveUTFFile(const FileName: string; S: string; WriteHeader: Boolean = True);var MemStream: TMemoryStream; HeaderStr: String;be Read More
posted @ 2016-03-17 23:39
findumars
Views(6998)
Comments(0)
Diggs(0)
主要扩展了3D界面、右键菜单、是否显示图片、是否支持JAVA等功能。 代码如下： http://blog.csdn.net/missmecn/article/details/2292758 Read More
posted @ 2016-03-17 23:38
findumars
Views(1396)
Comments(1)
Diggs(0)
Str:= '2010-4-13 06:22:22'; StrToDateTime(Str); 现象：在WinXP, Win2003 都不会报错 但是在Windows7,Windows Server 2008 上，报 ‘xxx’ is not a valid date and time 错误 后来发 Read More
posted @ 2016-03-17 23:33
findumars
Views(506)
Comments(0)
Diggs(0)
uses DateUtils;DateTimeToUnix(Now) 可以转换到unix时间，但是注意的是，它得到的时间比c语言中time()得到的时间大了8*60*60这是因为Now是当前时区的时间，c语言中time()是按格林威治时间计算的，北京时间比格林威治时间多了8小时DateTimeToU Read More
posted @ 2016-03-17 23:32
findumars
Views(1384)
Comments(0)
Diggs(0)
比如一个在许多方面都相当精通的高手，看某一门新技术，没准就是三下两下就学完了，这就是高手的速度、高手的魅力。因为许多原理性的东西，与以前所学的都是想通的，需要用的时候，只是查一下手册罢了。 这就是侯捷们给人感觉，可以广泛涉猎、无所不通的缘故。其实就是他们享受了他们自己之前取得的成果——于是一个高手就 Read More
posted @ 2016-03-17 23:24
findumars
Views(276)
Comments(0)
Diggs(0)
https://wiki.qt.io/New_Features_in_Qt_5.6 （跨平台High-DPI，改进WebEngine到45，支持WIN 10，Canvas3D，3D） https://wiki.qt.io/New_Features_in_Qt_5.7 （充分利用C++11进行编写，Q Read More
posted @ 2016-03-17 22:39
findumars
Views(2616)
Comments(0)
Diggs(0)
在多线程开发中,如果在多线程中访问主线程创建的对象,并触发了这个对象的事件,将会执行这个事件的处理函数,那么这个处理函数是在主线程中执行还是在触发事件的线程中执行呢?针对这个问题做了一下测试,如果没有通过Windows消息触发事件,则在子线程(触发事件的线程)中执行事件处理函数,如果是由Window Read More
posted @ 2016-03-17 21:13
findumars
Views(2034)
Comments(1)
Diggs(0)
function RunDOS(const CommandLine: string): string;var HRead, HWrite: THandle; StartInfo: TStartupInfo; ProceInfo: TProcessInformation; b: Boolean; sa Read More
posted @ 2016-03-17 21:12
findumars
Views(3598)
Comments(0)
Diggs(0)
Delphi的组件读写机制（一） 一、流式对象(Stream)和读写对象（Filer）的介绍在面向对象程序设计中，对象式数据管理占有很重要的地位。在Delphi中，对对象式数据管理的支持方式是其一大特色。 Delphi是一个面向对象的可视化设计与面向对象的语言相结合的集成开发环境。Delphi的核心 Read More
posted @ 2016-03-17 21:05
findumars
Views(2091)
Comments(0)
Diggs(0)
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,MSHTML, SHDOCVW,IdGlobal;type TM Read More
posted @ 2016-03-17 18:00
findumars
Views(2233)
Comments(0)
Diggs(0)
对TMemoryStream的一些改进 怎么又是关于Stream的，呵呵，应该说只是最近比较关心程序的效率问题，而我对Stream其实并没有什么特别的研究，只是自己发现了一些新的用法，希望能对大家有用而已。 事情的起因还是那个破烂电子相册软件，今天又发现了一个可改进之处，有一段程序我原来是这么写的： Read More
posted @ 2016-03-17 17:59
findumars
Views(331)
Comments(0)
Diggs(0)
用Delphi画圆角Panel的方法： procedure TForm1.Button5Click(Sender: TObject);var fhr :Thandle;beginfhr:=CreateRoundRectRgn(0,0,panel1.width,panel1.height,4,4);S Read More
posted @ 2016-03-17 17:45
findumars
Views(2298)
Comments(0)
Diggs(0)
Delphi5的System.pas只有11514行（不包含update2），是研究RTL的好材料 相比之下，Delphi6的System.pas只有18118行Delphi7的System.pas只有17975行 至于Controls.pas，各版本差不多，都是1万行作用。 Read More
posted @ 2016-03-17 06:08
findumars
Views(427)
Comments(0)
Diggs(0)
procedure TForm1.Button1Click(Sender: TObject);type TArr = array [0..0] of Integer; PArr = ^TArr;var arr: PArr; i: Integer;begin GetMem(arr, 100); for Read More
posted @ 2016-03-17 02:02
findumars
Views(1308)
Comments(0)
Diggs(0)
Delphi是一种强类型转换的语言。在VC中，赋值符用″=″,例如x=1;到了Delphi赋值符就变成了″:=″,例如x:=1。 从赋值时用符号″:=″而不用″=″,就隐约可见Delphi对类型匹配要求之严,即赋值符右边的类型一定要和左边一致。用惯了VB或VC的程序员,初用Delphi,稍不留神,就 Read More
posted @ 2016-03-17 02:00
findumars
Views(363)
Comments(0)
Diggs(0)
如果操作一个 record 指针中的字符串变量，会不会丢失 string 的内 存空间，造成内存泄漏？ 结果是：使用 New() 分配的内存，会自动初始化 record 的内容，并且在 Dispose 时自动 清除所有已分配的内存，包括 string 或其他动态数组的内存。GetMem/FreeMe Read More
posted @ 2016-03-17 01:57
findumars
Views(242)
Comments(0)
Diggs(0)
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, msxm Read More
posted @ 2016-03-17 01:55
findumars
Views(5065)
Comments(0)
Diggs(0)
ADO面板上的控件简介 一、 TADOConnection组件该组件用于建立数据库的连接。ADO的数据源组件和命令组件可以通过该组件运行命令及数据库中提取数据等。该组件用于建立数据库的连接，该连接可被多个数据集所共享，但是并不是应用程序中必须的，因为ADO数据集及命令组件通过设置其Connectio Read More
posted @ 2016-03-17 01:53
findumars
Views(2092)
Comments(0)
Diggs(0)
Type TFileVersionInfo = Record FixedInfo:TVSFixedFileInfo; {版本信息} CompanyName:String; {公司名称} FileDescription:String; {说明} FileVersion:String; {文件版本} I Read More
posted @ 2016-03-17 01:52
findumars
Views(3818)
Comments(0)
Diggs(0)
打开VS2008创建一个dll项目(创建了一个QT Library项目),新建头文件q4dapplication.h定义纯虚类: #ifndef Q4DAPPLICATION#define Q4DAPPLICATION class Q4DApplication { public: virtual i Read More
posted @ 2016-03-17 01:42
findumars
Views(1088)
Comments(0)
Diggs(0)
C语言应用非常广泛,并在世界各地拥有大量的代码库.这些代码库与Delphi的可比性较小,因此如果我们无需转换为Delphi代码而可以直接使用这些库的部分代码就完美了.幸运的是,Delphi允许连接到C编译出来的对象文件.但这里有” unsatisfied externals”问题. C is a v Read More
posted @ 2016-03-17 01:40
findumars
Views(1604)
Comments(0)
Diggs(0)
Pointers are like jumps, leading wildly from one part of the data structure to another. Their introduction into high-level languages has been a step b Read More
posted @ 2016-03-17 01:39
findumars
Views(1608)
Comments(0)
Diggs(0)
http://blog.csdn.net/henreash/article/details/38751353 Read More
posted @ 2016-03-17 01:33
findumars
Views(556)
Comments(0)
Diggs(0)
typedef struct tagRecord{ int val; int getvalplus() { val++; return val; }}TRecord, *PRecord; 带函数的结构体！面对这个面目狰狞的家伙，我开始无所适从，狂在GOOGLE、BAIDU里通过关键字“Delphi Read More
posted @ 2016-03-17 01:31
findumars
Views(1301)
Comments(0)
Diggs(0)
现在多数设备、计算机都有多个CPU单元，即使是手机也是多核的。但要在开发中使用多核的优势，却需要一些技巧，花费时间编写额外的代码。好了，现在可以使用Delphi做并行编程了。 在Delphi、C++ Builder和RAD Studio XE7中，有一个简化并行运行任务的库，叫做并行编程库。 并行编 Read More
posted @ 2016-03-17 01:29
findumars
Views(1927)
Comments(0)
Diggs(0)
将下面的代码拷贝到一个单元中,创建一个包,加入这个单元后安装.使用的时候设置好背景颜色,边框颜色,图标(png格式)相对路径的文件名称.这个控件可以利用PNG图像的颜色透明特性,背景色默认透明度为50%,可以将按钮后面的内容显示出来.GDIPAPI, GDIPOBJ, GDIPUTIL三个单元可用万 Read More
posted @ 2016-03-17 01:21
findumars
Views(1314)
Comments(0)
Diggs(0)
浙公网安备 33010602011771号