都貴為總統了
還在搞這種東西
————————————–
撞扁嫂的張榮財 被阿扁抹黑二十年
吳淑珍車禍的肇事者張榮財,現在已是個重病老人。

陳水扁總統日前在「向人民報告」中,再度提起第一夫人吳淑珍,於民國七十四年十一月十八日,他選台南縣長的時候發生的車禍,是國民黨的政治迫害;同時,總統府方面也透露第一夫人吳淑珍,身體狀況持續惡化,不但每隔十幾分鐘就要上一次廁所,體重更降至只有二十六公斤,第一家庭再度陷入悲情時刻。

回顧二十一年前,那場車禍改變了陳水扁與吳淑珍的一生,雖然陳水扁在第二次出庭時撤回了告訴,也沒要求賠償一毛錢,但調查報告證明,那場意外純粹是因為「煞車失靈」,而非「政治車禍」。不過,肇事的拼裝車司機張榮財,至今仍承受著「政治車禍」、「國民黨劊子手」的罵名。現今,有人謠傳他也因為車禍死了,更有人說那是他放出的煙霧彈,事實上他早已離鄉背景討生活去了。然而,到底他現在身在何方?又過著什麼樣不為人知的生活?

疑問1:他過世了?

「他過世了。兩年前的一場車禍,聽說不小心開車摔到田裡去,被他自己載的磚頭活活壓死,所以再也沒有他的消息。」來到張榮財的老家,台南縣關廟鄉的東勢村,村裡的村民們都異口同聲地這麼說。

當本刊記者找到了他的家人,張榮財的老母親先是不承認,後來更是發動了村民,直接拿起了掃把、棍子當武器,要把不速之客轟出去。他們叫罵著:「不要再叫阿榮去演戲了,二十一年了,能不能給他一個平靜的生活?你們不要吃人夠夠,他才是一個真正悲情的苦命人。」突來的舉動,搞得大家一頭霧水。

後來經過本刊不斷多方查證,才知道張榮財並沒有死;死去的說法,只是他不願再被打擾而故意放的話。村民的激動反應,是因為這麼多年來,他們實在看不下去張榮財的命運包袱,竟然會比終身坐在輪椅上的人,還要來得沉重。

「阿榮,你快出來,不免驚,伊不是阿扁ㄟ人啦。」在磚造廠的一角,一個瘦弱的老人蹲在磚頭邊不停地咳嗽,用疑惑的眼神看著來訪的客人,多年戴帽壓低帽沿的他,恐懼的表情有如驚弓之鳥。

原來,張榮財並沒有離開過故鄉,雖然他曾經幾度有這個想法,但是因為拋不下摯愛的「牽手」與三個孩子而作罷。二十一年來,他飽受外界的指點與唾罵,還是每天清晨四點半起床,到晚上六、七點才能下班。在烈日下搬著磚頭上車,再開著車把磚頭送到工地去,由於工作是論件計酬,張榮財中午很少午休,每週上班六天,為的只是每個月兩萬多元的報酬。

二十一年機械式的工作,張榮財的生活可以說是再單純不過,惟一改變的,是當年車禍的三輪拼裝車,換成了四輪小貨車;還有每到選舉時,張榮財就會像文化大革命時的「戰犯」,任人批鬥到體無完膚。

疑問2:政治陰謀?

阿扁鄉親說,貴為總統不應該再矇騙世人。

張榮財多年的同事透露,由於台南一直是深綠支援者居多,又是總統阿扁的故鄉,所以張榮財多年前犯下的錯,至今台南鄉親都不願意原諒他;也因為如此,每次選舉時,民進黨的樁腳都會來找他,要他上台承認當年的車禍是「受人指使」、是「政治陰謀」,如今願意悔改認錯,希望鄉親可以原諒他。有好幾次,張榮財不願意扭曲事實,不從的結果是被幾個流氓海扁一頓。

