- 博客(4)
- 资源 (1)
- 收藏
- 关注
原创 忽然之间厌倦了
QQ每天都上只是隐身,群里的消息每天都看,两个Blog、Csdn、Qunluo每天都巡视一下,只是没有参与的欲望,论坛里几乎不回帖,QQ里问什么就回答什么,而且暴简单,除了自己感兴趣的技术问题以外没有说话的欲望,不知道从什么时候开始变得不爱说话,就这样,每天早晨打开csdn,blog,mail,qunluo,qq……企盼有新颖的一天,每天都郁闷地离开。晚上,删除了一些从来没聊过的QQ好友,其实聊过
2005-01-23 20:34:00 1655 10
原创 拷贝DBGrid当前行
procedure CopyCurrentDBLine(DBGrid: TDBGrid);var i: Integer; Line: String;begin for i := 0 to DBGrid.Columns.Count - 1 do begin if Assigned(DBGrid.Columns.Grid.Fields[i]) then if Line =
2005-01-17 12:47:00 1544
原创 [Warning] :Symbol 'CmdShow' is specific to a platform
{$WARN SYMBOL_PLATFORM OFF} winexec(NotePad, cmdShow); {$WARN SYMBOL_PLATFORM ON}实在没什么可写的
2005-01-13 16:54:00 2745
原创 取得字符串中指定子字符串出现第n次的位置,效率不高,勉强可用
function GetNSubStringPos(N: Integer; SubString,AString: String): Integer;//返回第n个SubString在AString中出现的位置//如果没找到,返回-1var FindCount: Integer; Pos: Integer;begin Result := -1; Pos := 0; for FindCoun
2005-01-05 11:46:00 4028 2
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人