当你踌躇不前、站在人生十字路口时候，这56条哲理或许能助你一臂之力！ 1．拿得起，放得下 我们每个人都有很多“宝贝”，但你不可能什么都得到，在某些时候一定要学会拿得起，放得下。拿得起是勇气，放得下是肚量，拿的起是可贵，放得下是超脱。人生最大的敬佩是拿得起，生命最大的安慰是放得下。 2．做人要心怀感恩 Read More
posted @ 2016-03-17 23:58
findumars
Views(431)
Comments(0)
Diggs(0)
1. [CTRL+空格] [CTRL+SHIFT+空格] 这两个快捷键都是在代码编写过程中用到的，起提示作用，使用频率最高。 CTRL+空格： 在当前光标处提示有哪些变量、函数可以使用。这个功能对于无法准确写出函数名非常有用，你不需要去记住每个函数的名字，只需要在提示选项中选择，这样你仅需要输入几个 Read More
posted @ 2016-03-17 23:54
findumars
Views(1356)
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(596)
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(829)
Comments(0)
Diggs(0)
Delphi的VCL框架在创建应用时TApplication是一个自动创建的隐藏窗口，其它创建的窗口是自动以该窗口为窗口，这就导致创始的主窗口在任务栏的系统菜单只有三项，只要在主窗口的Create事件中将系统菜单用Application的系统菜单替换，并将SysCommand消息转发到主窗口就正常了 Read More
posted @ 2016-03-17 23:43
findumars
Views(338)
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(6986)
Comments(0)
Diggs(0)
主要扩展了3D界面、右键菜单、是否显示图片、是否支持JAVA等功能。 代码如下： http://blog.csdn.net/missmecn/article/details/2292758 Read More
posted @ 2016-03-17 23:38
findumars
Views(1392)
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(505)
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(1377)
Comments(0)
Diggs(0)
比如一个在许多方面都相当精通的高手，看某一门新技术，没准就是三下两下就学完了，这就是高手的速度、高手的魅力。因为许多原理性的东西，与以前所学的都是想通的，需要用的时候，只是查一下手册罢了。 这就是侯捷们给人感觉，可以广泛涉猎、无所不通的缘故。其实就是他们享受了他们自己之前取得的成果——于是一个高手就 Read More
posted @ 2016-03-17 23:24
findumars
Views(275)
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(2609)
Comments(0)
Diggs(0)
在多线程开发中,如果在多线程中访问主线程创建的对象,并触发了这个对象的事件,将会执行这个事件的处理函数,那么这个处理函数是在主线程中执行还是在触发事件的线程中执行呢?针对这个问题做了一下测试,如果没有通过Windows消息触发事件,则在子线程(触发事件的线程)中执行事件处理函数,如果是由Window Read More
posted @ 2016-03-17 21:13
findumars
Views(2031)
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(3592)
Comments(0)
Diggs(0)
Delphi的组件读写机制（一） 一、流式对象(Stream)和读写对象（Filer）的介绍在面向对象程序设计中，对象式数据管理占有很重要的地位。在Delphi中，对对象式数据管理的支持方式是其一大特色。 Delphi是一个面向对象的可视化设计与面向对象的语言相结合的集成开发环境。Delphi的核心 Read More
posted @ 2016-03-17 21:05
findumars
Views(2087)
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(2231)
Comments(0)
Diggs(0)
对TMemoryStream的一些改进 怎么又是关于Stream的，呵呵，应该说只是最近比较关心程序的效率问题，而我对Stream其实并没有什么特别的研究，只是自己发现了一些新的用法，希望能对大家有用而已。 事情的起因还是那个破烂电子相册软件，今天又发现了一个可改进之处，有一段程序我原来是这么写的： Read More
posted @ 2016-03-17 17:59
findumars
Views(328)
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(2290)
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(423)
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(1306)
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(359)
Comments(0)
Diggs(0)
浙公网安备 33010602011771号