好幾次,張榮財在選舉造勢場子上,忍受眾人的言語羞辱,但堅毅少說話的鄉下人個性,他都無言承受,每次的回答都是:「我對不起大家、我不該去害阿扁與阿珍。」直到有一次,張榮財在台上忍不住哭了,台下眾人紛紛鼓譟:「他終於真正懺悔了,劊子手也有這樣的一天。」事實上,張榮財的眼淚,是看到台下的兒子不停拭淚,然後默默無助地望著他。

一場無心的車禍,只因為受傷的對象不同,而有了天差地別的遭遇,也難怪張榮財的同村鄰居會替他抱不平。

一位當年發生車禍後,也曾動手圍毆過張榮財的東勢村民說:「外界都不知道事實的真相,只會一再地誤解他,偏偏他又是那麼『古意』的人,覺得欠人一分情,一世人都無法償還。可是每次民進黨的文宣人員都會來找他,要他重演歷史,表演悲情牌,所以現在東勢村民都知道真相,只要有外人想靠近,都會主動集結保護他。」

這位村民還說,就是因為張榮財打不還手、罵不還口的沉默個性,讓當年不諒解的村民慢慢發現,「國民黨的劊子手」似乎真的不像一個壞人,而且他只是個國中畢業,毫無政治狂熱的粗工,車禍那一年,他的兒子才正要出世,張榮財完全沒有理由要去害人。所以現在到東勢村,談起當年的事,幾乎每位村民都異口同聲說:「阿榮是老實人啦,阿扁現在已經登天了,不要再用這招欺負台灣底層的鄉親啦,難道第一家庭的心肝是冰做的嗎?」

疑問3:是誰悲情?

每到選舉,阿扁便會抱著妻子打出悲情牌。

面對村民替他不平而叫屈,這個純樸支援民進黨的歐吉桑,揮揮手叫人不要再罵阿扁了,跳出來說:「人家是高尚的人,被我這款無效ㄟ糟蹋成這樣,不但沒有叫我賠一毛錢,還說願意原諒我,恩德一輩子也還不了。當年我真的不是故意的,只是我老了,可不可以不要再叫我上台去演戲?」

談起這幾年的生活,張榮財低著頭不願意多說,只是一直表示全都是他的錯,當年他是想趕著回家照顧即將臨盆的老婆,沒想到竟改變了一生的命運。但村民無法掩飾激動的情緒說:「阿榮這麼多年來被人倒會、勒索或是強迫認捐政治獻金,全都敢怒不敢言,因為對方都會說是『主持正義』,連他阿兄、阿嫂車禍過世了,別人還跑來靈堂罵他是『報應』;現在他負債兩、三百萬,每天拿命來還債,一個開放性肺結核加重度氣喘的病痛老人,我不懂他還要忍受多少折磨?」

身染重病的張榮財,現在體重只有五十公斤,拉著同伴無奈地說:「這是我的命,我甘願承受,哪一天做到死了,我的債也就還完了,至少不必每天作噩夢,想著要把一雙腿鋸下來還給人家。」說完話的張榮財咳個不停,轉過身不願停下工作。

一位關廟鄉的民進黨員,當年也參與這場車禍的協調,私下透露說,其實當年阿扁不如張榮財所想像的,寬恕以及原諒他的無心之過。當年事發後,阿扁不但讓專誠去道歉的張榮財吃了閉門羹,還曾暴怒對協調人員大吼:「我的老婆只值一百萬嗎?」這位民進黨員說,在當年,一百萬可以在關廟鄉買兩棟房子,實在不是做粗工的低下階層可以負擔的。

後來阿扁是經過「高人指點」,態度才有一百八十度的轉變,之後每次競選,都會拿來訴求悲情。只是看到三一九槍擊案時,阿扁說此案是「政治謀殺」,向世人高呼:「我為台灣人擋了子彈!」之前選縣長時,據稱是上吐下瀉,被人抬到投票前夕的政見會場,是「政治下毒事件」。縣長落選後,又發生「政治車禍」,對於一個忠厚老實的鐵牛車駕駛,當地一位死忠的民進黨支援者現在也不滿的說:「阿扁抹黑了他二十一年,能不能就此停手,不要再傷害他了?」


