2005年9月17日
#
用数学家手里的圆规
画一个容器
只装游子思乡的心扉
哪怕只有一字一句
用天文家的望远镜
看空中月
让月光反照出游子思乡情
哪怕淡忘周围一切
月已圆
我却无法往返
惟独对故乡的思念
飞上云天
月圆夜
隔窗遥望
费思量
何时归
2004年9月29日
#
2004年9月28日
#
首先祝各位今晚赏月愉快！（我这边今天天气比较阴暗，晚上多半没月可赏了！）
感谢RealLike兄，感谢你给我发简历到你公司应聘的机会！我不太自信！我一直是这样的不自信，学历是我心中永远的痛！——虽然在周围的人心目中，我还是挺不错！
我真的很不自信，一是没觉得自己有很牛的技术，二是（也是最重要的）没有很牛的学历，我只是一个中专生（虽然自学并且考过了所有《计算机及其应用专业》的所有专业课程……在这个本科生随处可见的年代里，许多公司对中专生是不屑一顾的。我一直在为自己的前途担忧，我一直在努力缩小与大专生和本科生的差距，我努力过，并且一直努力着……
——直到现在，我相信我能与一般大专生比过高低。——这是我仅存的自信，可是许多公司是不会相信我的这份自信的，更不会给我这个机会。
——可能是命运故意捉弄我，在去年的这个季节，我的中专文凭也被偷了，从此，我没有任何可以证明我学历的东西……
——我没有去补办中专文凭，我也没有像许多人一样通过函授的方式去取得一个大专甚至本科文凭（我认为函授纯粹是在花钱买文凭）……
——我并没放弃学习，我觉得自己成天在和时间赛跑，虽然很累，我不会放弃，永远不会。因为我的理想是成为一个软件设计人员（不是程序员），所以我努力的学着技术，软件工程，项目管理，甚至于市场营销（可能太杂，太乱，也可能走了许多弯路——可我只是靠自己，当然也离不开CSDN和本博客上的所有朋友的帮助）。
——我要向所有人证明，中专生通过努力也可以做得很好，不会比一般的大专生甚至本科生差。（不过，在在座各位牛人面前，会保持沉默，虚心向各位学习！）
今天中午公司聚餐（一家很差的，目前处于水深火热的公司），公司的经理和技术总监的话倒给了我一些自信（至于说了什么，在此不表，反正是顺耳的话^-^……）
……
对不起，发了许多牢骚，打扰大家的节日气氛！
2004年9月23日
#
由于很少用FileRead函数，于是查看在Delphi6的帮助文件，在FileOpen, FileSeek, FileRead Example中，有如下示例代码：
procedure TForm1.Button1Click(Sender: TObject);
var
iFileHandle: Integer;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;
i: Integer
begin
if OpenDialog1.Execute then
begin
try
iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead := FileRead(iFileHandle, Buffer, iFileLength);//问题就在这
FileClose(iFileHandle);
for i := 0 to iBytesRead-1 do
begin
StringGrid1.RowCount := StringGrid1.RowCount + 1;
StringGrid1.Cells[1,i+1] := Buffer[i];
StringGrid1.Cells[2,i+1] := IntToStr(Integer(Buffer[i]));
end;
finally
FreeMem(Buffer);
end;
end;
end;
以上代码能正确运行吗？照着做肯定会出错。问题出在FileRead一句，改成如下则可：
iBytesRead := FileRead(iFileHandle, Buffer^, iFileLength);
我认为Borland不应该在帮助文件上犯这种错！初次使用此函数者很容易被误导！
＝＝＝＝BTW:其实在这段代码中有另一个不伤大雅的错！变量声明中'i:integer'后没引号! ^-^
2004年9月20日
#
记住以下名词：
精度(Precision):关于一个特定内容讨论到何种程度。
准确性(Accuracy):你谈论内容的正确程度。
相关性(Relevance):指在讨论中所包括的内容范围。
宽容度(Tolerance):指你能处理的变更范围。
比例(Scale):你为某一事物选择多少包含信息。
以上内容可用缩写PARTS来记住！
2004年9月14日
#
这些天老在看书，《设计模式》、《人件》、《OO项目求生法则》……
累了！
上来送各位老大一首诗，把它送给你的LP或MM，她们一定会感动得哭的!
千万不要说是我送给你的哟！哈哈……
三生缘
前世 我们是快乐的
你是我三过家门来不及探望来不及温存的娇妻
你是我泛舟五湖烟水 陪我急流勇退的红颜知己
你是我刀光剑影 擂鼓助阵共退强敌的娘子
你在我的梦里千年眼里千年心中千年
缘定三生 千年等一回 我等你梦里梦外
红粉相随 你是泪染竹斑的妹妹
四面楚歌 你是长剑舞碧血的美人
寒窑相伴 你是贫贱不移的千金小姐
相渝以沫的爱让爱情鸟夜夜歌唱
子规声里 巫山又多一段云
红尘有爱 你是钟情卖油郎的花仙子
红藕香残 你是独上兰舟守候一封家书的爱人
心中有爱 你是痴情的白蛇你是美丽的七仙女
曾经是风尘女子曾经是大家闺秀曾经是妖是仙
真爱使你如此美丽真情使你如此动人真心使你如此可爱
前世 我们是快乐的 苦痛也因爱而美丽……
今生是苦与乐的揉合 喜与悲的掺和
只是快乐时光那么短暂 愁苦那么绵长
蝴蝶结的美丽 结满初恋的记忆
我在相思河畔闭着眼睛数红豆 说我爱你
雁过南楼 衔走我心中唯一的一粒红豆
从此 我无视身边摇曳的花枝
十年青春年华 在蹉跎中流逝
疏疏一树 夜夜轻抚着满是伤痕的枝杈流泪
我还能再爱吗？本己为枯了的心又为谁萌动
认识了海水女子我认识了生命里蔚蓝的颜色
认识了桃花桂花梅花我感受到生命的美丽和清香
认识了青荷红荷我认识灵魂的高洁生命的尊贵
一位位旷世奇女子 让我的生命多姿多彩
呵呵 是什么样的风长留我心底是什么样的雨长敲我的窗
生命里长留一杯茶的清香一缕棉花的温暖
一滴遥远的雁声让我感动一个世纪一声哥哥的呼唤让我千年难忘
我在梦里唤影儿唤那些美丽而温暖的文字
魂梦几回与君同 呵呵 谁是我的梦中人……
梦中清泪成行 行行如索
不经意的一眼 己是一生一世
夜夜红颜相聚 灯下添香
你要让我几生几世才能忘记你
三生一个轮回
爱你 纵使万劫不复也不怨不悔……
亲爱的 来世
你如是花我便做你摇曳花枝上的蝴蝶
你如是草我便做你叶尖上的清清雨露
你如是藤我便做你身边的一棵树任你缠绕
你如是一片彩云我便做你飘摇的天空
你如是一滴雨我便做你欢唱或者哭泣的大地
亲爱的 来世
你若再叫碧莲青荷我便做你荷叶底下清清水荷藕身上沾沾泥
你若再叫海水女子我便做你蔚蓝的颜色唇边上的盐
你若再叫萧湘妃子我便做你一枝千滴泪的斑竹
你若再叫梦中影儿我便再为你梦魂几回与君同
亲爱的 来世
你若再叫香销茶尽我便在中国为你做一次茶的巡迥
你若再叫紫雨我便再为你归隐林泉 且听风吟
你若再叫香雪梅花我便再一次踏雪寻梅 任雪花朴面
你若再一次叫白絮我便捧你上枝头 认你做杨花
亲爱的 来世
你若再叫风过无痕我便为你化苍茫黄沙 定格你的美丽和柔情
你若再叫索非亚我便为你化秋千索让你荡来也甜甜的笑荡去也甜甜的笑
你若再叫梦中人我便为你化枕上的热泪梦里亲切的笑容
你若再叫小薇我便为你化花朵的紫叶上的绿让你花季浪漫
你若再叫许愿沙我便为你化普提树下的一个千年的愿望
寂寞千年 我感恩那点歌女子 心为她飘摇
红尘有爱 我感恩那幸福的女人 常为一声哥哥激动流泪
许多爱我诗歌的红颜 我知名和不知名的女人
来世有幸 我们再互为知己 互为自己……
2004年9月3日
#
现在很多人都在学.NET，JAVA……
我还在努力学习Delphi……
可能是太死心眼吧！
经过深入学习（可能用“了解”更恰当些^-^,因为学无所成），我发现Delphi的功能并没想许多人所说的那样弱……
——因为我喜欢它，所以，我还要继续学习……
不知各位老大对我的“痴心”作何评价！
＝＝＝＝＝＝＝欢迎批评＝＝＝＝＝＝
2004年8月15日
#
最近公司项目叫停，状况极差，面临解散……
何去何从，甚是烦心……
能达到古人李白的心境就好了！
将进酒
李白
君不见黄河之水天上来,
奔流到海不复回。
君不见高堂明镜悲白发,
朝如青丝暮成雪。
人生得意须尽欢，
莫使金樽空对月。
天生我材必有用，
千金散尽还复来。
烹羊宰牛且为乐，
会须一饮三百杯。
岑夫子，丹丘生，
将进酒，君莫停。
与君歌一曲，
请君为我侧耳听。
钟鼓馔玉不足贵，
但愿长醉不愿醒。
古来圣贤皆寂寞，
惟有饮者留其名。
陈王昔时宴平乐，
斗酒十千恣欢谑。
主人何为言少钱，
径须沽取对君酌。
五花马，千金裘，
呼儿将出换美酒，
与尔同销万古愁。
2004年7月13日
#
技术是复杂的……
人与人是复杂的……
这个世界是复杂……
……
化复杂为简单，相信会过得很开心！
大家一起为明天干杯吧！
2004年7月12日
#
昨天接到用户电话，说在使用我们的一个系统时出现“list index out of bounds”错误，很感觉很奇怪，这个系统是经过多次认真测试的，均没出现此错误。其它用户也未出现过此问题。
上午花了些时间分析了一下，才发现是自己犯了个低级错误。
我的系统中提供了一个设定“用户喜欢的输入法”功能，用于避免来回切换输入法的麻烦。每次在退出系统时会记忆用户的设置值，启动系统时会读出该值。然后用xxx.imeName := Screen.IMES[IMENo]来指定输入法。（IMENO为用户上次保存的值)。我在读取值时没考虑到用户会在系统中增删输入法的情况，而该用户在设置了“用户喜欢的输入法”后，在系统中删除了一些不常用的输入法，就导致了以前保存的值大于或等于Screen.IMES.Count，在按上述方法引用输入法时就出现了错误。
于是加入以下判断，恢复正常。
if Screen.IMES.Count = 0 then Exit;//没安装中文收入法，退出
if (IMENo >= 0) and (IMENo < Screen.IMES.Count) then
//为Edit指定输入法
else
IMENo := 0;
……
代码时考虑不周和测试盲区导致某些Bug到用户手中才发现，引以为戒！
2004年7月9日
#
等了三天，我的Blog终于开通了，等得我好心痛……
今后一旦有时间我都会在上面写些东西，但愿能和各位同仁分享……