1.向你伸出手的人
不一定都真心想救你
2.你永遠無法滿足所有人!
3.擁有資源多少並不重要，
如果你不懂得利用，永遠都是不夠的
4.別放棄，再堅持一下就到成功彼岸
5.方向不對，愈努力愈糟糕
6.看事物的角度，決定了你對事物的認識
7. 有時候生活不輕鬆，
就看你選擇走什麼樣的路
8.不要墨守成規，敢於創新才能打敗對手
9.也許有一天，
你發覺日子特別的艱難，
那可能是這次的收穫 特別巨大
10. 生活要懂得苦中作樂
2015年11月30日 星期一
2015年11月26日 星期四
感冒為什麼不要一直吃藥
真是一位有良心的醫師，看了才知道為何這麼多醫師說
感冒吃西藥只是「把病往裡趕」，消除症狀不表示把病治好，
"知"才能保護家人與孩子的健康，
目前過敏與氣喘的小孩非常多，值得深思！
1. 原來台灣的名醫是這樣形成的
…by林燦城醫師
從高雄醫學院醫學系畢業後，我一直從事西醫基層醫療，依健保局統計，民眾就醫以看感冒最多(約70%)，而對西醫治療感冒的模式，我一直很懷疑。在歐美所有被診斷為感冒的疾病，醫師幾乎是不開藥的，只會叫你回去休息。衛生署在感冒流行時期也只會呼籲：「請多喝水，多休息，少去公共場所」。從來沒說過要民眾吃藥這一回事。但是，民眾到西醫的診所(或醫院)看病，雖然是感冒，醫師幾乎都會開出一堆的「感冒藥」，吃了之後，病情卻也減輕了。
但是西醫傳到台灣卻變了質，開感冒藥 成了 醫師最容易賺錢的方式，開得越重，賺得越多。醫師很樂於用很強的感冒藥去掩蓋感冒症狀，民眾以為是「藥到病除」，實際上卻是在削弱自己的免疫力。通常大人會忍耐，感冒了忍幾天不吃藥這種作法還算對)，而對小孩的感冒就會急著找醫生，(大部份反而在害小孩)，因為台灣大部分的醫生為了拉攏病人，對不該開藥的感冒，習慣都會開藥來讓症狀減輕，而且藥開得越重，症狀減輕的越多，病人會越信賴，排隊來診的病人就越多。嚴格來講，這樣醫生所賺到的錢都是「黑心錢」。
感冒，大多數是因病毒感染所致，目前西醫對病毒仍然沒有特效藥。幸好人體本身有自我防衛的能力，這些自我防衛就是利用鼻塞、流鼻涕、打噴嚏、咳嗽甚至發燒等機轉來達成。西醫所發明的感冒藥，不但不能對抗感冒病毒，反而都在打擊這些自我防衛：「抗組織氨、假麻黃素」讓鼻塞打開，鼻涕減少、不打噴嚏，「氣管擴張劑、類固醇」讓氣管門戶大開，讓痰的分泌減少，表面上症狀改善了，事實上，卻是「門戶洞開，引狼入室
在台灣過敏性鼻炎與氣喘的發生率隨著診所的越普及反而越來越高，原因何在？很少人去想到：基本原因是感冒藥吃太多了，將免疫力給破壞，身體的防線由第一道的鼻腔，退到最後一道的肺泡所致。原來一直吃感冒藥不但不能「治病」，反而會「製病」。
小孩第一次罹患感冒，通常約5-7天抗體產生後，就會自然痊癒(而且也沒有任何西藥可治感冒)。但是父母不放心，媒體又推波助瀾，急著帶去給醫師看，大部分的醫師會開出症狀治療藥(其實是消滅免疫力、傷害小孩的藥)，父母遵從醫囑，規規矩矩照三餐給小孩灌藥，果然小孩症狀很快消失，但從此也走上不歸路，以後小孩抵抗力越來越差，感冒次數越來越多，感冒症狀越來越嚴重，感冒藥越用越重，惡性循環結果，終致演變成過敏性鼻炎、氣喘。
2. 美國FDA要求明文禁止「6歲以下幼童」吃感冒藥
美國FDA(相當於台灣的衛生署)的一個委員會作出決議，要求明文禁止「6歲以下幼童」吃感冒藥。
小朋友生病，一定要吃感冒藥嗎？美國研究發現，小朋友吃感冒藥，根本沒效，美國藥物食品管理局FDA還要求明文禁止「6歲以下幼童」吃感冒藥，原因是已經有1500個小朋友吃類似的感冒藥產生副作用，123個人死亡。國內小兒科醫師把話說得更白，感冒藥本來效果就不大，還要小心幼童心臟不舒服，本來就有致死危機。
小朋友感冒生病，該怎麼辦？家長：「先來看醫師啊，主要是吃藥為主。」如果告訴你，小朋友吃的感冒藥根本沒用，甚至會傷身，這才讓人頭皮發麻。
美國聯邦食品藥物管理局更呼籲，直接禁止6歲以下小朋友服用咳嗽藥和感冒藥，講白了，就是這些藥根本無效。台安醫院表示：「兩個人都感冒，一樣的症狀一個人有吃，一個人沒有吃（藥），最後你會發現好的時間就一樣，有的小朋友可能吃了，可能發生一些心臟的問題，心律不整，或有的人引起神經方面的副作用。」
小兒科醫師看法與美國一致，以往開藥，就已經減少非常多的劑量，主要是感冒藥裡，治療鼻塞和過敏的藥物，有抗充血和抗組織胺的成分，有可能衝擊小朋友心臟。美國的調查發現，至少有1500個小朋友，吃藥引發併發症，有123個人死亡。「死亡案例一定會發生啦，因為他有(可能)心臟發生心律不整，是可能發生，但比例不是很高，但總是有可能發生（死亡）。」
醫師說，感冒即使不吃藥，3到5天，身體自己也會康復，吃感冒藥沒有效，但還是建議要看醫師做診斷，因為怕就怕會有併發症，或根本不是感冒，都有奪命的危機。
吃感冒藥不但無效而且傷身。醫學院所受的教育裡，病毒性的感冒是：「沒有藥物可治療的」，要靠自己的免疫力來對抗。感冒藥會降低身體抵抗病毒的能力，不但對六歲以下的小孩有傷害，對大人的健康也沒有好處(衛生署只建議：「多休息，多喝水」)。只是大人因為要工作，只好吃藥來減輕不舒服感。但是很多家長誤以為要吃感冒藥，感冒才會快好，這是醫界沒有盡到衛教的責任。
當記者拿這件新聞去問衛生署時，衛生署似乎並沒有要做任何因應，看來民眾的健康還得自求多福。禁止感冒藥的販售，當然會衝擊到許多藥廠的利益與利潤，但到底是藥廠的利潤重要呢？還是民眾的生命重要？
美國與台灣國情不同的是：在美國，醫師不會隨便開感冒藥，在台灣則是：找醫師看感冒，大多數都會開感冒藥(而且，某些醫師開的感冒藥還特別有效)。在台灣的開業醫師如果規規矩矩教病患「多休息、多喝水」的幾乎都不容易生存。問題的癥結在於：如果第一個醫師按照教科書教民眾「多休息、多喝水」，病患很快會再找第二個醫師，第二個醫師察顏觀色，立刻開出「特效藥」，感冒症狀很快解除，這時候病患不但不會去懷疑第二個醫師，還會罵第一個醫師「醫術不好」。
就我所知，台東某大醫院的小兒科就有位醫師一直堅持感冒不隨便開藥，發燒也不必急著退，他還常常演講說明感冒隨便退燒的壞處，但是相信他的民眾終究還是少數，多數的家長寧願選擇「開藥，感冒症狀很快解除」的醫師。
感冒藥吃多了，小孩子的抵抗力會越來越差，看病的頻數也越來越多。其中的道理，感冒藥把第一道防線破壞，讓病毒很容易入侵，久而久之，就演變成鼻過敏，再繼續用氣管擴張劑，就演變成氣喘。依據「台灣氣喘衛教學會」的資料，台灣的氣喘盛行率由民國63年的1.3%，到民國91成長到19%。30年來增加了15倍，診所越普及，就醫越方便，氣喘盛行率反而越高，這是甚麼道理？難道大家都沒有懷疑：『你吃了太多不該吃、也不必吃的藥！』？
PS：鼻子過敏與感冒一樣，都會有打噴嚏、流鼻水、鼻塞…的反應，其實這些反應都是人體保命所必要的。感冒時，入侵的病毒毒力較強，所以反應比較激烈，會有痠痛、倦怠、頭痛、發燒等症狀。鼻過敏時打噴嚏、流鼻水、鼻塞則是對一些並無傷害的刺激起過度反應。感冒與鼻過敏的本質都是身體「虛」，因為「虛」才容易被感冒病毒侵犯；因為「虛」，所以連無傷害的刺激也需要用激烈的動作來回應，這就是過敏。
感冒時，虛弱的肺部怕被病毒入侵，所以祭出鼻塞、流鼻涕、打?嚏的方式來防衛，但是所謂的感冒藥卻都在破壞這些防線，讓病毒得以深入，氣管擴張劑讓病毒更易深入到達肺泡，這時終末細支氣管平滑肌全面收縮就演變成氣喘。長期吃感冒藥，演變成氣喘絕對是指日可待。
3. 感冒、氣喘、過敏系列之一：這樣的治療，是在『治病』？還是『製病』？
台灣小朋友的鼻過敏、氣喘越來越多，希望大家努力思考，如果你接受這樣的醫療，到底是在「治病」？還是在「製病」？
治療感冒，衛生署的標準答案只有：『請多休息、多喝水、多洗手，少去公共場所』，但是台灣到處林立的醫療院所，卻習以為常的開出一大堆的『感冒藥』。當了二、三十年醫師，所看到最離譜、最荒謬的醫療，就是台灣的醫生開藥治療感冒的模式。
美國、加拿大的醫師，看感冒從不開藥的，只會叫你回家休息、多喝水，自然產生抵抗力。實在不舒服時，才叫你自行去OTC(開架藥局)買緩解感冒症狀、劑量很輕的成藥。醫界都很清楚：『感冒是由病毒引起，根本無藥物可對抗』。
當感冒病毒在空氣中漂浮，有些抵抗力較差的人，就會被傳染上。這時，人體的第一道防線(非特異性防禦系統)會先來應戰，同時會呼叫第二線的特異防禦系統(抗體)來協助。身體製造抗體約需七天的時間。抗體還未產生前，第一道防線一定要先撐著，用鼻塞來阻擋、用流鼻涕來黏住病毒，用打噴嚏、咳嗽等各種方式來驅趕病毒，這就是第一線非特異性防禦的模式。
鼻塞、流鼻涕這些症狀固然會讓身體不舒服，但是沒有鼻塞、流鼻涕這些防線，病毒就會長驅直入。第一道防線撐個七天，等抗體製造出來，身體就可以反攻了。人類就是用這樣的機轉，不斷製造抗體，才能和病毒共存了幾萬年。
現在我們再來看看所謂『感冒藥』，到底是怎麼治感冒的？所謂治感冒的『感冒藥』，不外乎是下列這些成份：
1. 止痛退燒藥：身體用發燒來對抗病毒，退燒反而對身體不利。
2. 假麻黃素：(一種鼻充血解除劑)用來解除鼻塞。
3. 抗組織氨：阻止鼻涕分泌，減少鼻涕。
4. 鎮咳袪痰劑：壓制咳嗽，減低痰的黏性。
5. 氣管擴張劑：解除氣管平滑肌的收縮，擴張氣管。
6. 抗生素：抗生素對病毒無效。
從以上看來，西藥感冒藥的成份，主要是抑制感冒時的症狀，沒有一種成份是針對感冒病毒的。事實上，感冒藥對入侵的病毒是『束手無策』的。感冒藥解除鼻塞、抑制鼻涕、鎮咳、袪痰、擴張氣管、退燒，都只是『治標』，根本無法『治本』。又，當我們身體的第一防線被這些藥瓦解後，身體放棄了初步的抵抗力，病毒就輕易進入。表面上感冒不舒服的症狀解除了，以為病好了；事實上，身體的自然防禦系統模式被破壞，抵抗力就愈來愈差，下次被感染的機會就越大，病況就會愈來愈嚴重。
說更清楚些，當身體在鼻腔的第一道防線被『感冒藥』瓦解後，防線只好退守氣管，氣管的防線再被氣管擴張劑瓦解，就再退至細支氣管與肺泡、這時肺泡的微氣管平滑肌全面收縮、關門，呼吸更不順暢，氣喘就是如此發生的。
美國、加拿大的醫師深知此理，所以很少開感冒藥，假如患者感冒的症狀真的不舒服，就建議到OTC買劑量很輕的成藥，這樣身體還能保有部份的防禦能力。但是在台灣，很多醫師開感冒藥是『照三餐吃、吃七天』，開得越重，越受歡迎，生意越好。甚至還有小道消息流傳著：某某醫師的感冒藥特別有效，別人治不好的，一定要找某某醫師才行。對這種流傳，內行的人不禁要合理懷疑：『難不成這是個專用類固醇的醫師？否則，感冒何來特效藥？』
衛生署很清楚「感冒是由病毒引起的，根本沒有藥可對抗。」所以只能呼籲「多喝水、多休息」，從來沒有說過『感冒要吃藥，以免加重病情』。但是很多醫師濫用感冒藥在『製病』，還成為主流；不開藥的醫師，反而不易生存。民眾在這方面卻是不知的。衛生署是不是應該對民眾做更多的衛教、保健常識的宣導及教育？更應該有為全民追求長遠健康的正確措施，而非只是喊喊幾句話而已，是不？
感冒吃西藥只是「把病往裡趕」，消除症狀不表示把病治好，
"知"才能保護家人與孩子的健康，
目前過敏與氣喘的小孩非常多，值得深思！
1. 原來台灣的名醫是這樣形成的
…by林燦城醫師
從高雄醫學院醫學系畢業後，我一直從事西醫基層醫療，依健保局統計，民眾就醫以看感冒最多(約70%)，而對西醫治療感冒的模式，我一直很懷疑。在歐美所有被診斷為感冒的疾病，醫師幾乎是不開藥的，只會叫你回去休息。衛生署在感冒流行時期也只會呼籲：「請多喝水，多休息，少去公共場所」。從來沒說過要民眾吃藥這一回事。但是，民眾到西醫的診所(或醫院)看病，雖然是感冒，醫師幾乎都會開出一堆的「感冒藥」，吃了之後，病情卻也減輕了。
但是西醫傳到台灣卻變了質，開感冒藥 成了 醫師最容易賺錢的方式，開得越重，賺得越多。醫師很樂於用很強的感冒藥去掩蓋感冒症狀，民眾以為是「藥到病除」，實際上卻是在削弱自己的免疫力。通常大人會忍耐，感冒了忍幾天不吃藥這種作法還算對)，而對小孩的感冒就會急著找醫生，(大部份反而在害小孩)，因為台灣大部分的醫生為了拉攏病人，對不該開藥的感冒，習慣都會開藥來讓症狀減輕，而且藥開得越重，症狀減輕的越多，病人會越信賴，排隊來診的病人就越多。嚴格來講，這樣醫生所賺到的錢都是「黑心錢」。
感冒，大多數是因病毒感染所致，目前西醫對病毒仍然沒有特效藥。幸好人體本身有自我防衛的能力，這些自我防衛就是利用鼻塞、流鼻涕、打噴嚏、咳嗽甚至發燒等機轉來達成。西醫所發明的感冒藥，不但不能對抗感冒病毒，反而都在打擊這些自我防衛：「抗組織氨、假麻黃素」讓鼻塞打開，鼻涕減少、不打噴嚏，「氣管擴張劑、類固醇」讓氣管門戶大開，讓痰的分泌減少，表面上症狀改善了，事實上，卻是「門戶洞開，引狼入室
在台灣過敏性鼻炎與氣喘的發生率隨著診所的越普及反而越來越高，原因何在？很少人去想到：基本原因是感冒藥吃太多了，將免疫力給破壞，身體的防線由第一道的鼻腔，退到最後一道的肺泡所致。原來一直吃感冒藥不但不能「治病」，反而會「製病」。
小孩第一次罹患感冒，通常約5-7天抗體產生後，就會自然痊癒(而且也沒有任何西藥可治感冒)。但是父母不放心，媒體又推波助瀾，急著帶去給醫師看，大部分的醫師會開出症狀治療藥(其實是消滅免疫力、傷害小孩的藥)，父母遵從醫囑，規規矩矩照三餐給小孩灌藥，果然小孩症狀很快消失，但從此也走上不歸路，以後小孩抵抗力越來越差，感冒次數越來越多，感冒症狀越來越嚴重，感冒藥越用越重，惡性循環結果，終致演變成過敏性鼻炎、氣喘。
2. 美國FDA要求明文禁止「6歲以下幼童」吃感冒藥
美國FDA(相當於台灣的衛生署)的一個委員會作出決議，要求明文禁止「6歲以下幼童」吃感冒藥。
小朋友生病，一定要吃感冒藥嗎？美國研究發現，小朋友吃感冒藥，根本沒效，美國藥物食品管理局FDA還要求明文禁止「6歲以下幼童」吃感冒藥，原因是已經有1500個小朋友吃類似的感冒藥產生副作用，123個人死亡。國內小兒科醫師把話說得更白，感冒藥本來效果就不大，還要小心幼童心臟不舒服，本來就有致死危機。
小朋友感冒生病，該怎麼辦？家長：「先來看醫師啊，主要是吃藥為主。」如果告訴你，小朋友吃的感冒藥根本沒用，甚至會傷身，這才讓人頭皮發麻。
美國聯邦食品藥物管理局更呼籲，直接禁止6歲以下小朋友服用咳嗽藥和感冒藥，講白了，就是這些藥根本無效。台安醫院表示：「兩個人都感冒，一樣的症狀一個人有吃，一個人沒有吃（藥），最後你會發現好的時間就一樣，有的小朋友可能吃了，可能發生一些心臟的問題，心律不整，或有的人引起神經方面的副作用。」
小兒科醫師看法與美國一致，以往開藥，就已經減少非常多的劑量，主要是感冒藥裡，治療鼻塞和過敏的藥物，有抗充血和抗組織胺的成分，有可能衝擊小朋友心臟。美國的調查發現，至少有1500個小朋友，吃藥引發併發症，有123個人死亡。「死亡案例一定會發生啦，因為他有(可能)心臟發生心律不整，是可能發生，但比例不是很高，但總是有可能發生（死亡）。」
醫師說，感冒即使不吃藥，3到5天，身體自己也會康復，吃感冒藥沒有效，但還是建議要看醫師做診斷，因為怕就怕會有併發症，或根本不是感冒，都有奪命的危機。
吃感冒藥不但無效而且傷身。醫學院所受的教育裡，病毒性的感冒是：「沒有藥物可治療的」，要靠自己的免疫力來對抗。感冒藥會降低身體抵抗病毒的能力，不但對六歲以下的小孩有傷害，對大人的健康也沒有好處(衛生署只建議：「多休息，多喝水」)。只是大人因為要工作，只好吃藥來減輕不舒服感。但是很多家長誤以為要吃感冒藥，感冒才會快好，這是醫界沒有盡到衛教的責任。
當記者拿這件新聞去問衛生署時，衛生署似乎並沒有要做任何因應，看來民眾的健康還得自求多福。禁止感冒藥的販售，當然會衝擊到許多藥廠的利益與利潤，但到底是藥廠的利潤重要呢？還是民眾的生命重要？
美國與台灣國情不同的是：在美國，醫師不會隨便開感冒藥，在台灣則是：找醫師看感冒，大多數都會開感冒藥(而且，某些醫師開的感冒藥還特別有效)。在台灣的開業醫師如果規規矩矩教病患「多休息、多喝水」的幾乎都不容易生存。問題的癥結在於：如果第一個醫師按照教科書教民眾「多休息、多喝水」，病患很快會再找第二個醫師，第二個醫師察顏觀色，立刻開出「特效藥」，感冒症狀很快解除，這時候病患不但不會去懷疑第二個醫師，還會罵第一個醫師「醫術不好」。
就我所知，台東某大醫院的小兒科就有位醫師一直堅持感冒不隨便開藥，發燒也不必急著退，他還常常演講說明感冒隨便退燒的壞處，但是相信他的民眾終究還是少數，多數的家長寧願選擇「開藥，感冒症狀很快解除」的醫師。
感冒藥吃多了，小孩子的抵抗力會越來越差，看病的頻數也越來越多。其中的道理，感冒藥把第一道防線破壞，讓病毒很容易入侵，久而久之，就演變成鼻過敏，再繼續用氣管擴張劑，就演變成氣喘。依據「台灣氣喘衛教學會」的資料，台灣的氣喘盛行率由民國63年的1.3%，到民國91成長到19%。30年來增加了15倍，診所越普及，就醫越方便，氣喘盛行率反而越高，這是甚麼道理？難道大家都沒有懷疑：『你吃了太多不該吃、也不必吃的藥！』？
PS：鼻子過敏與感冒一樣，都會有打噴嚏、流鼻水、鼻塞…的反應，其實這些反應都是人體保命所必要的。感冒時，入侵的病毒毒力較強，所以反應比較激烈，會有痠痛、倦怠、頭痛、發燒等症狀。鼻過敏時打噴嚏、流鼻水、鼻塞則是對一些並無傷害的刺激起過度反應。感冒與鼻過敏的本質都是身體「虛」，因為「虛」才容易被感冒病毒侵犯；因為「虛」，所以連無傷害的刺激也需要用激烈的動作來回應，這就是過敏。
感冒時，虛弱的肺部怕被病毒入侵，所以祭出鼻塞、流鼻涕、打?嚏的方式來防衛，但是所謂的感冒藥卻都在破壞這些防線，讓病毒得以深入，氣管擴張劑讓病毒更易深入到達肺泡，這時終末細支氣管平滑肌全面收縮就演變成氣喘。長期吃感冒藥，演變成氣喘絕對是指日可待。
3. 感冒、氣喘、過敏系列之一：這樣的治療，是在『治病』？還是『製病』？
台灣小朋友的鼻過敏、氣喘越來越多，希望大家努力思考，如果你接受這樣的醫療，到底是在「治病」？還是在「製病」？
治療感冒，衛生署的標準答案只有：『請多休息、多喝水、多洗手，少去公共場所』，但是台灣到處林立的醫療院所，卻習以為常的開出一大堆的『感冒藥』。當了二、三十年醫師，所看到最離譜、最荒謬的醫療，就是台灣的醫生開藥治療感冒的模式。
美國、加拿大的醫師，看感冒從不開藥的，只會叫你回家休息、多喝水，自然產生抵抗力。實在不舒服時，才叫你自行去OTC(開架藥局)買緩解感冒症狀、劑量很輕的成藥。醫界都很清楚：『感冒是由病毒引起，根本無藥物可對抗』。
當感冒病毒在空氣中漂浮，有些抵抗力較差的人，就會被傳染上。這時，人體的第一道防線(非特異性防禦系統)會先來應戰，同時會呼叫第二線的特異防禦系統(抗體)來協助。身體製造抗體約需七天的時間。抗體還未產生前，第一道防線一定要先撐著，用鼻塞來阻擋、用流鼻涕來黏住病毒，用打噴嚏、咳嗽等各種方式來驅趕病毒，這就是第一線非特異性防禦的模式。
鼻塞、流鼻涕這些症狀固然會讓身體不舒服，但是沒有鼻塞、流鼻涕這些防線，病毒就會長驅直入。第一道防線撐個七天，等抗體製造出來，身體就可以反攻了。人類就是用這樣的機轉，不斷製造抗體，才能和病毒共存了幾萬年。
現在我們再來看看所謂『感冒藥』，到底是怎麼治感冒的？所謂治感冒的『感冒藥』，不外乎是下列這些成份：
1. 止痛退燒藥：身體用發燒來對抗病毒，退燒反而對身體不利。
2. 假麻黃素：(一種鼻充血解除劑)用來解除鼻塞。
3. 抗組織氨：阻止鼻涕分泌，減少鼻涕。
4. 鎮咳袪痰劑：壓制咳嗽，減低痰的黏性。
5. 氣管擴張劑：解除氣管平滑肌的收縮，擴張氣管。
6. 抗生素：抗生素對病毒無效。
從以上看來，西藥感冒藥的成份，主要是抑制感冒時的症狀，沒有一種成份是針對感冒病毒的。事實上，感冒藥對入侵的病毒是『束手無策』的。感冒藥解除鼻塞、抑制鼻涕、鎮咳、袪痰、擴張氣管、退燒，都只是『治標』，根本無法『治本』。又，當我們身體的第一防線被這些藥瓦解後，身體放棄了初步的抵抗力，病毒就輕易進入。表面上感冒不舒服的症狀解除了，以為病好了；事實上，身體的自然防禦系統模式被破壞，抵抗力就愈來愈差，下次被感染的機會就越大，病況就會愈來愈嚴重。
說更清楚些，當身體在鼻腔的第一道防線被『感冒藥』瓦解後，防線只好退守氣管，氣管的防線再被氣管擴張劑瓦解，就再退至細支氣管與肺泡、這時肺泡的微氣管平滑肌全面收縮、關門，呼吸更不順暢，氣喘就是如此發生的。
美國、加拿大的醫師深知此理，所以很少開感冒藥，假如患者感冒的症狀真的不舒服，就建議到OTC買劑量很輕的成藥，這樣身體還能保有部份的防禦能力。但是在台灣，很多醫師開感冒藥是『照三餐吃、吃七天』，開得越重，越受歡迎，生意越好。甚至還有小道消息流傳著：某某醫師的感冒藥特別有效，別人治不好的，一定要找某某醫師才行。對這種流傳，內行的人不禁要合理懷疑：『難不成這是個專用類固醇的醫師？否則，感冒何來特效藥？』
衛生署很清楚「感冒是由病毒引起的，根本沒有藥可對抗。」所以只能呼籲「多喝水、多休息」，從來沒有說過『感冒要吃藥，以免加重病情』。但是很多醫師濫用感冒藥在『製病』，還成為主流；不開藥的醫師，反而不易生存。民眾在這方面卻是不知的。衛生署是不是應該對民眾做更多的衛教、保健常識的宣導及教育？更應該有為全民追求長遠健康的正確措施，而非只是喊喊幾句話而已，是不？
2015年11月22日 星期日
這段話抄下來，享用終生!!
1.低調作人你會一次比一次穩健
2.高調做事你會一次比一次優秀
3.有望得到的要努力
4.無望得到的別介意
5.再煩也別忘記微笑
6.再急也要注意語氣
7.再苦也不忘堅持
8.再累也要愛自己
9.成功的時候不要忘記過去
10.失敗的時後不要忘記還有未來
六句話詮釋人生：
人生1條路：走自己的路
人生2件寶：身體好、永不老
人生3種朋友：維護你、包容你、批評你的人
人生有4苦：看不透、捨不得、輸不起、放不下
人生5句話：再難也要堅持、再好也要淡泊、再差也要自信、再多也要節省、再冷也要熱情
人生6財富：身體、知識、夢想、信念、自信、骨氣
記住人生5個三
人生三件事不能硬撐：花錢、喝酒、看病
人生三件事不能硬等：孝老、行善、健身
人生學說三句話：算了！不要緊！會過去的！
人生三問：儘快有多快？稍後有多後？永遠有多遠？
人生三大快事：美酒、摯友、枕邊書
下對注，贏一次；跟對人，贏一世。不識貨，半世苦；不識人，一世苦。
學識不如知識，知識不如做事，做事不如做人。重師者王，重友者霸，重已者亡。
不用盤算太多，要順其自然，用盡心機不如靜心做事，該是你的終會得到。
這些話受易終身
1.心存希望，幸福就會降臨你；
2.心存夢想，機遇就會壟罩你；
3.心存真誠，平安就會跟隨你；
4.心存善念，陽光就會照耀你；
5.心存美麗，溫暖就會圍繞你；
6.心存大愛，崇高就會追隨你；
7.心存他人，真情就會回報你；
8.心存感恩，貴人就會青睞你；
2.高調做事你會一次比一次優秀
3.有望得到的要努力
4.無望得到的別介意
5.再煩也別忘記微笑
6.再急也要注意語氣
7.再苦也不忘堅持
8.再累也要愛自己
9.成功的時候不要忘記過去
10.失敗的時後不要忘記還有未來
六句話詮釋人生：
人生1條路：走自己的路
人生2件寶：身體好、永不老
人生3種朋友：維護你、包容你、批評你的人
人生有4苦：看不透、捨不得、輸不起、放不下
人生5句話：再難也要堅持、再好也要淡泊、再差也要自信、再多也要節省、再冷也要熱情
人生6財富：身體、知識、夢想、信念、自信、骨氣
記住人生5個三
人生三件事不能硬撐：花錢、喝酒、看病
人生三件事不能硬等：孝老、行善、健身
人生學說三句話：算了！不要緊！會過去的！
人生三問：儘快有多快？稍後有多後？永遠有多遠？
人生三大快事：美酒、摯友、枕邊書
下對注，贏一次；跟對人，贏一世。不識貨，半世苦；不識人，一世苦。
學識不如知識，知識不如做事，做事不如做人。重師者王，重友者霸，重已者亡。
不用盤算太多，要順其自然，用盡心機不如靜心做事，該是你的終會得到。
這些話受易終身
1.心存希望，幸福就會降臨你；
2.心存夢想，機遇就會壟罩你；
3.心存真誠，平安就會跟隨你；
4.心存善念，陽光就會照耀你；
5.心存美麗，溫暖就會圍繞你；
6.心存大愛，崇高就會追隨你；
7.心存他人，真情就會回報你；
8.心存感恩，貴人就會青睞你；
原來，善良也可以如此美妙
火車上20歲女孩與70歲爺爺的故事，女孩彎腰那刻，整車的人都沉默了！
春運期間，在由杭州開往成都的K529次列車上，旅客嚴重超載。一個靠窗坐著的老大爺正跟鄰座的人分享他的幸運經歷，原來，他是到上饒的，買的是無座票，上車後抱著僥倖心理，佔了個好座，沒想到直到開車時，都沒人請他離座，真是幸運。
緊靠著老大爺座椅，當中擠著好幾個人，其中有一位瘦弱的姑娘，看上去不到20歲的樣子，被來往穿行的旅客，擠得東倒西歪。
看到這情景，老大爺關切地問：「閨女啊，這麼站著遭罪，你應該像我這樣早點兒上車來找個座。到哪兒下啊？」
「我沒事的，爺爺，我到荊門。」
「那得明天下午才到呢，這麼遠一直站著可怎麼辦？」老大爺搖了搖頭表示擔憂。
過了一會兒，老大爺又轉過臉，和藹地說：「這樣吧，閨女，等我下了之後，你就過來坐這裡。」
「嗯，好的！謝謝您啦。」姑娘甜甜地應了一聲，滿臉感激。
過了一會兒，列車開始檢票。列車員看了看姑娘的票，奇怪地問：「你不是有座嗎？怎麼不坐？」
姑娘微笑著，眼光悄悄移向老大爺的方向：「70多歲的老人家了，一直站著也會吃不消的。」
「你沒跟他說？他不知道嗎？！」
姑娘回應說，這怎麼能說？知道了他就坐不踏實了。姑娘抿著嘴眨了眨眼。
列車員回頭瞅了瞅睡著的老大爺，然後把票給了姑娘，小聲說：「跟我去餐廳吧，我幫你找個座。」跟前的幾個人都聽到了，讚歎著給姑娘讓出一條道。
姑娘彎下腰，從座位下拿出了自己的拐杖...剛才被感動的人們，心底像被什麼擊中了一般，深深地被震撼了。
【選擇善良】
不是我軟弱。因為我明白，善良是本性，做人不能惡，惡必遭報應。
【選擇忍讓】
不是我退縮。因為我明白，忍一忍風平浪靜，讓一讓天高海闊。
【選擇糊塗】
不是我真的糊塗，面對誤解委屈和不公正，只是不願計較，因為我知道人在這世上並不長久；計較那麼多沒用，從而大度應對，難得糊塗，笑看世態。
【選擇饒恕】
不是我沒原則。因為我明白，得饒人時且饒人，不能把事做絕了，更不能把話說狠了，別把自己的路給斷了。
【選擇真誠】
我有話就直說。因為我明白，違心奉承是應付，忠言逆耳是負責。也許說的太直接無形中去傷害到他人，要學著圓融，但我也必需是真誠，學著對己是方對外是圓。
【重情重義】 不是我太執著。因為我總是想著與朋友們相處的美好時光，割捨不了那份難得的緣分和情誼，不應該掩飾內心的情感，我明白欺騙沒有好下場，背叛沒有好結果。重情使我這一生很辛苦，但我也必需要做個有情人，而不濫情。
【選擇厚道】
不是因為我笨拙。因為我明白，厚德能載物，助人能快樂。
原來，善良也可以如此美妙。
春運期間，在由杭州開往成都的K529次列車上，旅客嚴重超載。一個靠窗坐著的老大爺正跟鄰座的人分享他的幸運經歷，原來，他是到上饒的，買的是無座票，上車後抱著僥倖心理，佔了個好座，沒想到直到開車時，都沒人請他離座，真是幸運。
緊靠著老大爺座椅，當中擠著好幾個人，其中有一位瘦弱的姑娘，看上去不到20歲的樣子，被來往穿行的旅客，擠得東倒西歪。
看到這情景，老大爺關切地問：「閨女啊，這麼站著遭罪，你應該像我這樣早點兒上車來找個座。到哪兒下啊？」
「我沒事的，爺爺，我到荊門。」
「那得明天下午才到呢，這麼遠一直站著可怎麼辦？」老大爺搖了搖頭表示擔憂。
過了一會兒，老大爺又轉過臉，和藹地說：「這樣吧，閨女，等我下了之後，你就過來坐這裡。」
「嗯，好的！謝謝您啦。」姑娘甜甜地應了一聲，滿臉感激。
過了一會兒，列車開始檢票。列車員看了看姑娘的票，奇怪地問：「你不是有座嗎？怎麼不坐？」
姑娘微笑著，眼光悄悄移向老大爺的方向：「70多歲的老人家了，一直站著也會吃不消的。」
「你沒跟他說？他不知道嗎？！」
姑娘回應說，這怎麼能說？知道了他就坐不踏實了。姑娘抿著嘴眨了眨眼。
列車員回頭瞅了瞅睡著的老大爺，然後把票給了姑娘，小聲說：「跟我去餐廳吧，我幫你找個座。」跟前的幾個人都聽到了，讚歎著給姑娘讓出一條道。
姑娘彎下腰，從座位下拿出了自己的拐杖...剛才被感動的人們，心底像被什麼擊中了一般，深深地被震撼了。
【選擇善良】
不是我軟弱。因為我明白，善良是本性，做人不能惡，惡必遭報應。
【選擇忍讓】
不是我退縮。因為我明白，忍一忍風平浪靜，讓一讓天高海闊。
【選擇糊塗】
不是我真的糊塗，面對誤解委屈和不公正，只是不願計較，因為我知道人在這世上並不長久；計較那麼多沒用，從而大度應對，難得糊塗，笑看世態。
【選擇饒恕】
不是我沒原則。因為我明白，得饒人時且饒人，不能把事做絕了，更不能把話說狠了，別把自己的路給斷了。
【選擇真誠】
我有話就直說。因為我明白，違心奉承是應付，忠言逆耳是負責。也許說的太直接無形中去傷害到他人，要學著圓融，但我也必需是真誠，學著對己是方對外是圓。
【重情重義】 不是我太執著。因為我總是想著與朋友們相處的美好時光，割捨不了那份難得的緣分和情誼，不應該掩飾內心的情感，我明白欺騙沒有好下場，背叛沒有好結果。重情使我這一生很辛苦，但我也必需要做個有情人，而不濫情。
【選擇厚道】
不是因為我笨拙。因為我明白，厚德能載物，助人能快樂。
原來，善良也可以如此美妙。
2015年11月16日 星期一
你曾多少次，误解了别人？
《吕氏春秋》里有一段，讲孔子周游列国，曾因兵荒马乱，旅途困顿，三餐以野菜果腹，大家已七日没吃下一粒米饭。
一天，颜回好不容易要到了一些白米煮饭，饭快煮熟时，孔子看到颜回掀起锅盖，抓些白饭往嘴里塞，孔子当时装作没看见，也不去责问。
饭煮好后，颜回请孔子进食，孔子假装若有所思地说：「我刚才梦到祖先来找我，我想把干净还没人吃过的米饭，先拿来祭祖先吧！」
颜回顿时慌张起来说：「不可以的，这锅饭我已先吃一口了，不可以祭祖先了。」
孔子问：为什么？
颜回涨红脸，嗫嗫地说：「刚才在煮饭时，不小心掉了些染灰在锅里，染灰的白饭丢了太可惜，只好抓起来先吃了，我不是故意把饭吃了。」
孔子听了，恍然大悟，对自己的观察错误，反而愧疚，抱歉地说：「我平常对颜回已最信任，但仍然还会怀疑他，可见我们内心是最难确定稳定的。弟子们大家记下这件事，要了解一个人，还真是不容易啊！」
所谓知人难，相知相惜更难。逢事必从上下、左右、前后各个角度来认识辨知，我们主观的了解观察，只是真相的千分之一，单一角度判断，是不能达到全方位的观照的！
当你要对一个人下结论的时候，想想：
真的你所看到的才是事实吗？
还是你只从一个面，一个点，去观察一个人呢？
大多数的人根本不了解对方的立场与困难的时候，就已经给了对方下评语了，更何况是在有利益冲突下的场合。
现今的人们拥有高学历高知识，却往往过度仰赖高知识，而忘了让自己在智慧上成长。
很多事信者恒信，不信者恒不信，要客观地跳出成见，才有机会接近真相。
连孔圣人也会对自己最信任的弟子起疑心，更何况我们呢？
我们是不是也常常因为“亲眼所见、亲耳所闻”，对他人产生了某种印象，从而为他人打上某种“标签”呢？
孔圣人可以当下就用智慧，轻易了解真相，消除误会，可是我们呢？
有多少人，因为自己的“亲眼所见”，尤其是亲密关系里，从此耿耿于怀，甚至怀恨在心......可悲的是，到死都不知道，其实是自己“看错了”？！
两个人交流时，其实是6个人在交流：你以为的你，你以为的他，真正的你；他以为的他，他以为的你，真正的他。
你想，这里边会有多少误会，会有多少误解？
你总在和“你以为的他”交流，你知道“真正的他”的想法吗？
你是否又觉察到真正的你？你自己的内心的需要是什么？对方的需要又是什么呢？
你曾经多少次误解了你的家人、朋友和同事？
与女人沟通，不要忘了她的情绪；
与上级沟通，不要忘了他的尊严；
与年轻人沟通，不要忘了他的直接；
与儿童沟通，不要忘了他的天真。
一天，颜回好不容易要到了一些白米煮饭，饭快煮熟时，孔子看到颜回掀起锅盖，抓些白饭往嘴里塞，孔子当时装作没看见，也不去责问。
饭煮好后，颜回请孔子进食，孔子假装若有所思地说：「我刚才梦到祖先来找我，我想把干净还没人吃过的米饭，先拿来祭祖先吧！」
颜回顿时慌张起来说：「不可以的，这锅饭我已先吃一口了，不可以祭祖先了。」
孔子问：为什么？
颜回涨红脸，嗫嗫地说：「刚才在煮饭时，不小心掉了些染灰在锅里，染灰的白饭丢了太可惜，只好抓起来先吃了，我不是故意把饭吃了。」
孔子听了，恍然大悟，对自己的观察错误，反而愧疚，抱歉地说：「我平常对颜回已最信任，但仍然还会怀疑他，可见我们内心是最难确定稳定的。弟子们大家记下这件事，要了解一个人，还真是不容易啊！」
所谓知人难，相知相惜更难。逢事必从上下、左右、前后各个角度来认识辨知，我们主观的了解观察，只是真相的千分之一，单一角度判断，是不能达到全方位的观照的！
当你要对一个人下结论的时候，想想：
真的你所看到的才是事实吗？
还是你只从一个面，一个点，去观察一个人呢？
大多数的人根本不了解对方的立场与困难的时候，就已经给了对方下评语了，更何况是在有利益冲突下的场合。
现今的人们拥有高学历高知识，却往往过度仰赖高知识，而忘了让自己在智慧上成长。
很多事信者恒信，不信者恒不信，要客观地跳出成见，才有机会接近真相。
连孔圣人也会对自己最信任的弟子起疑心，更何况我们呢？
我们是不是也常常因为“亲眼所见、亲耳所闻”，对他人产生了某种印象，从而为他人打上某种“标签”呢？
孔圣人可以当下就用智慧，轻易了解真相，消除误会，可是我们呢？
有多少人，因为自己的“亲眼所见”，尤其是亲密关系里，从此耿耿于怀，甚至怀恨在心......可悲的是，到死都不知道，其实是自己“看错了”？！
两个人交流时，其实是6个人在交流：你以为的你，你以为的他，真正的你；他以为的他，他以为的你，真正的他。
你想，这里边会有多少误会，会有多少误解？
你总在和“你以为的他”交流，你知道“真正的他”的想法吗？
你是否又觉察到真正的你？你自己的内心的需要是什么？对方的需要又是什么呢？
你曾经多少次误解了你的家人、朋友和同事？
与老人沟通，不要忘了他的自尊；
与男人沟通，不要忘了他的面子；与女人沟通，不要忘了她的情绪；
与上级沟通，不要忘了他的尊严；
与年轻人沟通，不要忘了他的直接；
与儿童沟通，不要忘了他的天真。
一种态度走天下，必然处处碰壁；因地制宜，因人而异，多怀感恩心、才能四海通达。
2015年11月9日 星期一
倚天屠龍記內一些名句
＊ 空固是空，圓亦是空，我相人相，好不懵懂
＊ 事情推物理，人生貴適意。想人間造物搬興廢，吉藏凶，凶藏吉。富貴那能常富貴？日盈昃，月滿虧蝕。地下東南，天高西北，天地尚無完體。展放愁眉，休爭閒氣，今日容顏，老於昨日。古今往來，盡需如此，管他閒的愚的，貧的和富的。到頭這一身，難逃那一日。受用了一朝，一朝便宜。百歲光陰，七十者稀。急急流年，滔滔逝水。」
＊ 「無我相，無人相，無眾生相，無壽者相。」
＊ 空故是空，圓亦是空。我相人相，好不懵懂。
＊ 生亦何歡，死亦何奪？為善除惡，能光明教，喜樂悲愁，皆歸塵土。 憐我世人，憂患實多，憐我世人，憂患實多！
================================================================
*「無我相，無人相，無眾生相，無壽者相。」
這一句是出自《金剛經》。《金剛經》是一部介紹大智慧的經典，在裡面，須菩提長老向佛陀提問：「云何應住，云何降伏其心？」(我們的心應該停住在何處？當我們的心浮燥不止的時候，又該如何降伏它？)此時佛陀給出的回答就是『不要執著於表相』，佛陀將相大致上分成四種，分別是我相、人相、眾生相、壽者相。
我相，就是執著於我。小時候對於玩具，執著於『這是我的』，別人想拿去玩我們會生氣。長大後這個執著會更放大及於身旁的許多事物，得到了、順心了，就高興；失去了，不順利，就難過生氣。無我相就是希望能放下對於『我』這個概念的執著。
人相，就是執著於人我的分際。工作上被上司指責，我們會對上司心裡不滿；情感上受創，我們會怪對方為什麼不懂我們的感情；面對子女，我們又常常將自己的期望強加在子女身上，而忘記子女本身的情緒。因此人與人之間爭執不斷。無人相就是希望我們能『超越人我之間的分別』，用現代的話來話，就是『將心比心，換位思考』。
眾生相，就是人相的進一步擴充，從原本的『你-我』，擴大到『你-我-他』，再進一步推到萬事萬物。例如我不喜歡被欺負，因此我體會到被欺負的人的心情，而不去欺負別人，更進一步思考到小貓小狗也是生命，不應該欺負牠們，再更進一步體會到玩偶、玩具(如胡迪、巴斯)需要好好愛惜。因此無眾生相，用現代的話來說，就是『推己及人，一視同仁』。
壽者相，就是人對生死的態度。一般人都是貪生怕死，這是人之常情。無壽者相就是希望我們能破除這種對生命的『貪戀』。愛惜生命是正確的，但是過度就不好了。例如臨終之時猶放不下，各式急救、電擊，硬是要把本來已死之人的生命延長個一、兩小時，除了增加痛苦之外，並沒有什麼實質上的好處。
我相、人相、眾生相、壽者相，其實歸根到底，這四者的源頭是相同的，就是佛家所說的『我執』。因此佛陀希望人不要執著在這種表相之上。
*空故是空，圓亦是空。我相人相，好不懵懂。
從「無我相，無人相，無眾生相，無壽者相」下來，我們就可以知道，空固然是一種相，圓也是一種相，空跟圓表面上是相異的兩種性質，但是本質上都是空，並沒有什麼不同。
佛家講究『四大皆空』，四大是印度文化，指的是「地大、水大、火大、風大」，以「地、水、火、風」四種元素，泛指世間的一切事物。(古中國講的是「木、火、土、金、水」五行；古印度講的是「地、水、火、風」；古希臘講的是「土、水、火、空氣」。)
所以從『四大皆空』的角度來說，空的本質是空，圓的本質也是空，那麼執著於空跟圓的不同，就跟執著我相人相一樣，都是迷迷糊糊的。懵懂，心裡不明白。
*生亦何歡，死亦何奪？為善除惡，能光明教，喜樂悲愁，皆歸塵土。憐我世人，憂患實多，憐我世人，憂患實多！
這一段跟我記得的有點出入，不過沒關係。
「生亦何歡，死亦何奪？」生有什麼好高興的？死又奪去了我們什麼？
如果破除了『我執』，進入了『無壽者相』的境界，自然在心境上就超越了生死。
「為善除惡，惟光明故。」做善事、除惡事，都是因為我對光明神的信仰。
在超越了生死之外，也超越了善惡的分別，而一切都歸依在光明神的信仰之中。光明，這裡有兩種說法，一個是指古波斯祆教的火神；另一個也是源自波斯一帶的摩尼教的主神摩尼，摩尼有光明的意思。一般認為摩尼教的主神摩尼，是傳自阿拉伯，與伊斯蘭教的真主阿拉、猶太教的主神耶和華是同一位，但更可能的，摩尼應該是結合了伊斯蘭的真主阿拉與古祆教的火神所誕生的一種信仰。
「喜樂悲愁，皆歸塵土。憐我世人，憂患實多。」喜樂悲愁，是人的四種情緒，這裡泛指人的一切情緒。皆歸塵土，表示它們的重要性就像塵土一樣，這裡指超越了各種情緒。
在超越了生死，超越了善惡，超越了喜樂悲愁，一切歸於光明之後，仍留下了一種心態，就是『憐』。憐什麼？憐世人的憂患仍多，這是一種類似佛家的『慈悲為懷』。
自己的憂患算不了什麼，但是仍在意世人的憂患，這是一種類似布袋和尚的『放下』與『背起』，『放下』是放下自己的一切，『背起』是背起世人的一切。
*事情推物理，人生貴適意。想人間造物搬興廢，吉藏凶，凶藏吉。富貴那能常富貴？日盈昃，月滿虧蝕。地下東南，天高西北，天地尚無完體。展放愁眉，休爭閒氣，今日容顏，老於昨日。古今往來，盡需如此，管他閒的愚的，貧的和富的。到頭這一身，難逃那一日。受用了一朝，一朝便宜。百歲光陰，七十者稀。急急流年，滔滔逝水。
「事情推物理，人生貴適意。」從事情的演進可以推演事物的道理，因為道理總是蘊藏在事物的演進之中；而人生最重要的，就是心意的舒適，心如果被綁住了，就不舒適了。
「想人間造物搬興廢，吉藏凶，凶藏吉。富貴那能常富貴？」人間造物，指的是大自然，也就是道家所說的『造化』。興廢，興盛與衰亡。這裡用一個『搬』字，在《愚公移山》的故事裡，最後山是被大力神給搬走的。其實大力神，也暗喻著自然造化。在自然界中，造山運動固然可以從海裡升起一座山，而風與水的風化作用，也可以慢慢地讓一座山消失。因此「想人間造物搬興廢」，就是「想想，大自然的力量可以造成滄海變桑田，高山變平地，也可以造就一個王朝的興盛與衰亡。」
因此，人力有時而窮，吉凶又哪能輕易被人預知？所以吉藏凶，凶藏吉，遇到好事的時候，很可能其實這是壞事的開端，而在面對壞事的時候，很可能裡面其實藏著好事，這就是『塞翁失馬，焉知非福』的道理。所以人生無常，富貴哪能常富貴？富貴的時候要心懷感謝，並作好隨時失去富貴的心理準備。
「日盈昃，月滿虧蝕。」昃，日偏西的意思。日盈昃，太陽升到正午最高的時候，就開始向西方落下；月滿虧蝕，滿月時月亮最圓的一瞬間，月亮就開始虧蝕了。什麼是『最好』？往往『最好』兩字的意思就隱含了開始變壞。
「地下東南，天高西北，天地尚無完體。」古中國傳說，火神祝融與水神共工大戰，結果共工打輸了，一氣之下頭撞不周山，把不周山給撞斷了。不周山是天柱，撞斷以後天就塌了。女媧斬殺了一隻靈龜，用牠的腳代替不周山撐起了天，並煉五色石，把破掉的天補好。但是靈龜的腳所造的天柱與原來不周山的高度有差，因此從此以後天地就是西北高而東南低，河流也都向東流。「地下東南，天高西北」用的就是這個傳說。天地尚無完體，因為這個傳說，天地也是有缺陷的，不完美的，那麼人生又怎麼會完美呢？
「展放愁眉，休爭閒氣。」人在煩惱不開心的時候，眉頭是皺起來的。展放愁眉就是叫人把皺著的眉頭放開，不要不開心。既然人生不完美，就不要太執著在這個上面，不要煩惱太多，也不要爭執一些不必要的事情。閒，不必要的。氣，爭執。
「今日容顏，老於昨日。」指時光流逝是不可逆的，今天一定比昨天老。
「古今往來，盡需如此。」從古到今，都是同樣的這個道理。
「管他賢的愚的，貧的和富的。」不管是聰明的還是笨的，貧窮的還是有錢的，這個道理放在他們身上，也是一樣不變的。
「到頭這一身，難逃那一日。」那一日，指死亡的那一天，人都一定會死。
「受用了一朝，一朝便宜。」因為人都會有死的一天，現在馬上死了也是可能的。所以多享受了一天，等於就是多賺到了一天。
「百歲光陰，七十者稀。」古中國人認為，人的天年是120-180歲，善養生者，大多壽過百歲。唐代名醫孫思邈，傳說活了一百四十多歲。古中國人認為，活不到天年的，都稱為「夭折」，也有稱作「中道夭」，就是活一半就死掉的意思。但是古話有云：「人生七十古來稀。」，所以「百歲光陰，七十者稀。」雖然說人的天年是百歲，但是活超過七十歲的實際上很少。意思是指吉藏凶、凶藏吉，世事難預料，總有不完美的意外發生，也呼應了上一句，受用了一朝，一朝便宜。
「急急流年，滔滔逝水。」最後以時光飛逝如流水，一去不回作結尾。
＊ 事情推物理，人生貴適意。想人間造物搬興廢，吉藏凶，凶藏吉。富貴那能常富貴？日盈昃，月滿虧蝕。地下東南，天高西北，天地尚無完體。展放愁眉，休爭閒氣，今日容顏，老於昨日。古今往來，盡需如此，管他閒的愚的，貧的和富的。到頭這一身，難逃那一日。受用了一朝，一朝便宜。百歲光陰，七十者稀。急急流年，滔滔逝水。」
＊ 「無我相，無人相，無眾生相，無壽者相。」
＊ 空故是空，圓亦是空。我相人相，好不懵懂。
＊ 生亦何歡，死亦何奪？為善除惡，能光明教，喜樂悲愁，皆歸塵土。 憐我世人，憂患實多，憐我世人，憂患實多！
================================================================
*「無我相，無人相，無眾生相，無壽者相。」
這一句是出自《金剛經》。《金剛經》是一部介紹大智慧的經典，在裡面，須菩提長老向佛陀提問：「云何應住，云何降伏其心？」(我們的心應該停住在何處？當我們的心浮燥不止的時候，又該如何降伏它？)此時佛陀給出的回答就是『不要執著於表相』，佛陀將相大致上分成四種，分別是我相、人相、眾生相、壽者相。
我相，就是執著於我。小時候對於玩具，執著於『這是我的』，別人想拿去玩我們會生氣。長大後這個執著會更放大及於身旁的許多事物，得到了、順心了，就高興；失去了，不順利，就難過生氣。無我相就是希望能放下對於『我』這個概念的執著。
人相，就是執著於人我的分際。工作上被上司指責，我們會對上司心裡不滿；情感上受創，我們會怪對方為什麼不懂我們的感情；面對子女，我們又常常將自己的期望強加在子女身上，而忘記子女本身的情緒。因此人與人之間爭執不斷。無人相就是希望我們能『超越人我之間的分別』，用現代的話來話，就是『將心比心，換位思考』。
眾生相，就是人相的進一步擴充，從原本的『你-我』，擴大到『你-我-他』，再進一步推到萬事萬物。例如我不喜歡被欺負，因此我體會到被欺負的人的心情，而不去欺負別人，更進一步思考到小貓小狗也是生命，不應該欺負牠們，再更進一步體會到玩偶、玩具(如胡迪、巴斯)需要好好愛惜。因此無眾生相，用現代的話來說，就是『推己及人，一視同仁』。
壽者相，就是人對生死的態度。一般人都是貪生怕死，這是人之常情。無壽者相就是希望我們能破除這種對生命的『貪戀』。愛惜生命是正確的，但是過度就不好了。例如臨終之時猶放不下，各式急救、電擊，硬是要把本來已死之人的生命延長個一、兩小時，除了增加痛苦之外，並沒有什麼實質上的好處。
我相、人相、眾生相、壽者相，其實歸根到底，這四者的源頭是相同的，就是佛家所說的『我執』。因此佛陀希望人不要執著在這種表相之上。
*空故是空，圓亦是空。我相人相，好不懵懂。
從「無我相，無人相，無眾生相，無壽者相」下來，我們就可以知道，空固然是一種相，圓也是一種相，空跟圓表面上是相異的兩種性質，但是本質上都是空，並沒有什麼不同。
佛家講究『四大皆空』，四大是印度文化，指的是「地大、水大、火大、風大」，以「地、水、火、風」四種元素，泛指世間的一切事物。(古中國講的是「木、火、土、金、水」五行；古印度講的是「地、水、火、風」；古希臘講的是「土、水、火、空氣」。)
所以從『四大皆空』的角度來說，空的本質是空，圓的本質也是空，那麼執著於空跟圓的不同，就跟執著我相人相一樣，都是迷迷糊糊的。懵懂，心裡不明白。
*生亦何歡，死亦何奪？為善除惡，能光明教，喜樂悲愁，皆歸塵土。憐我世人，憂患實多，憐我世人，憂患實多！
這一段跟我記得的有點出入，不過沒關係。
「生亦何歡，死亦何奪？」生有什麼好高興的？死又奪去了我們什麼？
如果破除了『我執』，進入了『無壽者相』的境界，自然在心境上就超越了生死。
「為善除惡，惟光明故。」做善事、除惡事，都是因為我對光明神的信仰。
在超越了生死之外，也超越了善惡的分別，而一切都歸依在光明神的信仰之中。光明，這裡有兩種說法，一個是指古波斯祆教的火神；另一個也是源自波斯一帶的摩尼教的主神摩尼，摩尼有光明的意思。一般認為摩尼教的主神摩尼，是傳自阿拉伯，與伊斯蘭教的真主阿拉、猶太教的主神耶和華是同一位，但更可能的，摩尼應該是結合了伊斯蘭的真主阿拉與古祆教的火神所誕生的一種信仰。
「喜樂悲愁，皆歸塵土。憐我世人，憂患實多。」喜樂悲愁，是人的四種情緒，這裡泛指人的一切情緒。皆歸塵土，表示它們的重要性就像塵土一樣，這裡指超越了各種情緒。
在超越了生死，超越了善惡，超越了喜樂悲愁，一切歸於光明之後，仍留下了一種心態，就是『憐』。憐什麼？憐世人的憂患仍多，這是一種類似佛家的『慈悲為懷』。
自己的憂患算不了什麼，但是仍在意世人的憂患，這是一種類似布袋和尚的『放下』與『背起』，『放下』是放下自己的一切，『背起』是背起世人的一切。
*事情推物理，人生貴適意。想人間造物搬興廢，吉藏凶，凶藏吉。富貴那能常富貴？日盈昃，月滿虧蝕。地下東南，天高西北，天地尚無完體。展放愁眉，休爭閒氣，今日容顏，老於昨日。古今往來，盡需如此，管他閒的愚的，貧的和富的。到頭這一身，難逃那一日。受用了一朝，一朝便宜。百歲光陰，七十者稀。急急流年，滔滔逝水。
「事情推物理，人生貴適意。」從事情的演進可以推演事物的道理，因為道理總是蘊藏在事物的演進之中；而人生最重要的，就是心意的舒適，心如果被綁住了，就不舒適了。
「想人間造物搬興廢，吉藏凶，凶藏吉。富貴那能常富貴？」人間造物，指的是大自然，也就是道家所說的『造化』。興廢，興盛與衰亡。這裡用一個『搬』字，在《愚公移山》的故事裡，最後山是被大力神給搬走的。其實大力神，也暗喻著自然造化。在自然界中，造山運動固然可以從海裡升起一座山，而風與水的風化作用，也可以慢慢地讓一座山消失。因此「想人間造物搬興廢」，就是「想想，大自然的力量可以造成滄海變桑田，高山變平地，也可以造就一個王朝的興盛與衰亡。」
因此，人力有時而窮，吉凶又哪能輕易被人預知？所以吉藏凶，凶藏吉，遇到好事的時候，很可能其實這是壞事的開端，而在面對壞事的時候，很可能裡面其實藏著好事，這就是『塞翁失馬，焉知非福』的道理。所以人生無常，富貴哪能常富貴？富貴的時候要心懷感謝，並作好隨時失去富貴的心理準備。
「日盈昃，月滿虧蝕。」昃，日偏西的意思。日盈昃，太陽升到正午最高的時候，就開始向西方落下；月滿虧蝕，滿月時月亮最圓的一瞬間，月亮就開始虧蝕了。什麼是『最好』？往往『最好』兩字的意思就隱含了開始變壞。
「地下東南，天高西北，天地尚無完體。」古中國傳說，火神祝融與水神共工大戰，結果共工打輸了，一氣之下頭撞不周山，把不周山給撞斷了。不周山是天柱，撞斷以後天就塌了。女媧斬殺了一隻靈龜，用牠的腳代替不周山撐起了天，並煉五色石，把破掉的天補好。但是靈龜的腳所造的天柱與原來不周山的高度有差，因此從此以後天地就是西北高而東南低，河流也都向東流。「地下東南，天高西北」用的就是這個傳說。天地尚無完體，因為這個傳說，天地也是有缺陷的，不完美的，那麼人生又怎麼會完美呢？
「展放愁眉，休爭閒氣。」人在煩惱不開心的時候，眉頭是皺起來的。展放愁眉就是叫人把皺著的眉頭放開，不要不開心。既然人生不完美，就不要太執著在這個上面，不要煩惱太多，也不要爭執一些不必要的事情。閒，不必要的。氣，爭執。
「今日容顏，老於昨日。」指時光流逝是不可逆的，今天一定比昨天老。
「古今往來，盡需如此。」從古到今，都是同樣的這個道理。
「管他賢的愚的，貧的和富的。」不管是聰明的還是笨的，貧窮的還是有錢的，這個道理放在他們身上，也是一樣不變的。
「到頭這一身，難逃那一日。」那一日，指死亡的那一天，人都一定會死。
「受用了一朝，一朝便宜。」因為人都會有死的一天，現在馬上死了也是可能的。所以多享受了一天，等於就是多賺到了一天。
「百歲光陰，七十者稀。」古中國人認為，人的天年是120-180歲，善養生者，大多壽過百歲。唐代名醫孫思邈，傳說活了一百四十多歲。古中國人認為，活不到天年的，都稱為「夭折」，也有稱作「中道夭」，就是活一半就死掉的意思。但是古話有云：「人生七十古來稀。」，所以「百歲光陰，七十者稀。」雖然說人的天年是百歲，但是活超過七十歲的實際上很少。意思是指吉藏凶、凶藏吉，世事難預料，總有不完美的意外發生，也呼應了上一句，受用了一朝，一朝便宜。
「急急流年，滔滔逝水。」最後以時光飛逝如流水，一去不回作結尾。
麥克阿瑟為子祈禱文
麥克阿瑟將軍
主啊！
請陶冶我兒子，使他成為一個堅強的人，
能夠知道自己什麼時候是軟弱的；
|  |
使他成為一個勇敢的人，
能夠在畏懼的時候認清自己，謀求補救；使他在誠實的敗之中，
能夠自豪而不屈，在獲得成功之際，能夠謙遜而溫和。
請陶冶我的兒子，使他不要以願望代替實際作為；使他能夠認識主—
並且曉得自知乃是知識的基石。
我祈求你，不要引導他走上安逸舒適的道路，而要讓他遭受困難與挑
戰的磨鍊和策勵。讓他藉此學習在風暴之中挺立起來，讓他藉此學習
對失敗的人加以同情。
請陶冶我的兒子，使他的心地純潔，目標高超；在企圖駕馭他人之前，
先能駕馭自己；對未來善加籌畫，但是永不忘記過去。
在他把以上諸點都已做到之後，還要賜給他充分的幽默感，
使他可以永遠保持嚴肅的態度，但絕不自視非凡，過於拘執。
請賜給他謙遜，使他可以永遠記住真實偉大的樸實無華，真實智慧的
虛懷若谷，和真實力量的溫和蘊藉。
然後，作為他的父親的我，才敢低聲說道：「我已不虛此生！」
========================================
A Father's Prayerby General Douglas MacArthur
Build me a son, O Lord, who will be strong enough to know when
he is weak, and brave enough to face himself when he is afraid;
one who will be proud and unbending in honest defeat, and
humble and gentle in victory.
Build me a son whose wishbone will not be where his backbone
should be; a son who will know Thee and that to know himself is
the foundation stone of knowledge.
Lead him, I pray, not in the path of ease and comfort, but under the
stress and spur of difficulties and challenge. Here let him learn to
stand up in the storm; here let him learn compassion for those who
fail.
Build me a son whose heart will be clean, whose goal will be high;
a son who will master himself before he seeks to master other men;
one who will learn to laugh, yet never forget how to weep; one who
will reach into the future, yet never forget the past.
And after all these things are his, add, I pray, enough of a sense of
humor, so that he may always be serious, yet never take himself
too seriously. Give him humility, so that he may always remember
the simplicity of greatness, the open mind of true wisdom, the
meekness of true strength.
Then I, his father, will dare to whisper, "I have not lived in vain".
Delphi Function 中文說明函式及簡要範例
Delphi Function 中文說明函式及簡要範例
▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
======================================================================
數學函數 (Arithmetic Routines)
Unit: System
======================================================================
Abs 傳回參數的絕對值。 function Abs(X);
ArcTan 傳回正切函數的反函數值。 function ArcTan(X: Real): Real;
Cos 傳回餘弦函數值 function Cos(X: Real): Real;
(X 以弧度為單位)。
Exp 傳回自然指數值。 function Cos(X: Real): Real;
Frac 傳回參數的小數部份。 function Frac(X: Real): Real;
Int 傳回參數的整數部份。 function Int(X: Real): Real;
Ln 傳回自然對數值。 function Ln(X: Real): Real;
Pi 傳回圓周率π的值。 function Pi: Real;
Sin 傳回正弦函數值。 function Sin(X: Real): Real;
Sqr 傳回參數的平方。 function Sqr(X: Real): (Real);
Sqrt 傳回參數的平方根。 function Sqrt(X: Real): Real;
===========================================================================
控制台函數 (Console Routines)
===========================================================================
Unit: WinCrt
函數名稱 函數說明 函數語法
===========================================================================
AssignCrt 將文字檔連結到一個控制台視窗。 procedure AssignCrt(var f: Text);
ClrEol 清附游標位置到該行最後的所有字元。procedure ClrEol;
ClrScr 清附螢幕並重置游標至左上角。 procedure ClrScr;
CursorTo 移動游標至給定座標。 procedure CursorTo(X, Y:Integer);
DoneWinCrt 結束控制台視窗。 procedure DoneWinCrt;
GotoXY 移動游標至給定座標。 procedure GotoXY(X, Y: Byte);
InitWinCrt 建立控制台視窗。 procedure InitWinCrt;
KeyPressed 判斷是否有一按鍵。 function KeyPressed:Boolean;
ReadBuf 從控制台視窗讀入一行。
function ReadBuf(Buffer: Pchar;Count: Word):
ReadKey 讀取按鍵字元。 function ReadKey: Char;
ScrollTo 捲動控制台視窗至顯示位置。 procedure ScrollTo(X, Y: Integer);
TrackCursor 捲動控制台視窗宜到游標可見。procedure TrackCursor;
WhereX 傳回游標的X 座標。 function WhereX: Byte;
WhereY 傳回游標的Y 標標。 function WhereY: Byte;
WriteBuf 寫入一區塊字元到控制台視窗。 procedure WriteBuf
WriteChar 寫一個字元到控制台視窗。 procedure WriteChar(CH: Char);
=================================================
日期與時間函數 (Date and Time Routines)
Unit: SysUtils
========================================
Date 傳回今天日期。function Date: TDateTime;
DateTimeToStr 將時間格式轉為字串。function DateTimeToStr(DateTime: TDateTime):String;
DateTimeToString 將時間格式轉為字串。
procedure DateTimeToString(var Result: string;const Format: string;DateTime: TDateTime);
DateToStr 將日期格式轉為字串。function DateToStr(Date: TDateTime): String;
DayOfWeek 傳回今天星期幾。function DayOfWeek(Date: TDateTime): Integer;
DecodeDate 分解所指定的日期為年、月、日。
procedure DecodeDate(Date: TDateTime;var Year, Month, Day:Word);
DecodeTime 分解所指定的日期為時、分、秒。
procedure DecodeTime(Time: TDateTime;var Hour, Min, Sec,MSec: Word);
EncodeDate 傳回將年、月、日所組合的日期格式。
function EncodeDate(Year, Month, Day: Word):TDateTime;
EncodeTime 傳回將時、分、秒所組合的時間格式。
function EncodeTime(Hour, Min, Sec, MSec:Word): TDateTime;
FormatDateTime 以指定的格式傳回日期時間。
function FormatDateTime(const Format: string;DateTime: TDateTime):String;
Now 傳回現在的日期時間。function Now: TDateTime;
StrToDate 將字串轉為日期格式。function StrToDate(const S:string): TDateTime;
StrToDateTime 將字串轉為日期時間格式
function StrToDateTime(const S: string): TDateTime;
StrToTime 將字串轉為時間格式。function StrToTime(const S:string): TDateTime;
Time 傳回現在時間。function Time: TDateTime;
TimeToStr 將時格式轉為字串。function TimeToStr(Time:TDateTime): String;
========================================
動態配置函數(Dynamic Allocation Routines)
Unit: System
========================================
Dispose 釋回一個動態變數。procedure Dispose(var P: Pointer);
Free 釋放一個物件複本。procedure Free;
FreeMem 釋回一給定大小的動態變數。
procedure FreeMem(var P:Pointer; Size: Word);
GetMem 建立一個指定大小的動態變數，並由Pointer 參數傳回位址。
procedure GetMem(var P:Pointer; Size: Word);
New 建立一個新的動態變數，並將Pointer 參數指向它。
procedure New(var P: Pointer);
function New():Pointer;
MaxAvail 傳回連續最大的可配置空間。function MaxAvail: Longint;
MemAvail 傳回所有的可配置空間。function MemAvail: Longint;
========================================
檔案管理函數
Unit: SysUtils
========================================
ChangeFileExt 變更檔案的延伸檔名。
function ChangeFileExt(const FileName,Extension: string):string;
DateTimeToFileDate 將Delphi 的日期格式轉換為DOS的日期格式。
functionDateTimeToFileDate(DateTime:TDateTime): Longint;
DeleteFile 刪除一個檔案。
function DeleteFile(const FileName: string):Boolean;
DiskFree 傳回磁碟的可用空間。function DiskFree(Drive: Byte): Longint;
DiskSize 傳回指定磁碟的容量大小。function DiskSize(Drive: Byte): Longint;
ExpandFileName 傳回一個完整的路徑及檔名字串。
function expandFileName(const FileName: string):string;
ExtractFileExt 傳回檔案的延伸檔名。
function ExtractFileExt(const FileName string):string;
ExtractFileName 傳回檔案的檔名。
function ExtractFileName(const FileName: string):string;
ExtractFilePath 傳回檔案的路徑。
function ExtractFilePath(const FileName: string):string;
FileAge 傳回檔案的年紀function FileAge(const FileName: string):Longint;
FileCreate 以指定檔名建立一個檔案。
function FileCreate(const FileName: string):Integer;
FileClose 關閉指定的檔案。procedureFileClose(Handle: Integer);
FileDateToDateTime 將DOS 的日期格式轉為Delphi 的日期格式。
function FileDateToDateTime(FileDate: Longint):TDateTime;
FileExists 判別檔案是否存在。function FileExists(const FileName: string):Boolean;
FileGetAttr 傳回檔案屬性。function FileGetAttr(const FileName: string):Integer;
FileGetDate 傳回檔案的日期及時間。function FileGetDate(Handle: Integer): Longint;
FileRead 從指定的檔案讀入資料。
function FileRead(Handle:Integer; var Buffer;Count:Longint):Longint;
FileSearch 在目錄列中搜尋指定的檔案。
function FileSearch(constName, DirList: string):string;
FileSeek 改變檔案游標的位置。
function FileSeek(Handle: Integer;Offset: Longint;Origin: Integer):Longint;
FileSetAttr 設定檔案屬性。
function FileSetAttr(const FileName: string;Attr:Integer): Integer;
FileSetDate 設定檔案的日期及時間。
procedure FileSetDate(Handle: Integer; Age:Longint);
FileOpen 開啟檔案。
function FileOpen(const FileName: string; Mode:Word): Integer;
FileWrite 寫資料到檔案。
function FileWrite(Handle:Integer;const Buffer; Count:Longint): Longint;
FindClose 終止找尋第一個／下一個的動作。
procedure FindClose(var SearchRec: TSearchRec);
FindFirst 尋找第一個符合的檔案並設定其屬性。
function FindFirst(const Path: string;Attr: Word; var F:TSearchRec): Integer;
FindNext 傳回下一個符合的檔案。function FindNext(var F:TSearchRec): Integer;
RenameFile 變更檔名。function RenameFile(const OldName,NewName: string):Boolean;
========================================
浮點數轉換函數 (Floating-point Conversion Routines)
Unit: SysUtils
========================================
FloatToDecimal 將浮點數值分成小數及整數部份的數字傳回。
procedure FloatToDecimal(var Result: TFloatRec;Value:Extended;Precision, Decimals:Integer);
FloatToStrF 依照指定格式將浮點數轉成字串描述。
function FloatToStrF(Value: Extended; Format:TFloatFormat;Precision,Digits: Integer): string;
FloatToStr 將浮點數轉成字串描述。function FloatToStr(Value: Extended): string;
FloatToText 將所給的浮點數值，分成小數及整數部份的數字依照格式傳回。
function FloatToText(Buffer: Pchar; Value:Extended;Format:TFloatFormat;Precision,Digits: Integer): Integer;
FloatToTextFmt 將浮點數依照格式轉成字串傳回。
function FloatToTextFmt(Buffer: PChar; Value:Extended;Format: PChar) :Integer;
FormatFloat 將浮點數值依照Format 格式傳回。
function FormatFloat(constFormat: string;Value:Extended):string;
StrToFloat 將所給字串轉成一個浮點數值。
function StrToFloat(const S: string): Extended;
TextToFloat 將一個null 結尾字串轉成浮點數值
function TextToFloat(Buffer: PChar;var Value:Extended): Boolean;
========================================
流程控制函數 (Flow-control Routines)
Unit: System
========================================
Break 終止迴圈。如for, while 及repeat 迴圈。
procedure Break;
Continue 繼續迴圈。如for, while 及repeat 迴圈。
procedure Continue;
Exit 離開目前的區塊。procedure Exit;
Halt 停止程式的執行並回到作業系統。
procedure Halt[ ( Exitcode: Word ) ];
RunError 停止程式執行。procedure RunError[ ( Errorcode: Byte ) ];
========================================
輸出入函數 (I/O Routines)
Unit: System
========================================
AssignFile 指定一個檔案到檔案變數。procedure AssignFile(var f, String);
CloseFile 關閉檔案。procedure CloseFile(var F);
Eof 判斷是否已到檔案結尾。
Typed or untyped files:
functionEof(var F): BooleanText files:function Eof [ (var F: Text) ]:Boolean;
Erase 清除檔案內容。procedure Erase(var F);
FilePos 傳回目前檔案游標位置。function FilePos(var F): Longint;
FileSize 傳回檔案的大小function FileSize(var F):Longint;
GetDir 傳回指定磁碟的工作目錄。procedure GetDir(D: Byte; var S: String);
IOResult 傳回最後I/O 執行的狀態。function IOResult: Integer;
MkDir 建立一子目錄。procedure MkDir(S: String);
Rename 變更外部檔案的檔名。procedure Rename(var F; Newname);
Reset 開啟一個已存在的檔案。procedure Reset(var F [: File; Recsize: Word ] );
Rewrite 建立並開啟一個新檔。procedure Rewrite(var F: File [; Recsize: Word ] );
RmDir 刪除一個空目錄。procedure RmDir(S: String);
Seek 移動檔案游標。procedure Seek(var F; N: Longint);
Truncate 刪截目前位置以後的檔案內容。procedure Truncate(var F);
========================================
記憶體管理函數 Memory-management Routines)
Unit: SysUtils
========================================
AllocMem 配置一個記憶體區塊給堆積heap 。
function AllocMem(Size: Cardinal): Pointer;
ReAllocMem 從堆積釋回一區塊。
function ReAllocMem(P: Pointer;CurSize, NewSize:Cardinal): Pointer;
========================================
雜項函數 (Miscellaneous Routines)
Unit: System, SysUtils
========================================
AddExitProc 加入一個程序到執行時期程式庫的出口程序列中。
procedure AddExitProc(Proc: TProcedure);
Exclude 從一個集合除去一個元素。procedure Exclude(var S: set of T;I:T);
FillChar 以一個字元填入指定個數到一個變數上。
procedure FillChar(var X; Count: Word; value);
Hi 傳回參數的高位元組。function Hi(X): Byte;
Include 將元素包含到集合內。procedure Include(var S: set of T; I:T);
Lo 傳回參數的低位元組。function Lo(X): Byte;
Move 從Source 複製Count 個數的位元組到Dest 。
procedure Move(varSource,Dest; Count: Word);
ParamCount 傳回命令列參數的個數。function ParamCount: Word;
ParamStr 傳回一個指定的命令列參數。function ParamStr(Index): String;
Random 傳回一個隨機亂數。function Random[ ( Range: Word) ];
Randomize 初值化亂數產生器。procedure Randomize;
SizeOf 傳回參數所佔位元組數。function SizeOf(X): Word;
Swap 將參數的高位元組和低位元組交換。function Swap(X);
TypeOf 傳回指向物件型態的虛擬方法表的指標。function TypeOf(X) : Pointer
UpCase 將字元轉為大寫。function UpCase(Ch: Char):Char;
========================================
次序函數 (Ordinal Routines)
Unit: System
========================================
Dec 遞減一個變數。procedure Dec(var X[ ; N:Longint]);
Inc 遞增一個變數procedure Inc(var X[ ; N:Longint ] );
Odd 判別式否為奇數。function Odd(X: Longint):Boolean;
Pred 傳回參數的前任者。function Pred(X);
Succ 傳回參數的後繼者。function Succ(X);
========================================
指標和位址函數 (Pointer and Address Routines)
Unit: System
========================================
addr 傳回指定物件的位址。function Addr(X): pointer;
Assigned 判斷是否一個函數或程序是nil
function Assigned(var P):Boolean;
CSeg 傳回CS 程式段暫存器的內容。function CSeg: Word;
DSeg 傳回DS 資料段暫存器的內容。function DSegt: Word;
Ofs 傳回參數的偏移位址。function Ofs(X): Word;
Ptr 將所指定的節段及偏移位址組合到一個指標。function Ptr(Seg, Ofs: Word):Pointer;
Seg 傳回參數的節段位址。function Seg(X): Word;
SPtr 傳回SP 堆疊存器的內容。function SPtr: Word;
SSeg 傳回SS 堆疊段暫存器的內容。function SSeg: Word;
========================================
字串格式函數 (String-formatting Routines)
Unit: SysUtils
========================================
FmtStr 將所列參數依照Format 的格式組合到Result 字串傳回。
procedure FmtStr(var Resut: string; const Format:string;const Args: array of const);
Format 將所列參數依照Format 的格式組合到Pascal 格式字串傳回。
fonction Format(const Format: string;const Args:array of const): string;
FormatBuf 格式化所列的參數。
function FormatBuf(var Buffer; BufLen: Word;const Format;
FmtLen:Word;Const Args: array of const):Word;
StrFmt 格式化所列的參數。function StrFmt(Buffer,
Format: PChar;const Args: array of const):PChar;
StrLFmt 格式化所列參數，並將結果指向Buffer 指標。
function StrLFmt(Buffer: PChar; MxLen: Word;Format:
PChar;const Args: array of const):PChar;
========================================
字串處理函數(String-handling Routines :Pascal-style)
Unit: SystUtils
========================================
AnsiCompareStr 比較兩個字串。function AnsiCompareStr(const S1, S2: string):Integer;
AnsiCompareText 比較兩個字串且無大小寫區別。
function AnsiCompareText(const S1, S2: string):Integer;
AnsiLowerCase 將字串內容轉為小寫。function AnsiLowerCase(const S: string): string;
AnsiUpperCase 將字串內容轉為大寫。function AnsiUpperCase(const S: string): string;
AppendStr 將所給字串連接到Dest 字串後面。
procedure AppendStr(var Dest: string; const S:string);
AssignStr 配置記憶體空間給字串。
procedure AppendStr(var P: PString; const S:String);
CompareStr 比較兩個字串。
function CompareStr(const S1,S2: string):Integer;
CompareText 比較兩個字串且無大小寫區別。
function CompareText(const S1, S2: String):Integer;
Concat 連結所列字串。function Concat(s1 [, s2,… , sn]: String):String;
Copy 傳回字串的部份字串內容。function Copy(S: String; Index, Count:Integer): String;
Delete 刪除所給字串內的子字串。procedure Delete(var S: String; Index,Count:Integer);
DisposeStr 釋回字串佔用的空間。procedure DisposeStr(P: PString);
FmtLoadStr 從程式的資源字串表中載入一個字串。
function FmtLoadStr(Ident: Word;const Args: array of const): string;
Insert 在一個字串內插入一個子字串
procedure Insert(Source: String; var S: String;Index: Integer);
IntToHex 將一個整數轉為十六進位。
function IntToHex(Value: Longint; Digits:Integer): string;
IntToStr 將數字轉成字中格式。function IntToStr(Value: Longint): string;
IsValidIdent 判別字串內容是否為正確的識別字。
function IsValidIdent(const Ident: string):Boolean;
Length 傳回字串的長度。function Length(S: String): Integer;
LoadStr 從應用程式的可執行檔中載入一個字串資源。
function LoadStr(Ident: Word): string;
LowerCase 將字串轉成小寫。function LowerCase(const S: string): string;
NewStr 從堆積配置一個字串空間。function NewStr(const S: string): PString;
Pos 傳回子字串在字串中的位置。function Pos(Substr: String; S: String):
Str 將數值轉為字串。procedure Str(X [: Width [: Decimals ]];var S);
StrToInt 將字串轉為整數值。function StrToInt(const S: string): Longint;
StrToIntDef 將字串轉整數值或預設值。
function StrToIntDef(const S: string; Default:Longint): Longint;
Uppercase 將字串轉成大寫。function UpperCase(const S: string): string;
val 將字串內容轉為數值描述。procedure Val(S; var V; var Code: Integer);
========================================
字串處理函數 (String-handling Routines : Null-terminated)
Unit: SysUtils
========================================
StrAlloc 配置一個最大長度為Size-1 的緩衝區給null 結尾字串
function StrAlloc(Size: Word): PChar;
StrBufSize 傳回由StrAlloc 配置的字串緩衝區內可以儲存的最大字元數。
function StrBufSize(Str: PChar): Wrd;StrCat 連結兩個字串並傳回該字串。
function StrCat(Dest, Source: PCar): PChar;
StrComp 比照兩個字串。function StrComp(Str1, Str2 : Pchar): Integer;
StrCopy 拷貝Source 字串到Dest 上。function StrCopy(Dest, Source: PChar): PChar
StrDispose 釋回一個字串空間。function StrDispose(Str:PChar);
StrCopy 拷貝Source 字串到Dest 上並傳回指向該字串結尾的指標。
function StrECopy(Dest, Surce: Pchar): Pchar;
StrEnd 傳回一指標指向字串的結尾function StrEnd(Str: Pchar): Pchar;
StrLCat 將Source 字串連結到Dest 字串後，並傳回連結的字串。
function StrLCat(Dest, Source:PCar; MaxLen: Word): PChar;
StrIComp 比較兩個字串具無大小寫區別
function StrIComp(Str1, Str2:Pchar): Integer;
StrLComp 比較兩個字串到所指定的最大長度
function StrLComp(Str1, Str2:Pchar; MaxLen: Word): Integer;
StrLCopy 從一字串拷貝指定字元數到另一字串
Function StrLCopy(Dest,Source:PChar;MaxLen: Cardinal): PChar;
StrLen 傳回字串的長度。function StrLen(Str: PChar):Cardinal;
StrLIComp 比較兩個字串到所指定的最大長度具無大小寫區別。
function StrLIComp(Str1, Str2:PChar; MaxLen: Word):Integer;
StrLower 將字串轉成小寫。
function StrLower(Str: PChar):PChar;
StrMove 拷貝Count 字元數，從Source 到Dest字串。
function StrMove(Dest, Source:PChar; Count: Cardinal): PChar
StrNew 從堆積配置一個字串。function StrNew(Str: PChar):PChar;
StrPas 將null 結尾字中轉成一個Pascal 格式字串。
function StrPas(Str: Pchar):String;
StrPCopy 拷貝一個Pascal 格式字串到一個null結尾字串。
Function StrPCopy(Dest:PChar;Source: String): PChar;
StrPLCopy 拷貝MaxLen 所指字元數，從Pascal格式字串到null 結尾字串。
Function StrPLCopy(Dest:Pchar;cost Source: string;MaxLen: Word): PChar;
StrPos 傳回一指標指向在Str1 內最先出現 Str2 字串的位置。
function StrPos(Str1, Str2: Pchar): Pchar;
StrScan 傳回一指標指向在Str 字串中第一個出現chr 字元的位置。
function StrScan(Str: PChar; Chr: Char): PChar;
StrRScan 傳回一指標指向在Str 子串中最後出現chr 字元的位置。
function StrRScan(Str: Pchar; Chr: Char): PChar;
StrUpper 將字串轉成大寫。function StrUpper(Str: PChar):PChar;
========================================
文字檔案函數 (Text-file Routines)
Unit: System
========================================
Append 開啟一個存在的檔案供增加。procedure Append(var f: Text);
Eoln 判別一文字檔是否在行尾。function Eoln [(var F: Text) ]:Boolean;
Flush 清除文字輸出檔的緩衝區。procedure Flush(var F: Text);
Read 從檔案讀入資料到所列變數。Typed files:
Procedure Read(F , V1[, V2,… ,Vn ] );Text files:
procedure Read( [ var F: Text; ] V1 [,V2,… ,Vn]);
Readln 從檔案讀入資料到所列變數並跳至下一行。
procedure Readln( [ var F:Text; ]V1 [, V2,… ,Vn ]);
SeekEof 判別是否已到檔尾。function SeekEof [ ( var F:Text) ]: Boolean;
SeekEoln 判別一檔案是否在行尾。function SeekEoln [(var F: Text) ]: Boolean;
SetTextBuf 指定一個I/O 緩衝區給一文字檔。
procedure SetTextBuf(var F: Text; var Buf [ ; Size:Word ] );
Write 將變數內的資料寫到檔案。Text files:
procedure Write( [ var F:Text; ] P1 [,P2,… ,Pn ] );
Typed files:
procedure Write(F, V1[V2,… Vn]);
writeln 執行Write 程序並輸出一個跳行到檔案。
procedure Writeln([ var F: Text; ] P1 [, P2,… ,Pn ] );
========================================
轉換函數(Transfer Routines)
Unit: System
========================================
Chr 傳回ASCII 碼所對應的字元。function Chr(X: Byte): Char;
Delphi 源碼任務 ( http://home.kimo.com.tw/bruce0211/ ) 打字整理15
High 傳回參數在範圍內的最高值。function High(X);
Low 傳回參數在範圍內的最低值。function Low(X);
Ord 傳回一個有序型態所對應的順序值。function Ord(X): Longint;
Round 將一個實數值四捨五入而傳回整數值。function Round(X: Real):Longint;
Trunc 將一個實數值去尾而傳回整數值。function Trunc(X: Real):Longint;
========================================
未定型態檔案函數(Untyped-file Routines)
Unit: System
========================================
BlockRead 從檔案讀入一個或數個記錄到Buf 變數。
procedure BlockRead(var F: File; var Buf;Count: Word [; var Result:Word]);
BlockWrite 從一變數寫入一個或數個記錄。
procedure BlockWrite(var f: File; var Buf;Count: Word [; var Result:Word]);
▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
======================================================================
數學函數 (Arithmetic Routines)
Unit: System
======================================================================
Abs 傳回參數的絕對值。 function Abs(X);
ArcTan 傳回正切函數的反函數值。 function ArcTan(X: Real): Real;
Cos 傳回餘弦函數值 function Cos(X: Real): Real;
(X 以弧度為單位)。
Exp 傳回自然指數值。 function Cos(X: Real): Real;
Frac 傳回參數的小數部份。 function Frac(X: Real): Real;
Int 傳回參數的整數部份。 function Int(X: Real): Real;
Ln 傳回自然對數值。 function Ln(X: Real): Real;
Pi 傳回圓周率π的值。 function Pi: Real;
Sin 傳回正弦函數值。 function Sin(X: Real): Real;
Sqr 傳回參數的平方。 function Sqr(X: Real): (Real);
Sqrt 傳回參數的平方根。 function Sqrt(X: Real): Real;
===========================================================================
控制台函數 (Console Routines)
===========================================================================
Unit: WinCrt
函數名稱 函數說明 函數語法
===========================================================================
AssignCrt 將文字檔連結到一個控制台視窗。 procedure AssignCrt(var f: Text);
ClrEol 清附游標位置到該行最後的所有字元。procedure ClrEol;
ClrScr 清附螢幕並重置游標至左上角。 procedure ClrScr;
CursorTo 移動游標至給定座標。 procedure CursorTo(X, Y:Integer);
DoneWinCrt 結束控制台視窗。 procedure DoneWinCrt;
GotoXY 移動游標至給定座標。 procedure GotoXY(X, Y: Byte);
InitWinCrt 建立控制台視窗。 procedure InitWinCrt;
KeyPressed 判斷是否有一按鍵。 function KeyPressed:Boolean;
ReadBuf 從控制台視窗讀入一行。
function ReadBuf(Buffer: Pchar;Count: Word):
ReadKey 讀取按鍵字元。 function ReadKey: Char;
ScrollTo 捲動控制台視窗至顯示位置。 procedure ScrollTo(X, Y: Integer);
TrackCursor 捲動控制台視窗宜到游標可見。procedure TrackCursor;
WhereX 傳回游標的X 座標。 function WhereX: Byte;
WhereY 傳回游標的Y 標標。 function WhereY: Byte;
WriteBuf 寫入一區塊字元到控制台視窗。 procedure WriteBuf
WriteChar 寫一個字元到控制台視窗。 procedure WriteChar(CH: Char);
=================================================
日期與時間函數 (Date and Time Routines)
Unit: SysUtils
========================================
Date 傳回今天日期。function Date: TDateTime;
DateTimeToStr 將時間格式轉為字串。function DateTimeToStr(DateTime: TDateTime):String;
DateTimeToString 將時間格式轉為字串。
procedure DateTimeToString(var Result: string;const Format: string;DateTime: TDateTime);
DateToStr 將日期格式轉為字串。function DateToStr(Date: TDateTime): String;
DayOfWeek 傳回今天星期幾。function DayOfWeek(Date: TDateTime): Integer;
DecodeDate 分解所指定的日期為年、月、日。
procedure DecodeDate(Date: TDateTime;var Year, Month, Day:Word);
DecodeTime 分解所指定的日期為時、分、秒。
procedure DecodeTime(Time: TDateTime;var Hour, Min, Sec,MSec: Word);
EncodeDate 傳回將年、月、日所組合的日期格式。
function EncodeDate(Year, Month, Day: Word):TDateTime;
EncodeTime 傳回將時、分、秒所組合的時間格式。
function EncodeTime(Hour, Min, Sec, MSec:Word): TDateTime;
FormatDateTime 以指定的格式傳回日期時間。
function FormatDateTime(const Format: string;DateTime: TDateTime):String;
Now 傳回現在的日期時間。function Now: TDateTime;
StrToDate 將字串轉為日期格式。function StrToDate(const S:string): TDateTime;
StrToDateTime 將字串轉為日期時間格式
function StrToDateTime(const S: string): TDateTime;
StrToTime 將字串轉為時間格式。function StrToTime(const S:string): TDateTime;
Time 傳回現在時間。function Time: TDateTime;
TimeToStr 將時格式轉為字串。function TimeToStr(Time:TDateTime): String;
========================================
動態配置函數(Dynamic Allocation Routines)
Unit: System
========================================
Dispose 釋回一個動態變數。procedure Dispose(var P: Pointer);
Free 釋放一個物件複本。procedure Free;
FreeMem 釋回一給定大小的動態變數。
procedure FreeMem(var P:Pointer; Size: Word);
GetMem 建立一個指定大小的動態變數，並由Pointer 參數傳回位址。
procedure GetMem(var P:Pointer; Size: Word);
New 建立一個新的動態變數，並將Pointer 參數指向它。
procedure New(var P: Pointer);
function New():Pointer;
MaxAvail 傳回連續最大的可配置空間。function MaxAvail: Longint;
MemAvail 傳回所有的可配置空間。function MemAvail: Longint;
========================================
檔案管理函數
Unit: SysUtils
========================================
ChangeFileExt 變更檔案的延伸檔名。
function ChangeFileExt(const FileName,Extension: string):string;
DateTimeToFileDate 將Delphi 的日期格式轉換為DOS的日期格式。
functionDateTimeToFileDate(DateTime:TDateTime): Longint;
DeleteFile 刪除一個檔案。
function DeleteFile(const FileName: string):Boolean;
DiskFree 傳回磁碟的可用空間。function DiskFree(Drive: Byte): Longint;
DiskSize 傳回指定磁碟的容量大小。function DiskSize(Drive: Byte): Longint;
ExpandFileName 傳回一個完整的路徑及檔名字串。
function expandFileName(const FileName: string):string;
ExtractFileExt 傳回檔案的延伸檔名。
function ExtractFileExt(const FileName string):string;
ExtractFileName 傳回檔案的檔名。
function ExtractFileName(const FileName: string):string;
ExtractFilePath 傳回檔案的路徑。
function ExtractFilePath(const FileName: string):string;
FileAge 傳回檔案的年紀function FileAge(const FileName: string):Longint;
FileCreate 以指定檔名建立一個檔案。
function FileCreate(const FileName: string):Integer;
FileClose 關閉指定的檔案。procedureFileClose(Handle: Integer);
FileDateToDateTime 將DOS 的日期格式轉為Delphi 的日期格式。
function FileDateToDateTime(FileDate: Longint):TDateTime;
FileExists 判別檔案是否存在。function FileExists(const FileName: string):Boolean;
FileGetAttr 傳回檔案屬性。function FileGetAttr(const FileName: string):Integer;
FileGetDate 傳回檔案的日期及時間。function FileGetDate(Handle: Integer): Longint;
FileRead 從指定的檔案讀入資料。
function FileRead(Handle:Integer; var Buffer;Count:Longint):Longint;
FileSearch 在目錄列中搜尋指定的檔案。
function FileSearch(constName, DirList: string):string;
FileSeek 改變檔案游標的位置。
function FileSeek(Handle: Integer;Offset: Longint;Origin: Integer):Longint;
FileSetAttr 設定檔案屬性。
function FileSetAttr(const FileName: string;Attr:Integer): Integer;
FileSetDate 設定檔案的日期及時間。
procedure FileSetDate(Handle: Integer; Age:Longint);
FileOpen 開啟檔案。
function FileOpen(const FileName: string; Mode:Word): Integer;
FileWrite 寫資料到檔案。
function FileWrite(Handle:Integer;const Buffer; Count:Longint): Longint;
FindClose 終止找尋第一個／下一個的動作。
procedure FindClose(var SearchRec: TSearchRec);
FindFirst 尋找第一個符合的檔案並設定其屬性。
function FindFirst(const Path: string;Attr: Word; var F:TSearchRec): Integer;
FindNext 傳回下一個符合的檔案。function FindNext(var F:TSearchRec): Integer;
RenameFile 變更檔名。function RenameFile(const OldName,NewName: string):Boolean;
========================================
浮點數轉換函數 (Floating-point Conversion Routines)
Unit: SysUtils
========================================
FloatToDecimal 將浮點數值分成小數及整數部份的數字傳回。
procedure FloatToDecimal(var Result: TFloatRec;Value:Extended;Precision, Decimals:Integer);
FloatToStrF 依照指定格式將浮點數轉成字串描述。
function FloatToStrF(Value: Extended; Format:TFloatFormat;Precision,Digits: Integer): string;
FloatToStr 將浮點數轉成字串描述。function FloatToStr(Value: Extended): string;
FloatToText 將所給的浮點數值，分成小數及整數部份的數字依照格式傳回。
function FloatToText(Buffer: Pchar; Value:Extended;Format:TFloatFormat;Precision,Digits: Integer): Integer;
FloatToTextFmt 將浮點數依照格式轉成字串傳回。
function FloatToTextFmt(Buffer: PChar; Value:Extended;Format: PChar) :Integer;
FormatFloat 將浮點數值依照Format 格式傳回。
function FormatFloat(constFormat: string;Value:Extended):string;
StrToFloat 將所給字串轉成一個浮點數值。
function StrToFloat(const S: string): Extended;
TextToFloat 將一個null 結尾字串轉成浮點數值
function TextToFloat(Buffer: PChar;var Value:Extended): Boolean;
========================================
流程控制函數 (Flow-control Routines)
Unit: System
========================================
Break 終止迴圈。如for, while 及repeat 迴圈。
procedure Break;
Continue 繼續迴圈。如for, while 及repeat 迴圈。
procedure Continue;
Exit 離開目前的區塊。procedure Exit;
Halt 停止程式的執行並回到作業系統。
procedure Halt[ ( Exitcode: Word ) ];
RunError 停止程式執行。procedure RunError[ ( Errorcode: Byte ) ];
========================================
輸出入函數 (I/O Routines)
Unit: System
========================================
AssignFile 指定一個檔案到檔案變數。procedure AssignFile(var f, String);
CloseFile 關閉檔案。procedure CloseFile(var F);
Eof 判斷是否已到檔案結尾。
Typed or untyped files:
functionEof(var F): BooleanText files:function Eof [ (var F: Text) ]:Boolean;
Erase 清除檔案內容。procedure Erase(var F);
FilePos 傳回目前檔案游標位置。function FilePos(var F): Longint;
FileSize 傳回檔案的大小function FileSize(var F):Longint;
GetDir 傳回指定磁碟的工作目錄。procedure GetDir(D: Byte; var S: String);
IOResult 傳回最後I/O 執行的狀態。function IOResult: Integer;
MkDir 建立一子目錄。procedure MkDir(S: String);
Rename 變更外部檔案的檔名。procedure Rename(var F; Newname);
Reset 開啟一個已存在的檔案。procedure Reset(var F [: File; Recsize: Word ] );
Rewrite 建立並開啟一個新檔。procedure Rewrite(var F: File [; Recsize: Word ] );
RmDir 刪除一個空目錄。procedure RmDir(S: String);
Seek 移動檔案游標。procedure Seek(var F; N: Longint);
Truncate 刪截目前位置以後的檔案內容。procedure Truncate(var F);
========================================
記憶體管理函數 Memory-management Routines)
Unit: SysUtils
========================================
AllocMem 配置一個記憶體區塊給堆積heap 。
function AllocMem(Size: Cardinal): Pointer;
ReAllocMem 從堆積釋回一區塊。
function ReAllocMem(P: Pointer;CurSize, NewSize:Cardinal): Pointer;
========================================
雜項函數 (Miscellaneous Routines)
Unit: System, SysUtils
========================================
AddExitProc 加入一個程序到執行時期程式庫的出口程序列中。
procedure AddExitProc(Proc: TProcedure);
Exclude 從一個集合除去一個元素。procedure Exclude(var S: set of T;I:T);
FillChar 以一個字元填入指定個數到一個變數上。
procedure FillChar(var X; Count: Word; value);
Hi 傳回參數的高位元組。function Hi(X): Byte;
Include 將元素包含到集合內。procedure Include(var S: set of T; I:T);
Lo 傳回參數的低位元組。function Lo(X): Byte;
Move 從Source 複製Count 個數的位元組到Dest 。
procedure Move(varSource,Dest; Count: Word);
ParamCount 傳回命令列參數的個數。function ParamCount: Word;
ParamStr 傳回一個指定的命令列參數。function ParamStr(Index): String;
Random 傳回一個隨機亂數。function Random[ ( Range: Word) ];
Randomize 初值化亂數產生器。procedure Randomize;
SizeOf 傳回參數所佔位元組數。function SizeOf(X): Word;
Swap 將參數的高位元組和低位元組交換。function Swap(X);
TypeOf 傳回指向物件型態的虛擬方法表的指標。function TypeOf(X) : Pointer
UpCase 將字元轉為大寫。function UpCase(Ch: Char):Char;
========================================
次序函數 (Ordinal Routines)
Unit: System
========================================
Dec 遞減一個變數。procedure Dec(var X[ ; N:Longint]);
Inc 遞增一個變數procedure Inc(var X[ ; N:Longint ] );
Odd 判別式否為奇數。function Odd(X: Longint):Boolean;
Pred 傳回參數的前任者。function Pred(X);
Succ 傳回參數的後繼者。function Succ(X);
========================================
指標和位址函數 (Pointer and Address Routines)
Unit: System
========================================
addr 傳回指定物件的位址。function Addr(X): pointer;
Assigned 判斷是否一個函數或程序是nil
function Assigned(var P):Boolean;
CSeg 傳回CS 程式段暫存器的內容。function CSeg: Word;
DSeg 傳回DS 資料段暫存器的內容。function DSegt: Word;
Ofs 傳回參數的偏移位址。function Ofs(X): Word;
Ptr 將所指定的節段及偏移位址組合到一個指標。function Ptr(Seg, Ofs: Word):Pointer;
Seg 傳回參數的節段位址。function Seg(X): Word;
SPtr 傳回SP 堆疊存器的內容。function SPtr: Word;
SSeg 傳回SS 堆疊段暫存器的內容。function SSeg: Word;
========================================
字串格式函數 (String-formatting Routines)
Unit: SysUtils
========================================
FmtStr 將所列參數依照Format 的格式組合到Result 字串傳回。
procedure FmtStr(var Resut: string; const Format:string;const Args: array of const);
Format 將所列參數依照Format 的格式組合到Pascal 格式字串傳回。
fonction Format(const Format: string;const Args:array of const): string;
FormatBuf 格式化所列的參數。
function FormatBuf(var Buffer; BufLen: Word;const Format;
FmtLen:Word;Const Args: array of const):Word;
StrFmt 格式化所列的參數。function StrFmt(Buffer,
Format: PChar;const Args: array of const):PChar;
StrLFmt 格式化所列參數，並將結果指向Buffer 指標。
function StrLFmt(Buffer: PChar; MxLen: Word;Format:
PChar;const Args: array of const):PChar;
========================================
字串處理函數(String-handling Routines :Pascal-style)
Unit: SystUtils
========================================
AnsiCompareStr 比較兩個字串。function AnsiCompareStr(const S1, S2: string):Integer;
AnsiCompareText 比較兩個字串且無大小寫區別。
function AnsiCompareText(const S1, S2: string):Integer;
AnsiLowerCase 將字串內容轉為小寫。function AnsiLowerCase(const S: string): string;
AnsiUpperCase 將字串內容轉為大寫。function AnsiUpperCase(const S: string): string;
AppendStr 將所給字串連接到Dest 字串後面。
procedure AppendStr(var Dest: string; const S:string);
AssignStr 配置記憶體空間給字串。
procedure AppendStr(var P: PString; const S:String);
CompareStr 比較兩個字串。
function CompareStr(const S1,S2: string):Integer;
CompareText 比較兩個字串且無大小寫區別。
function CompareText(const S1, S2: String):Integer;
Concat 連結所列字串。function Concat(s1 [, s2,… , sn]: String):String;
Copy 傳回字串的部份字串內容。function Copy(S: String; Index, Count:Integer): String;
Delete 刪除所給字串內的子字串。procedure Delete(var S: String; Index,Count:Integer);
DisposeStr 釋回字串佔用的空間。procedure DisposeStr(P: PString);
FmtLoadStr 從程式的資源字串表中載入一個字串。
function FmtLoadStr(Ident: Word;const Args: array of const): string;
Insert 在一個字串內插入一個子字串
procedure Insert(Source: String; var S: String;Index: Integer);
IntToHex 將一個整數轉為十六進位。
function IntToHex(Value: Longint; Digits:Integer): string;
IntToStr 將數字轉成字中格式。function IntToStr(Value: Longint): string;
IsValidIdent 判別字串內容是否為正確的識別字。
function IsValidIdent(const Ident: string):Boolean;
Length 傳回字串的長度。function Length(S: String): Integer;
LoadStr 從應用程式的可執行檔中載入一個字串資源。
function LoadStr(Ident: Word): string;
LowerCase 將字串轉成小寫。function LowerCase(const S: string): string;
NewStr 從堆積配置一個字串空間。function NewStr(const S: string): PString;
Pos 傳回子字串在字串中的位置。function Pos(Substr: String; S: String):
Str 將數值轉為字串。procedure Str(X [: Width [: Decimals ]];var S);
StrToInt 將字串轉為整數值。function StrToInt(const S: string): Longint;
StrToIntDef 將字串轉整數值或預設值。
function StrToIntDef(const S: string; Default:Longint): Longint;
Uppercase 將字串轉成大寫。function UpperCase(const S: string): string;
val 將字串內容轉為數值描述。procedure Val(S; var V; var Code: Integer);
========================================
字串處理函數 (String-handling Routines : Null-terminated)
Unit: SysUtils
========================================
StrAlloc 配置一個最大長度為Size-1 的緩衝區給null 結尾字串
function StrAlloc(Size: Word): PChar;
StrBufSize 傳回由StrAlloc 配置的字串緩衝區內可以儲存的最大字元數。
function StrBufSize(Str: PChar): Wrd;StrCat 連結兩個字串並傳回該字串。
function StrCat(Dest, Source: PCar): PChar;
StrComp 比照兩個字串。function StrComp(Str1, Str2 : Pchar): Integer;
StrCopy 拷貝Source 字串到Dest 上。function StrCopy(Dest, Source: PChar): PChar
StrDispose 釋回一個字串空間。function StrDispose(Str:PChar);
StrCopy 拷貝Source 字串到Dest 上並傳回指向該字串結尾的指標。
function StrECopy(Dest, Surce: Pchar): Pchar;
StrEnd 傳回一指標指向字串的結尾function StrEnd(Str: Pchar): Pchar;
StrLCat 將Source 字串連結到Dest 字串後，並傳回連結的字串。
function StrLCat(Dest, Source:PCar; MaxLen: Word): PChar;
StrIComp 比較兩個字串具無大小寫區別
function StrIComp(Str1, Str2:Pchar): Integer;
StrLComp 比較兩個字串到所指定的最大長度
function StrLComp(Str1, Str2:Pchar; MaxLen: Word): Integer;
StrLCopy 從一字串拷貝指定字元數到另一字串
Function StrLCopy(Dest,Source:PChar;MaxLen: Cardinal): PChar;
StrLen 傳回字串的長度。function StrLen(Str: PChar):Cardinal;
StrLIComp 比較兩個字串到所指定的最大長度具無大小寫區別。
function StrLIComp(Str1, Str2:PChar; MaxLen: Word):Integer;
StrLower 將字串轉成小寫。
function StrLower(Str: PChar):PChar;
StrMove 拷貝Count 字元數，從Source 到Dest字串。
function StrMove(Dest, Source:PChar; Count: Cardinal): PChar
StrNew 從堆積配置一個字串。function StrNew(Str: PChar):PChar;
StrPas 將null 結尾字中轉成一個Pascal 格式字串。
function StrPas(Str: Pchar):String;
StrPCopy 拷貝一個Pascal 格式字串到一個null結尾字串。
Function StrPCopy(Dest:PChar;Source: String): PChar;
StrPLCopy 拷貝MaxLen 所指字元數，從Pascal格式字串到null 結尾字串。
Function StrPLCopy(Dest:Pchar;cost Source: string;MaxLen: Word): PChar;
StrPos 傳回一指標指向在Str1 內最先出現 Str2 字串的位置。
function StrPos(Str1, Str2: Pchar): Pchar;
StrScan 傳回一指標指向在Str 字串中第一個出現chr 字元的位置。
function StrScan(Str: PChar; Chr: Char): PChar;
StrRScan 傳回一指標指向在Str 子串中最後出現chr 字元的位置。
function StrRScan(Str: Pchar; Chr: Char): PChar;
StrUpper 將字串轉成大寫。function StrUpper(Str: PChar):PChar;
========================================
文字檔案函數 (Text-file Routines)
Unit: System
========================================
Append 開啟一個存在的檔案供增加。procedure Append(var f: Text);
Eoln 判別一文字檔是否在行尾。function Eoln [(var F: Text) ]:Boolean;
Flush 清除文字輸出檔的緩衝區。procedure Flush(var F: Text);
Read 從檔案讀入資料到所列變數。Typed files:
Procedure Read(F , V1[, V2,… ,Vn ] );Text files:
procedure Read( [ var F: Text; ] V1 [,V2,… ,Vn]);
Readln 從檔案讀入資料到所列變數並跳至下一行。
procedure Readln( [ var F:Text; ]V1 [, V2,… ,Vn ]);
SeekEof 判別是否已到檔尾。function SeekEof [ ( var F:Text) ]: Boolean;
SeekEoln 判別一檔案是否在行尾。function SeekEoln [(var F: Text) ]: Boolean;
SetTextBuf 指定一個I/O 緩衝區給一文字檔。
procedure SetTextBuf(var F: Text; var Buf [ ; Size:Word ] );
Write 將變數內的資料寫到檔案。Text files:
procedure Write( [ var F:Text; ] P1 [,P2,… ,Pn ] );
Typed files:
procedure Write(F, V1[V2,… Vn]);
writeln 執行Write 程序並輸出一個跳行到檔案。
procedure Writeln([ var F: Text; ] P1 [, P2,… ,Pn ] );
========================================
轉換函數(Transfer Routines)
Unit: System
========================================
Chr 傳回ASCII 碼所對應的字元。function Chr(X: Byte): Char;
Delphi 源碼任務 ( http://home.kimo.com.tw/bruce0211/ ) 打字整理15
High 傳回參數在範圍內的最高值。function High(X);
Low 傳回參數在範圍內的最低值。function Low(X);
Ord 傳回一個有序型態所對應的順序值。function Ord(X): Longint;
Round 將一個實數值四捨五入而傳回整數值。function Round(X: Real):Longint;
Trunc 將一個實數值去尾而傳回整數值。function Trunc(X: Real):Longint;
========================================
未定型態檔案函數(Untyped-file Routines)
Unit: System
========================================
BlockRead 從檔案讀入一個或數個記錄到Buf 變數。
procedure BlockRead(var F: File; var Buf;Count: Word [; var Result:Word]);
BlockWrite 從一變數寫入一個或數個記錄。
procedure BlockWrite(var f: File; var Buf;Count: Word [; var Result:Word]);
▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
離婚要學當美國女人，不是台灣女人！
文章轉自：離婚要學當美國女人，不是台灣女人！
作者：呂秋遠 (未來Family網路專欄作家)
「律師，我想離婚。」她在電話裡說。
「為什麼？」我問，這是基本問題。
「我先生有外遇，他今年六十歲，竟然跟一個二十四歲的女人在一起。這女人跟我兒子同年紀，這種事他怎麼做得出來。」她聽起來口氣平穩，但是很哀怨。
「當然做得出來啊！男人向來很專一的，從二十歲到八十歲，都喜歡二十歲的。」我心裡暗暗這麼想，但是我還是保持了律師的專業，「那麼你不要提離婚啊！提離婚對你有什麼好處？你在意財產嗎？」
「我只是希望我有個保障，財產都在他名下。」她說。「萬一他把財產都過戶給這個女人怎麼辦？」
「這你放心，你老公在還沒跟這個女人結婚以前，以他這麼精明的人，怎麼可能過給她？萬一人財兩失怎麼辦？」我說。
「對！我曾經跟過那個女人，他在跟我先生約會後，就去跟另一個年輕男人約會！」她氣憤的說，「她太不要臉了。」
「不然呢？難道他愛的是你先生鬆弛的肚子、半禿的腦袋、肥胖的身軀與過人的年紀？」我悠悠的說，「她愛的當然是他，的錢。」
「所以我要離婚！」她似乎被我激怒了，「我要讓他付出代價！」
「什麼代價？中年離婚的代價？你要是想跟他離婚，他心情可好了，有男人可是把『中年喪妻時』當作人生三大樂事之一。況且離婚後，縱然你可以分得他一半的財產，但是這訴訟可能要很久，他的財產都在美國，臺灣司法單位也不容易查，到後面豈不是變成人財兩失？」
「沒關係，至少我有自由。」她說。
「你現在哪裡不自由？」我問，「你先生忙著外遇，你孩子也成年了，你本來就是自由的，是你不願意給自己自由罷了。」
她沈默了半?，「你知道我為什麼找你嗎？」
「我不知道。」
「因為我先生買了你兩本書，而且最近一直在看，我覺得他這種不愛看書的人，竟然會對書這麼入迷，我覺得可以來問問你。」她說，「該不會他已經來找你了？」
「沒有啦！如果他來找我，我就不會跟你討論案情。」我說。
「但是如果他真的來找我，我會建議他放下屠刀，因為他只是想抓住青春的尾巴而已。他如果認為，這女人愛的是他經歷與腦袋，他的精力應該不夠，他的腦袋也應該進水了。」
「但是，我總覺得我不甘心，為什麼他可以這麼對我！」她問我。
「這就是問題。因為你離婚，只是把某某妻的位置讓出去，徒然讓這個女人得利。我問你，如果真的離婚，你還會在意他跟這個女人在一起嗎？住你的房子、睡你的床？」
「不要臉的東西！」她憤怒了。
「這就對了。」我說，「如果離婚，你會繼續不開心，那麼你幹嘛離婚？離婚，就是要讓自己開心點，但是離婚以後，你卻要眼睜睜的看著他們出雙入對，你願意嗎？」
「也只能這樣啊！」她無奈的說。
「那你幹嘛這麼無奈？」我說。
「離婚，沒有不好，但是你要知道離婚的目的。你現在離婚的目的不過就是為了出一口氣，但是這口惡氣不是這樣處理的。你繼續在這個位置上，用他的錢、抓他的姦、罵這個小三，這樣不是很好？等你確定你的離婚目的，再來談這件事會不會比較理想？」
「這男人真可笑！竟然看不透這個女人！」她恨恨的說。
「我知道你的意思了，我要先知道，離婚為的是什麼。」
「老男人很多行為都可笑，但重點是你自己，要學著當美國女人，而不是台灣女人。」我說，「台灣女人年輕為夫、中年為子、老年為孫，你要學著把錢花光，讓自己過像樣的生活。為自己活，知道自己的生活重心，不然你老是這樣，毀的不是婚姻，是人生。」
「你也很可笑，我是要來委任你離婚訴訟的！」她最後說。
「時機還沒成熟，以後再說。」我是這麼說的。「雖然我不是老男人。」
作者：呂秋遠 (未來Family網路專欄作家)
「律師，我想離婚。」她在電話裡說。
「為什麼？」我問，這是基本問題。
「我先生有外遇，他今年六十歲，竟然跟一個二十四歲的女人在一起。這女人跟我兒子同年紀，這種事他怎麼做得出來。」她聽起來口氣平穩，但是很哀怨。
「當然做得出來啊！男人向來很專一的，從二十歲到八十歲，都喜歡二十歲的。」我心裡暗暗這麼想，但是我還是保持了律師的專業，「那麼你不要提離婚啊！提離婚對你有什麼好處？你在意財產嗎？」
「我只是希望我有個保障，財產都在他名下。」她說。「萬一他把財產都過戶給這個女人怎麼辦？」
「這你放心，你老公在還沒跟這個女人結婚以前，以他這麼精明的人，怎麼可能過給她？萬一人財兩失怎麼辦？」我說。
「對！我曾經跟過那個女人，他在跟我先生約會後，就去跟另一個年輕男人約會！」她氣憤的說，「她太不要臉了。」
「不然呢？難道他愛的是你先生鬆弛的肚子、半禿的腦袋、肥胖的身軀與過人的年紀？」我悠悠的說，「她愛的當然是他，的錢。」
「所以我要離婚！」她似乎被我激怒了，「我要讓他付出代價！」
「什麼代價？中年離婚的代價？你要是想跟他離婚，他心情可好了，有男人可是把『中年喪妻時』當作人生三大樂事之一。況且離婚後，縱然你可以分得他一半的財產，但是這訴訟可能要很久，他的財產都在美國，臺灣司法單位也不容易查，到後面豈不是變成人財兩失？」
「沒關係，至少我有自由。」她說。
「你現在哪裡不自由？」我問，「你先生忙著外遇，你孩子也成年了，你本來就是自由的，是你不願意給自己自由罷了。」
她沈默了半?，「你知道我為什麼找你嗎？」
「我不知道。」
「因為我先生買了你兩本書，而且最近一直在看，我覺得他這種不愛看書的人，竟然會對書這麼入迷，我覺得可以來問問你。」她說，「該不會他已經來找你了？」
「沒有啦！如果他來找我，我就不會跟你討論案情。」我說。
「但是如果他真的來找我，我會建議他放下屠刀，因為他只是想抓住青春的尾巴而已。他如果認為，這女人愛的是他經歷與腦袋，他的精力應該不夠，他的腦袋也應該進水了。」
「但是，我總覺得我不甘心，為什麼他可以這麼對我！」她問我。
「這就是問題。因為你離婚，只是把某某妻的位置讓出去，徒然讓這個女人得利。我問你，如果真的離婚，你還會在意他跟這個女人在一起嗎？住你的房子、睡你的床？」
「不要臉的東西！」她憤怒了。
「這就對了。」我說，「如果離婚，你會繼續不開心，那麼你幹嘛離婚？離婚，就是要讓自己開心點，但是離婚以後，你卻要眼睜睜的看著他們出雙入對，你願意嗎？」
「也只能這樣啊！」她無奈的說。
「那你幹嘛這麼無奈？」我說。
「離婚，沒有不好，但是你要知道離婚的目的。你現在離婚的目的不過就是為了出一口氣，但是這口惡氣不是這樣處理的。你繼續在這個位置上，用他的錢、抓他的姦、罵這個小三，這樣不是很好？等你確定你的離婚目的，再來談這件事會不會比較理想？」
「這男人真可笑！竟然看不透這個女人！」她恨恨的說。
「我知道你的意思了，我要先知道，離婚為的是什麼。」
「老男人很多行為都可笑，但重點是你自己，要學著當美國女人，而不是台灣女人。」我說，「台灣女人年輕為夫、中年為子、老年為孫，你要學著把錢花光，讓自己過像樣的生活。為自己活，知道自己的生活重心，不然你老是這樣，毀的不是婚姻，是人生。」
「你也很可笑，我是要來委任你離婚訴訟的！」她最後說。
「時機還沒成熟，以後再說。」我是這麼說的。「雖然我不是老男人。」
訂閱：
文章 (Atom)