http://blog.webs-tv.net/chu20000916/article/3029007


https://www.imhaha.com/


名稱 類型 說明

——————————————————

Abort 函數 引起放棄的意外處理
Abs 函數 絕對值函數
AddExitProc 函數 將一過程添加到運行時庫的結束過程表中
Addr 函數 返回指定對象的地址
AdjustLineBreaks 函數 將給定字符串的行分隔符調整為CR/LF序列
Align 屬性 使控件位於窗口某部分
Alignment 屬性 控件標籤的文字位置
AllocMem 函數 在堆棧上分配給定大小的塊
AllowGrayed 屬性 允許一個灰度選擇
AnsiCompareStr 函數 比較字符串(區分大小寫)
AnsiCompareText 函數 比較字符串(不區分大小寫)
AnsiLowerCase 函數 將字符轉換為小寫
AnsiUpperCase 函數 將字符轉換為大寫
Append 函數 以附加的方式打開已有的文件
ArcTan 函數 余切函數
AssignFile 函數 給文件變量賦一外部文件名
Assigned 函數 測試函數或過程變量是否為空
AutoSize 屬性 自動控制標籤的大小

BackgroundColor 屬性 背景色
BeginThread 函數 以適當的方式建立用於內存管理的線程
BevelInner 屬性 控件方框的內框方式
BevelOuter 屬性 控件方框的外框方式
BevelWidth 屬性 控件方框的外框寬度
BlockRead 函數 讀一個或多個記錄到變量中
BlockWrite 函數 從變量中寫一個或多個記錄
BorderStyle 屬性 邊界類型
BorderWidth 屬性 邊界寬度
Break 命令 終止for、while、repeat循環語句
Brush 屬性 畫刷

Caption 屬性 標籤文字的內容
ChangeFileExt 函數 改變文件的後綴
ChDir 函數 改變當前目錄
Checked 屬性 確定復選框選中狀態
Chr 函數 返回指定序數的字符
CloseFile 命令 關閉打開的文件
Color 屬性 標籤的顏色
Columns 屬性 顯示的列數
CompareStr 函數 比較字符串(區分大小寫)
Concat 函數 合併字符串
Continue 命令 繼續for、while、repeat的下一個循環
Copy 函數 返回一字符串的子串
Cos 函數 餘弦函數
Ctl3D 屬性 是否具有3D效果
Cursor 屬性 鼠標指針移入後的形狀

Date 函數 返回當前的日期
DateTimeToFileDate 函數 將DELPHI的日期格式轉換為DOS的日期格式
DateTimeToStr 函數 將日期時間格式轉換為字符串
DateTimeToString 函數 將日期時間格式轉換為字符串
DateToStr 函數 將日期格式轉換為字符串
DayOfWeek 函數 返回星期的數值
Dec 函數 遞減變量值
DecodeDate 函數 將日期格式分解為年月日
DecodeTime 函數 將時間格式分解為時、分、秒、毫秒
Delete 函數 從字符串中刪除子串
DeleteFile 命令 刪除文件
DiskFree 函數 返回剩餘磁盤空間的大小
DiskSize 函數 返回指定磁盤的容量
Dispose 函數 釋放動態變量所佔的空間
DisposeStr 函數 釋放字符串在堆棧中的內存空間
DitherBackground 屬性 使背景色的色彩加重或減少50%
DragCursor 屬性 當鼠標按下時光標的形狀
DragMode 屬性 按動的作用方式
DropDownCount 屬性 容許的顯示數據項的數目

EditMask 屬性 編輯模式
Enabled 屬性 是否使標籤呈現打開狀態
EncodeDate 函數 將年月日合成為日期格式
EncodeTime 函數 將時、分、秒、毫秒合成為時間格式
EndMargin 屬性 末尾邊緣
Eof 函數 對有類型或無類型文件測試是否到文件尾
Eoln 函數 返回文本文件的行結束狀態
Erase 命令 刪除外部文件
ExceptAddr 函數 返回引起當前意外的地址
Exclude 函數 從集合中刪除一些元素
ExceptObject 函數 返回當前意外的索引
Exit 命令 立即從當前的語句塊中退出
Exp 函數 指數函數
ExpandFileName 函數 返回包含絕對路徑的字符串
ExtendedSelect 屬性 是否允許存在選擇模式,True時,MultiSelect才有意義
ExtractFileDir 函數 返回驅動器和路徑
ExtractFileExt 函數 返回文件的後綴
ExtractFileName 函數 返回文件名
ExtractFilePath 函數 返回指定文件的路徑

FileAge 函數 返回文件已存在的時間
FileClose 命令 關閉指定的文件
FileCreate 命令 用指定的文件名建立新文件
FileDateToDateTime 函數 將DOS的日期格式轉換為DELPHI的日期格式
FileExists 函數 檢查文件是否存在
FileGatAttr 函數 返回文件的屬性
FileGetDate 函數 返回文件的DOS日期時間標記
FileOpen 命令 用指定的存取模式打開指定的文件
FilePos 函數 返回文件的當前指針位置
FileRead 命令 從指定的文件讀取
FileSearch 命令 在目錄中搜索指定的文件
FileSeek 函數 改變文件的指針
FileSetAttr 函數 設置文件屬性
FileSetDate 函數 設置文件的DOS日期時間標記
FileSize 函數 返回當前文件的大小
FileWrite 函數 對指定的文件做寫操作
FillChar 函數 用指定的值填充連續字節的數
FindClose 命令 終止FindFirst/FindNext序列
FindFirst 命令 對指定的文件名及屬性搜索目錄
FindNext 命令 返回與文件名及屬性匹配的下一入口
FloatToDecimal 函數 將浮點數轉換為十進制數
FloatToStrF 函數 將浮點數轉換為字符串
FloatToStr 函數 將浮點數轉換為字符串
FloatToText 函數 將給定的浮點數轉換為十進制數
FloatToTextFmt 函數 將給定的浮點數轉換為十進制數
Flush 函數 將緩衝區的內容刷新到輸出的文本文件中
FmtLoadStr 函數 從程序的資源字符串表中裝載字符串
FmtStr 函數 格式化一系列的參數,其結果以參數Result返回
Font 屬性 設置字體
Format 函數 格式化一系列的參數並返回Pascal字符串
FormatBuf 函數 格式化一系列的參數
FormatDateTime 函數 用指定的格式來格式化日期和時間
FormatFloat 函數 指定浮點數格式
Frac 函數 返回參數的小數部分
FreeMem 函數 按給定大小釋放動態變量所佔的空間

GetDir 返回指定驅動器的當前目錄
GetHeapStatus 返回內存管理器的當前狀態
GetMem 建立一指定大小的動態變量,並將指針指向該處
GetMemoryManager 返回內存管理器的入口點
Glyph 函數 按鈕上的圖像

Halt 停止程序的執行並返回到操作系統
Hi 返回參數的高地址位
High 返回參數的上限值
Hint 屬性 提示信息

Int 返回參數的整數部分
Include 添加元素到集合中
Insert 在字符串中插入子串
IntToHex 將整型數轉換為十六進制數
IntToStr 將整型數轉換為字符串
IOResult 返回最新的I/O操作完成狀態
IsValidIdent 測試字符串是否為有效的標識符
Items 屬性 默認顯示的節點

Kind 屬性 擺放樣式

LargeChange 屬性 最大改變值
Layout 屬性 圖像佈局
Length 函數 返回字符串的動態長度
Lines 屬性 缺省顯示內容
Ln 函數 自然對數函數
Lo 函數 返回參數的低地址位
LoadStr 函數 從應用程序的可執行文件中裝載字符資源
LowerCase 函數 將給定的字符串變為小寫
Low 函數 返回參數的下限值

Max 屬性 最大值
MaxLength 屬性 最大長度
Min 屬性 最小值
MkDir 命令 建立一子目錄
Move 函數 從源到目標複製字節
MultiSelect 屬性 允許同時選擇幾個數據項

Name 屬性 控件的名字
New 函數 建立新的動態變量並設置一指針變量指向他
NewStr 函數 在堆棧上分配新的字符串
Now 函數 返回當前的日期和時間

Odd 測試參數是否為奇數
OnActivate 事件 焦點移到窗體上時觸發
OnClick 事件 單擊窗體空白區域觸發
OnDblClick 事件 雙擊窗體空白區域觸發
OnCloseQuery 事件 使用者試圖關閉窗體觸發
OnClose 事件 窗體關閉後才觸發
OnCreate 事件 窗體第一次創建時觸發
OnDeactivate 事件 用戶切換到另一應用程序觸發
OnDragDrop 事件 鼠標拖放操作結束時觸發
OnDragOver 事件 有其他控件從他上面移過觸發
OnMouseDown 事件 按下鼠標鍵時觸發
OnMouseUp 事件 釋放鼠標鍵時觸發
OnMouseMove 事件 移動鼠標時觸發
OnHide 事件 隱藏窗體時觸發
OnKeyDown 事件 按下鍵盤某鍵時觸發
OnKeyPress 事件 按下鍵盤上的單個字符鍵時觸發
OnKeyUp 事件 釋放鍵盤上的某鍵時觸發
OnPaint 事件 窗體上有新部分暴露出來觸發
OnResize 事件 重新調整窗體大小觸發
OnShow 事件 在窗體實際顯示之前瞬間觸發
ord 返回序數類的序數
OutlineStyle 屬性 類型
OutOfMemoryError 引起OutOfMemory意外

PageIndex 屬性 頁索引
Pages 屬性 頁
ParamCount 函數 返回在命令行上傳遞給程序的參數數量
ParamStr 函數 返回指定的命令行參數
Pen 屬性 畫刷設置
Pi 函數 返回圓周率Pi
Picture 屬性 顯示圖像
PictureClosed 屬性 設置Closed位圖
PictureLeaf 屬性 設置Leaf位圖
PictureMinus 屬性 設置Minus位圖
PictureOpen 屬性 設置Open位圖
PicturePlus 屬性 設置Plus位圖
Pos 函數 在字符串中搜索子串
Pred 函數 返回先前的參數

Random 函數 返回一隨機函數
Randomize 函數 用一隨機數初始化內置的隨機數生成器
Read 函數 對有格式的文件,讀一文件組件到變量中;
對文本文件,讀一個或多個值到一個或多個變量中
Readln 函數 執行Read過程,然後跳到文件下一行
ReadOnly 屬性 只讀屬性
ReAllocMem 函數 分配一動態變量
Rename 函數 重命名外部文件
RenameFile 函數 對文件重命名
Reset 函數 打開已有的文件
Rewrite 函數 建立並打開一新的文件
RmDir 函數 刪除空的子目錄
Round 函數 將實數值捨入為整型值
RunError 函數 停止程序的執行

ScrollBars 屬性 滾動條狀態
Seek 函數 將文件的當前指針移動到指定的組件上
SeekEof 函數 返回文件的文件結束狀態
SeekEoln 函數 返回文件的行結束狀態
SelectedColor 屬性 選中顏色
SetMemoryManager 函數 設置內存管理器的入口點
SetTextBuf 函數 給文本文件指定I/O緩衝區
Shape 屬性 顯示的形狀
ShowException 函數 顯示意外消息與地址
Sin 函數 正弦函數
SizeOf 函數 返回參數所佔的字節數
SmallChange 屬性 最小改變值
Sorted 屬性 是否允許排序
Sqr 函數 平方函數
Sqrt 函數 平方根函數
StartMargin 屬性 開始邊緣
State 屬性 控件當前狀態
Str 函數 將數值轉換為字符串
StrAlloc 函數 給以NULL結束的字符串分配最大長度-1的緩衝區
StrBufSize 函數 返回存儲在由StrAlloc分配的字符緩衝區的最大字符數
StrCat 函數 將一字符串附加到另一字符串尾並返回合併的字符串
StrComp 函數 比較兩個字符串
StrCopy 函數 將一個字符串複製到另一個字符串中
StrDispose 函數 釋放堆棧上的字符串
StrECopy 函數 將一字符串複製到另一個字符串並返回結果字符串尾部的指針
StrEnd 函數 返回指向字符串尾部的指針
Stretch 屬性 自動適應控件的大小
StrFmt 函數 格式化一系列的參數
StrIComp 函數 比較兩個字符串(不區分大小寫)
StringToWideChar 函數 將ANSI字符串轉換為UNICODE字符串
StrLCat 函數 將一字符串中的字符附加到另一字符串尾並返回合併的字符串
StrLComp 函數 以最大長度比較兩個字符串
StrLCopy 函數 將一個字符串中的字符複製到另一個字符串中
StrLen 函數 返回字符串中的字符數
StrLFmt 函數 格式化一系列的參數,其結果中包含有指向目標緩衝區的指針
StrLIComp 函數 以最大長度比較兩個字符串(不區分大小寫)
StrLower 函數 將字符串中的字符轉換為小寫
StrMove 函數 將一個字符串中的字符複製到另一個字符串中
StrNew 函數 在堆棧上分配一個字符串
StrPas 函數 將以NULL結束的字符串轉換為PASCAL類的字符串
StrPCopy 函數 將PASCAL類的字符串複製為以NULL結束的字符串
StrPLCopy 函數 從PASCAL類的最大長度字符串複製為以NULL結束的字符串
StrPos 函數 返回一個字符串在另一個字符串中首次出現指針
StrRScan 函數 返回字符串中最後出現字符的指針
StrScan 函數 返回字符串中出現首字符的指針
StrToDate 函數 將字符串轉換為日期格式
StrToDateTime 函數 將字符串轉換為日期/時間格式
StrToFloat 函數 將給定的字符串轉換為浮點數
StrToInt 函數 將字符串轉換為整型
StrToIntDef 函數 將字符串轉換為整型或默認值
StrToTime 函數 將字符串轉換為時間格式
StrUpper 函數 將字符串中的字符轉換為大寫
Style 屬性 類型選擇
Suce 函數 返回後繼的參數
Swap 函數 交換參數的高低地址位

Tabs 屬性 標記每一項的內容
TabIndex 屬性 標記索引
Text 屬性 顯示的文本
TextToFloat 函數 將字符串(以NULL結束的格式)轉換為浮點數
Time 函數 返回當前的時間
TimeToStr 函數 將時間格式轉換為字符串
Trim 函數 從給定的字符串中刪除前導和尾部的空格及控制字符
TrimLeft 函數 從給定的字符串中刪除首部的空格及控制字符
TrimRight 函數 從給定的字符串中刪除尾部的空格及控制字符
Trunc 函數 將實型值截取為整型值
Truncate 函數 截去當前文件位置後的內容

UnSelectedColor 屬性 未選中顏色
UpCase 將字符轉換為大寫
UpperCase 將給定的字符串變為大寫

Val 函數 將字符串轉換為整型值
VarArrayCreate 函數 以給定的界限和維數建立變體數組
VarArrayDimCount 函數 返回給定變體的維數
VarArrayHighBound 函數 返回給定變體數組維數的上界
VarArrayLock 函數 鎖定給定的變體數組
VarArrayLowBound 函數 返回給定變體數組維數的下界
VarArrayOf 函數 返回指定變體的數組元素
VarArrayRedim 函數 通過改變上限來調整變體的大小
VarArrayUnlock 函數 解鎖指定的變體數組
VarAsType 函數 將變體轉換為指定的類型
VarCase 函數 將變體轉換為指定的類型並保存他
VarClear 函數 清除指定的變體
VarCopy 函數 將指定的變體複製為指定的變體
VarFormDateTime 函數 返回包含日期時間的變體
VarIsArray 函數 測試變體是否為數組
VarIsEmpty 函數 測試變體是否為UNASSIGNED
VarIsNull 函數 測試變體是否為NULL
VarToDateTime 函數 將給定的變體轉換為日期時間
VarType 函數 將變體轉換為指定的類型並保存他
Visible 屬性 控件的可見性

WantReturns 屬性 為True時,按回車鍵產生一個回車符;為False時,按下Ctrl+Enter才產生回車符
Write 命令 對有格式的文件,寫一變量到文件組件中;對文本文件,寫一個或多個值到文件中
Writeln 命令 執行WRITE過程,然後輸出一行結束標誌
WideCharLenToString 函數 將ANSI字符串轉換為UNICODE字符串
WideCharLenToStrWar 函數 將UNICODE字符串轉換為ANSI字符串變量
WideCharToString 函數 將UNICODE字符串轉換為ANSI字符串
WideCharToStrVar 函數 將UNICODE字符串轉換為ANSI字符串變量


網上找來的 感覺對入門者很有啟示。 收藏一下了!
No.1 判斷邏輯類型 }
var B: Boolean;
begin
B := Boolean(2); //這樣只是為了調試//B := True;
if B = True then ShowMessage(‘B = True’); //不建議//不安全
///////
if B then ShowMessage(‘B’); //建議//簡短
end;

var B: Boolean;
begin
if Edit1.Text = ‘是’ then //不建議//煩瑣
B := True
else B := False;
///////
B := Edit1.Text = ‘是’; //建議//簡短
end;

{ No.2 臨時SQL查詢 }
begin
QueryTemp.Close;
QueryTemp.SQL.Text := ‘SELECT SUM(金額) AS 合計 FROM 銷售表’;
QueryTemp.Open; //不建議//數據沒有關閉造成資源浪費
ShowMessage(Query1.FieldByName(‘合計’).AsString);
/////
QueryTemp.SQL.Text := ‘SELECT SUM(金額) AS 合計 FROM 銷售表’;
QueryTemp.Open;
ShowMessage(Query1.FieldByName(‘合計’).AsString);
QueryTemp.Close; //建議用//使用完就關閉
end;

{ No.3 獲取記錄數 }
var
vRecordCount: Integer;
begin
Query1.SQL.Text := ‘SELECT * FROM Table1’; //不建議//嚴重浪費資源,會取得很多不必要得信息
Query1.Open;
vRecordCount := Query1.RecordCount;
Query1.Close;
/////
Query1.SQL.Text := ‘SELECT COUNT(*) AS 記錄數 FROM Table1’; //建議//快速有效、只處理一條記錄
Query1.Open;
vRecordCount := Query1.FieldByName(‘記錄數’).AsInteger;
Query1.Close;

ShowMessage(IntToStr(vRecordCount));
end;

{ No.4 字段賦值 }
begin
Table1.Edit;
Table1.FieldByName(‘姓名’).AsString := Edit1.Text; //不建議
Table1.FieldByName(‘日期’).AsDateTime := Date;
/////
Table1[‘姓名’] := Edit1.Text; //建議//簡短、擴充性好
//Table1.Fieldvalues[‘姓名’] := Edit1.Text; //Borland建議的方法。以及Paramvalues[]
Table1[‘日期’] := Date;
end;

{ No.5 使用Self指針 }
begin
Edit1.Parent := Form1; //不建議//Form1只是一個變量//如果沒有分配資源怎麼辦?
///////
Edit1.Parent := Self; //建議
end;

{ No.6 遍歷數據集 }
var
I: Integer;
begin
Query1.First;
for I := 0 to Query1.RecordCount – 1 do begin //不建議//容易被影響
Query1.Next;
{};
end;
/////
Query1.First;
while not Query1.Eof do begin //建議
{ }
Query1.Next;
end;
end;

{ No.7 利用Sender參數,使代碼通用 }
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text = ” then //不建議
Edit1.Color := clRed;
///////
if TEdit(Sender).Text = ” then //建議//複製到EditXChange中很方便
TEdit(Sender).Color := clRed;
end;

{ No.8 使用默認轉換函數 }
var
I: Integer;
begin
I := StrToInt(Edit1.Text); //不建議
///////
I := StrToIntDef(Edit1.Text, 0);//建議//參考StrToFloatDef,StrToDateDef….不過這些只有Delphi6才有
end;

{ No.9 遍歷數組 }
var
I: Integer;
A: array[0..9] of Integer;
begin
for I := 0 to 9 do //不建議
A[I] := I;
///////
for I := Low(A) to High(A) do //建議//擴充性好
A[I] := I;
end;

{ No.10 利用MaxInt常量 }
begin
Caption := Copy(Edit1.Text, 3, Length(Edit1.Text) – 3 + 1); //不建議
///////
Caption := Copy(Edit1.Text, 3, MaxInt); //建議//嘻嘻,少計算一次
end;

{ No.11 Result函數指針 }
function FuncName: Boolean;
begin
FuncName := True; //不建議//並且放在賦值號右邊不能當普通變量
///////
Result := True; //建議//擴充性好
end;

function FuncSum(A: array of Integer): Integer;
var I: Integer;
begin
Result := 0;
for I := Low(A) to High(A) do
Result := Result + A[I]; //可不能用 FuncSum := FuncSum + A[I];
end;

{ No.12 必須執行的代碼、使用try … finally … end語句 }
var
vStringList: TStringList;
begin
vStringList := TStringList.Create;
vStringList.LoadFromFile(‘c:\temp.txt’);
ShowMessage(vStringList.Text);
vStringList.Free; //不建議//如果出現異常資源將無法釋放
///////
vStringList := TStringList.Create;
try
vStringList.LoadFromFile(‘c:\temp.txt’);
ShowMessage(vStringList.Text);
finally //建議//即使出現Exit都會執行
vStringList.Free;
end;
end;

//其他情況1
begin
Screen.Cursor := crHourGlass;
try
{ 耗時操作 }
finally
Screen.Cursor := crDefault;
end;
end;
//其他情況2
begin
Query1.DisableControls;
try
{ 操作數據集 }
finally
Query1.EnableControls;
end;
end;


SQL SERVER 怎樣將日期轉換成字串形式:YYYYMMDD,例如’2005-10-05′ 轉換成’20051005’,謝謝!
ans:

select datetimefield,
convert(varchar(8), datetimefield, 112) as strdatetime
from yourtable


可以試試 adoQuery.Connection.Errors.Item[0].NativeError

我攔出來 2601 , 2627 是 key 值 error

可以在 SQL 線上叢書去找, 應該可以找到你要的 ^^


procedure _RunTimeCreateOdbcAliasForSybase(sOdbcAlias_,sDBName_,sDbIP_,sUserName_ : String);
var
Reg : TRegistry;
sErrMsg : String;
begin

try
try
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey(‘\Software\ODBC\’,True) then begin
Reg.OpenKey(‘\Software\ODBC\ODBC.INI\ODBC Data Sources’,True);
Reg.WriteString(‘TestSybase2′,’Sybase ASE ODBC Driver’); //Create ODBC Alias
Reg.OpenKey(‘\Software\ODBC\ODBC.INI\’+’TestSybase2’,True);
Reg.WriteString(‘Database’,’MyDatabase’);
Reg.WriteString(‘Description’,’for Test’);

Reg.WriteString(‘Driver’, ‘C:\Sybase\ODBC\SYODASE.dll’);
Reg.WriteString(‘NetworkAddress’, ‘192.168.10.100,5000’);
Reg.WriteString(‘NetworkLibraryName’,’Winsock’ );
end;
Reg.CloseKey;
except
on E:Exception do begin
sErrMsg := Format(‘建立新的 ODBC Alias 時發生錯誤!…%s’,[E.message]);
Application.MessageBox(PChar(sErrMsg),’錯誤訊息’,MB_ICONError);
raise Exception.Create(sErrMsg); //throw this exception obj
end;
end;
finally
Reg.Free;
end;
end;//_RunTimeCreateOdbcAliasForSybase();