他每次買茶葉，老闆都會送他免費茶葉。半年後他才驚覺，不要錢的最貴…

文章轉自：

他每次買茶葉，老闆都會送他免費茶葉。半年後他才驚覺，不要錢的最貴…

張三一直喜歡喝20塊錢的茶葉。新開茶店裏每次張三去買茶葉，老闆都送他半兩好茶。張三將好茶攢著待客。一天閑來無事泡壺好茶，竟喝上癮。喝完免費的好茶，張三便不願喝20塊的了。不管他買多貴的茶葉，老闆總送他半兩更好的。半年下來，張三花在茶葉上的錢是原來的十倍！

坐飛機的一個現象

觀察30到40這個年紀的旅客，頭等艙的旅客往往是在讀書，公務艙的旅客大多看雜誌用筆記本辦公，經濟艙則看報紙電影玩遊戲和聊天的較多。在機場，貴賓廳裏面的人大多在閱讀，而普通候機區全都在玩手機。那麼，到底是人的位置影響了行為呢，還是行為影響了位置呢？

奪取先機

商 人帶兩袋大蒜到某地，當地人沒見過大蒜，極為喜愛，於是贈商人兩袋金子。另一商人聽說，便帶兩袋大蔥去，當地人覺得大蔥更美味，金子不足表達感情，於是把 兩袋大蒜給了他。雖是故事，但生活往往如此，得先機者得金子，步後塵者就可能得大蒜！善於走自己的路，才可能走別人沒走過的路。

不許偷酒

某人買了一壇好酒，放在小院，第二天，酒少了1/5，便在酒桶上貼了不許偷酒四個字。第三天酒又少了2/5，又貼了偷酒者重罰。第四天，酒還是被偷，於是貼尿桶二字，看誰還喝。第五天他哭了。桶滿了……

故事還沒完，第六天，他再次在酒桶上貼了不許偷酒四字。那一天很多人都哭了。

行銷策略

行銷策略就是賣「貪」和「怕」

1、對於富人來說：他們怕產品不安全、怕沒檔次、怕沒面子、怕沒別人好，請抓住這個心理推銷；

2、對於一般客戶來說：他們貪便宜、貪贈品、貪打折、貪比別人划算、貪省到了錢，請抓住這個這兩大心理推銷！

換位思考

一 富豪到華爾街銀行借5000元貸款，借期兩周，銀行貸款須有抵押，富豪用停在門口的勞斯萊斯做抵押。銀行職員將他的勞斯萊斯停在地下車庫裏，然後借給富豪 5000元，兩周後富豪來還錢，利息僅15元。銀行職員發現富豪帳上有幾百萬，問為啥還要借錢，富豪說：「15元兩周的停車場，在華爾街是永遠找不到 的。」

成功只有兩點

一是做事成功，二是做人成功。

做人不成功，成功是暫時的；

做人成功，不成功也是暫時的。

要做事，先做人。

邱吉爾說，成功根本沒有秘訣，如果有的話，就只有兩個：一是堅持到底，永不放棄；二是當你想放棄的時候，請回過頭來再照著第一個秘訣去做。萬事只怕有心人。

保齡球效應

保 齡球投擲物件是10個瓶子，你如果每次砸倒9個瓶子，最終得分90分；而你如果每次能砸倒10個瓶子，最終得分240分。社會記分規則就是這樣：只要你比 別人稍微優秀一點，能再多堅持一會，就贏得更多機會。這種機會疊加就是人生效應的逐級放大，最終造成人與人之間巨大的落差。

冰淇淋哲學

賣冰淇淋必須從冬天開始，因為冬天顧客少，逼迫你降低成本改善服務。如果能在冬天中生存，就再也不會害怕夏天的競爭；同樣只有吃過苦才知道享受生活美好。想在順境中事業能蒸蒸日上，就必須在逆境中經過一番錘煉，這就是臺灣著名企業家王永慶提出的「冰淇淋哲學」。

覺得這篇文章有用的話，請按個讚並分享出去！祝大家賺大錢！

一個著名餐館面試題目：如果你的餐盤掉下來，你該怎麼辦？ ( 道盡人生百態啊... )

轉自：CMoney投資網誌
如果你因為失去太陽而流淚，那麼你也將失去群星。—— 泰戈爾

先來回答一道著名的餐館的面試題目：

如果你的餐盤掉下來，你又無能為力挽救，那你該怎麼辦？

最佳答案就是：
用盡全力，把餐盤拋向離你最近的沒有人的方向。

這道題告訴我們一個道理：
如果你已經失去，那就讓自己的損失少一點。

如果這道題變成另一個方式問，你會怎麼回答呢？

如果一份工作、專業或者愛情，

已經確定不是你想要的，你該怎麼辦？ 

最佳答案就是：
用盡全力，用最快的方式放棄。

顯然和我們的經驗不符，我們身邊滿是不願意放棄的人。我們不願意放棄明知道不適合的工作，因為“我們畢竟做了這麼久”；我們不願意放棄專業，因為害怕“四年白讀了”；我們也不願意放棄一份完全絕望的愛情，因為“我們在一起太久了”。

我們為什麼這樣熱衷於根據過去的投入，而不是未來價值來做決定？經濟學有一個專門的術語來解釋這種現象，叫做沉沒成本效應(Sunk Cost Effects)。

想像你今天晚上經過電影院，你決定進去花 50元隨便看一場電影。剛坐下來 15分鐘，你就發現這部電影無聊透頂，周圍的人不是打呼嚕就是在二人世界，你確定繼續看下去對你毫無價值。

現在請你做一個決定：
你是會繼續看完，還是會馬上離開？

從經濟學的角度來說，

如果你已經確定電影毫無價值，最明智的選擇就是馬上離開。

因為當你進入電影院的瞬間，50 元已經損失了(沉沒成本)。至於你坐下來 15分鐘以後，如果你選擇離開，還可以節省一個半小時；如果你繼續坐下來，你會繼續浪費接下來的一個半小時，這個叫做追加成本。

沉沒成本其實就是已經損失的成本，為了這個損失而追加成本，最後只會頭破血流。

已經投入並且損失的價值，會造成我們對未來投入的判斷。這就是沉沒成本模式。

由於害怕損失，所以繼續投入，

到最後面損失更大。

這是我們常常犯的錯誤，沉沒成本模式。
見過身旁許多男女朋友，熱情消耗殆盡，卻還堅持在一起，最常見的理由就是：“雖然已經確定不喜歡他了，但是一想到這麼多年的戀情，還是覺得捨不得白白浪費。”

既然已經確定不喜歡，

那這段感情對於未來的生活的價值等於零！

但由於“捨不得”，於是大家決定在一起，浪費更多的青春，繼續噁心自己。

其實此時分開的未來價值，遠遠高於留在一起的價值。

越是自尊心強，或者越是由於“自卑而自大”的人，他們的沉沒成本模式越嚴重，因為他們總希望證明自己是對的，沒有走彎路。

害怕失去的人，

損失最大、最痛的人最容易死。

買衣服只因為逛了很久的街。結婚只因為談了太久的戀愛。學鋼琴只是因為買了鋼琴。繼續工作只是因為幹了很久。

你有沒有這樣的購物經驗？當你走過商場，看到裡面“直降300元！最後一天！”的牌子，你的內心是不是有一個聲音在小聲說：注意今天不買，損失300元！結果你一激動花了 1000元買下這件衣服，卻發現自己損失更多...

你其實不太喜歡這件衣服，你穿兩次就不穿了，而你衣櫃裡面因為害怕吃虧而買回來的衣服，已經遠遠超過因為喜歡買回來的衣服。
由於害怕損失 300元，
結果你損失了 1000元。


(圖片來源)

大學的時候，我曾經很喜歡玩星際爭霸。聽過一個故事，有一個兄弟非常入迷，戰術和微操都很好，但是總在關鍵的時刻輸掉。後來遇到高人指點，高人看了一盤說你太害怕損失了，
少一個兵就往回退，別人就趁機追擊，你也沒有時間造新的兵。

你總糾葛少死的幾個小兵，所以打不好。此人大悟，終成高手。
故事的結論是：

害怕損失也許會讓你當下少輸幾個，

但是很容易全盤皆輸。

人生缺少規劃，花錢也浪費青春

遇到過一個學生，她說自己很早就接觸了職業規劃，也看了很多很多相關的書，關注新精英也很久了，但是就是沒有行動，一直到現在實在是遇到瓶頸才來。我問她為什麼？她說一直害怕太浪費時間，另外也覺得有點貴。我與她都是好怕損失時間和金錢的人。但是由於缺少規劃，她已經花了 2 萬多讀了與未來毫無關係的培訓書，而且浪費了 3 年時間了。這算不算是更大的損失？

還有人花了家裡 100多萬出去讀書，回來卻還是一頭霧水，這又算不算是更大的損失？

你有沒有這樣的生活體驗？為了隱瞞一件小事情，而撒了一個小謊。然後為了不讓自己的小謊言被揭穿，於是繼續撒了一個更大的謊來彌補，最後你終於無法收拾，一敗塗地。

所以千萬不要為了一個謊言，而再說一個謊言。

哀歎是不是一種沉沒成本？無比懷念上一個戀人是不是沉沒成本？面子是不是一種沉沒成本？抱怨過去是不是一種沉沒成本？

現在的工業社會深諳這種損失的小心理，所以他們發明出來超市這樣的購買方式。原本你需要從貨架上面拿下來，然後付錢，這個時候你會感覺到損失。 但是今天在超市裡，你只需要從貨架拿下來，然後丟到車裡，在結帳台，你拿出一張信用卡刷一下你幾乎感覺不到什麼損失。一直到月底的時候，你才發現，超支了！

銀行還繼續不懷好意地說，不要緊，你可以以後再還...貸款危機就產生於害怕損失的心理。

損失從來不會讓你安全，

只會讓害怕損失的你更加損失。

西方傳說中的吸血鬼，貌美英俊，在吸血的同時，會向你的血液注入讓你感到快樂的毒素。
你甚至會在被吸血的時候有一種快樂安詳感，這讓你無力反抗，最後慢慢被抽幹為一副軀殼。沉沒成本模式就是你頭腦中的吸血鬼，

為了不要面對小小的損失，你會面臨更大的損害。

簡單來說：怕痛容易死。 

我們都知道：
Don't cry over spilled milk，
別為了打翻的牛奶哭泣。
但為什麼還有那麼多為了打翻的牛奶哭泣的人？人對損失的感受比獲得的感受強烈 4 倍。
嘗試在內心裡體會一下，如果我借你 100塊，還你 102元的快樂；和我借你 100塊，只還你98塊的噁心感。在同樣的刺激下，人們總對失去有過高的判斷。

我們總是害怕損失，而忘記我們可以獲得更多。 

如果勇於承受這些損失，我們便有機會把我們的生命投向無限資源的未來，找到更好的途徑來彌補這些損失。

印度詩人泰戈爾(Tagore)在他的詩中寫到：
If you shed tears when you miss the Sun，you also miss the stars.

如果你為失去太陽而哭泣，你也將失去群星。

有效的做法，就是在失去太陽的時候，主動地去擁抱星星，這才是真正的智慧。

生意就該 這樣做！一個 食堂小老闆，竟給教授上了一堂 MBA 課！（學到真是賺到阿～）

轉自：生意就該 這樣做！一個 食堂小老闆，竟給教授上了一堂 MBA 課！

 

(圖片來源)

經營食堂應該是最簡單的小生意，

假設你是食堂的小老闆，怎樣才能有效防範食堂採購中的貪污問題？

這可是一道考管理者的綜合題，因為任何商品的標準都不如糧油青菜油鹽醬醋雞鴨魚肉 複雜；任何商品質量都不如每天需要變換口味的飯菜難以衡量；任何產品的價格都不如員工頓頓吃的東西敏感。不信你試試看，你能管好一個食堂嗎？

趕緊接著看下去...

食堂管理難題

採購是件麻煩事，人人都可能貪汙

有人可能說，如果我是食堂的老闆，食堂採購就是我管理的重點。 必要的話，可以採取如下措施：
“我、我老婆或者我的親信親自去買。”


(圖片來源)
可是這樣一來你不就成個體戶了嗎？你的食堂公司還能做大嗎？如果再有第二個、第三個食堂你怎麼管？再說了，別以為親信就不會騙你的，人是這個世界上最高級，也是最易變的動物。在缺乏監督和約束的環境中，你老婆都會藏私房錢。一個深圳制衣廠老闆自嘲地跟我說：“自從我丈母娘管了食堂後，我小姨子和小舅子家裡就從來不買菜了。”

僅靠親情管企業是不行的。


(圖片來源)

派人監督？成本划得來嗎？ 

“那我就派兩個人去買，一個買，一個監督。” 
可是管過企業的都知道，在現金交易，無發票，並且質量和價錢每天變化的菜市場中，採購者抵禦誘惑的能力很差，靠人盯人不可靠的，因為兩個人可以很快達成攻守同盟。我見過有的公司甚至還用三個人去買菜，兩人負責買，一個人複秤。結果怎麼樣？除了整天吵架之外，仍然不解決問題。更關鍵的是：千萬別忘了，你經營的可不是什麼暴利生意，一個人能幹的活，三個人幹，你的飯菜成本怎麼能壓下來？


(圖片來源)

“那我就採取輪班制，每次去買的兩個人都不同。”
一看你就是不懂食堂生意。千萬別小看油鹽醬醋青菜土豆雞鴨魚肉這些人人都知道的東西，它們的採購可是很專業的活，不信你問你老婆和媽媽。一個不懂菜市行情的人往往會讓小販騙秤和欺價。如果你為了防止貪污，買的東西質次價高，你的食堂生意還有競爭力嗎？

“那就採購的人固定，監督的人輪換。”
 可是一個不懂行的人怎麼可以有效監督一個天天採購的人？他可以非常容易地同供應商表演完美的雙簧，讓監督的人成為聾子耳朵。不僅如此，犯罪心理學證明：監督越嚴厲，人的犯罪心理越強，監獄就是最好的證明。
採購者每天被不同的人盯著，這對採購者實際上是雙重人格侮辱，因為它的假設是：
一、你不僅會貪污；
二、你還會拉別人下水一起貪污。
如果你被這樣假設了，不貪污都對不起自己了！
還談什麼發揮主觀能動性，同小販鬥智鬥勇買便宜的青菜茄子豬肉粉條？

實務的經驗比學術更能管理!

別忘了，外行不能管內行 

“那我就公開招標選總供應商。”
這又是外行話。的確一些大餐館或飯店對飲料煙酒和糧油等商品採購用總供應商獨家採購制度。這是因為這些商品是標準產品，而青菜土豆雞鴨魚肉是非標準產品，質量和價錢每天都可能變，你怎麼制訂標書？誰能預測，8 月豬肉上漲 10%，9 月山東黃瓜大豐收每斤只賣 1 角？因此，即使你有總供應商，還是要有人知道行情，因為這些青菜副食可是你食堂成本的大頭。

看到此，我估計很多人開始納悶：這麼簡單個食堂生意，管理竟然如此複雜？！ 這就對了，因為你是外行。如果一個真正管過食堂，而且成功管理過食堂的人，這個問題對她(他)就是小事一樁了。這就是管理永遠具體的道理——外行不能管內行。

開源節流

與食堂老闆一席話，勝讀十年書 

一次偶然的機會，我碰到一位真正管理過食堂的老闆，他的一席話讓我茅塞頓開。

我問他：“你的食堂採購由誰負責？”

他說：“看買什麼。需要每天買的青菜副食由大師傅負責，不需要天天買的糧油醬味招標採購，清潔用品等雜項由食堂經理買，爐灶器具鍋碗瓢盆等固定資產(他的定義)由我親自負責。”

我又問：“大師傅去買菜有人監督嗎？”

“沒有，我們只監督買回來的東西是不是短斤少兩，因為很多東西是大師傅去市場訂，供應商給送；送來的東西由廚房小工複秤記錄。”他說。

“不怕大師傅吃回扣嗎？”我問。

他說：“不怕。這個食堂是物業公司的，每人每天只是 7 元錢的伙食定額，扣掉主食和其他費用，每人每天副食只有 4 元錢。大師傅要用 4 元錢，買回能做四菜一湯的材料已很不容易了，哪裡還有吃回扣的縫兒？

另外，我自己偶爾也逛菜市場，市價比較清楚。

再說，他能不能吃回扣，根本不是我管理的重點。”

嘿。我覺得很奇怪，問：“為什麼？”


(圖片來源)

做生意先講開源，後講節流

 小老闆說：“我做生意先講開源，後講節流。因為一個生意得先有營業額，後才能有利潤。

我的重點是如何讓吃飯的人滿意 !

他們滿意了，他們公司才能給我續約。他們滿意了，我同公司談伙食承包費、水電費和客人招待費才容易。”

“怎麼才能讓他們滿意？”我繼續問。

“這些保安都是從農村來的小夥子，肚量大得很，要讓他們滿意首先得保證他們能吃飽。
可是每人每天就這麼點伙食費，怎麼才能讓他們吃飽？

因此，必須精打細算。比如，不要買剛下來的新鮮菜、不要買質量好的菜，儘量買過季菜、處理菜；不要買活魚，要買死魚；不要買裡脊肉，要買肥肉...買這些東西可不是一般人能買的，必須是做菜的大師傅。

大師傅在菜攤看到便宜菜和肉時，腦袋裡馬上就能想像做什麼菜，因此在討價還價時，他可以立即作決定。否則買菜一個人，做菜一個人，天天得吵架。”

“做餐館的人哪個不知道，凡是有人投訴飯菜質量，大師傅一定會先找原材料質量不好的原因。所以我必須把這個權力交給大師傅，讓他能像我媽媽那輩子的人一樣，會過窮日子，
用一點點的錢變著法讓一家人盡可能吃好。可是大師傅不是我媽，得鼓勵他才行。 怎麼鼓勵？食堂就餐者每個月對飯菜質量有評分，評分越高，大師傅獎金就越高。”


(圖片來源)

目標管理：將軍趕路，不追小兔

你要分析，用餐者對什麼最在意

我靠在沙發上的身子不由自主地直了起來，這個不修邊幅的小老闆開始讓我肅然起敬。

我繼續請教：“可是我的經驗是：吃飯的人個個都是陳世美，新廚師做的飯菜，剛開始都挺好吃，可是吃著吃著就煩了，評分也就低了。”

“那你要分析，用餐者對什麼最在意？這個食堂吃飯的小夥子們對飯菜不滿意，主要是分量上。 我剛接手這個食堂時是，他們半自助餐。可是你知道的，凡是吃自助餐的人，都是眼大肚子小；儘量多要，吃不了，不是硬撐，就是偷著倒。 食堂員工怕後邊的人不夠，就儘量少給，結果總吵架。做食堂的人都知道，合餐一定比分餐省；可是分餐衛生，方便和時髦，所以一般公司食堂大都採用分餐。”

“可是你得看你的食客是什麼人？如果都是白領當然要分餐了，人得先吃飽後吃好。於是，我終於說服物業公司把分餐制改成合餐制。我的條件他們不能拒絕，八人一桌、四菜一湯、公筷分菜、湊齊再吃。結果滿意度一下子上升 10 個百分點。”

“不僅如此，要想少花錢吃飽飯，只有一招——多吃飯少吃菜。我和大師傅在制定菜式時就想方設法，讓中午和晚間每頓飯都必須有一個口味重，能下飯的菜。比如：梅菜扣肉、紅燒魚、醃菜炒大腸、麻婆豆腐等。做這些菜必須多放油、鹽、醬油、味精、調料，所以原材料也就不用很新鮮的，要知道死魚比活魚價錢差一半。”

“你看這才是我抓的重點。這個公司換過 3 個食堂外包，我們是最滿意的。現在他們總經理也經常在食堂吃飯了，這幾個月物價高漲，他還主動問我需不需要加錢。”

我目不轉睛地看著他，心想：管理者都懂目標管理，可是幾個目標一打架，往往就把大目標忘了——很多企業為了防止吃回扣，把員工的積極性也搞沒了。這個小老闆顯然是個能將軍趕路，不追小兔的高手。


(圖片來源)

管理客戶期望

食堂故意放一天假，這樣客人才知我們的好！ (將欲取之，必先與之)

小老闆見我真心請教，很有些自豪，繼續說：“做餐飲的人其實不怕投訴，因為顧客投訴的
都是一些能看得見的毛病，這些毛病都好改，難就難在食客的口味上。黃老師，你說得對，經常吃這幾個菜誰都煩了。這就是為什麼餐館不斷換廚師和推新菜式的原因。”

“可是我們做食堂比較慘，因為大部分員工沒選擇，只能在這裡吃。於是他們往往把對飯菜的厭煩透過別的事情爆發出來，比如飯菜質量問題和服務態度不好。 其實，每個人都有家，媽媽也就能做那幾樣菜，你怎麼不煩？在外面跑來跑去，回到家一吃，還是媽媽做的飯菜可口。”

“所以我做食堂跟別人不一樣，別人都希望職工每天都來食堂吃飯，因為多吃一天，做食堂的人就多賺一天錢。 我承包任何公司食堂，我都要求公司同意食堂每星期關一天，因為我的員工也要休息。其實真正的原因是，我要讓那些整天在食堂吃飯的員工自己做一做，或者到外面飯館換換口味，對比一下價錢，這樣他們就知道我的飯菜物有所值。我有 100% 把握，他們用 7 元錢在任何地方，包括自己做，絕不可能比在我這裡吃得好。”

我真的遇到高人了，不知哪個管理大師說的：“營銷的第一準則是管理客戶期望，而不是僅僅滿足客戶。”看來這個只有中學文化的小老闆是個無師自通的大師。


(圖片來源)

順應人性和自然規律

管不來的事，就不能硬管

 我繼續問：“很多食堂採購都讓老闆費腦筋，往往用很多方法去控制。他們的擔心也是有道理的，每個人的菜金再低，幾百人加到一起，一年下來細水長流也是一筆不小的數。你為什麼對你的大師傅那麼信任，他是你的親戚嗎？”

小老闆笑了：“我在深圳經營四個食堂，我哪裡來那麼多能做飯的親戚？其實菜市場採購吃回扣的事，都是那些公司自己辦食堂的人做的事，為什麼？管食堂的人不懂行，再加上管食堂的人往往是什麼行政部經理，他們還有很多別的事要管，不可能在食堂上下那麼多工夫。”

“這些大公司以為靠什麼鬼複雜的程序、制度和人盯人監督就能解決回扣問題，那是瞎掰。
 同樣是菜心，有的是今天剛從地裡摘的；有的是前天摘的，淋上水都是新鮮的，你怎麼監督？ 一副豬內臟上午賣 30 元錢，到晚間 5 點以後就 10 元錢了。如果採購的人想給你省錢，
他會跟攤主說，有剩下來的內臟給我送來；如果他照章辦事或心情不順，你就要花 30 元。
再說了，逢年過節供應商送他一條煙，下來的新鮮水果送他一簍，這些事你能管得住嗎？
更關鍵的是你需要管嗎？”

“所以管不來的事，就不能硬管；要換著方式管才行。我能管的是每人 4 元錢的菜金，你給我做出讓吃飯人滿意的四菜一湯；如果在這個前提下，你還能吃到回扣，那就是你的本事；如果你真有這個本事，你小子就不需要當大師傅了，你可以當食堂老闆了。 為什麼，因為你能管好大師傅。”

大多數人只知道“治大國如烹小鮮”，而不知道這只是半句話，其實老子的意思是：管理者如果能順應人性和自然規律，治大國就如炒一碟小菜那樣容易了。這個小老闆顯然是知道老子整句話的人。


(圖片來源)

讓所有人都有點小權

盡可能不誘人犯罪

 我又問：“糧油醬味不是也會影響飯菜質量嘛，為什麼不歸大師傅一起採購？”

小老闆狡黠地看了我一眼，說：“這就是我的特殊管理方法。別的公司採購都統一，我就要分散。我認為一個人過手的金額越少，貪污的可能性也越小，不信你看那些大貪污犯都是權力大的人。為什麼？過手金額太大，掉一點小渣對人誘惑就很大。我不知道為什麼有些公司非要把所有東西都集中起來採購？不僅如此，其實很多東西，買的人不如用的人懂行。”

“所以我把採購權分開。把需要採購的東西，首先按性質分。是標準產品不管金額大小，能招標的就不獨立採購，比如：糧油招投標，鹽味精醬油醋這些東西雖然金額小，也招投標。這叫什麼？盡可能不誘人犯罪。現在買十瓶啤酒都可以講價，所以要盡可能把漏洞堵上。不能投標採購的，比如副食青菜，不論金額多大，要直接交給最懂行的大師傅。”

“為什麼？除了上面說的原因，我現在經營四個食堂，最高的伙食標準是每人每天 20 元，最低是 7 元，它們用的原材料都不一樣，放到一起採購只能顧此失彼。掃把抹布員工制服這些雜品由每個食堂經理購買。這樣人人負責一部分，不僅能買到最合適的東西，每人買的品種少、金額小，稍稍吃點差價，就容易暴露出來，比如：別的食堂拖把 5 元錢，你買的拖把 10 元錢，你能不心虛嗎？”


(圖片來源)

別人怎麼管

都不如自己管自己。

 “人這種東西，別人怎麼管都不如自己管自己。我這樣做還有一個原因，誰都知道買東西是個好活，被人家敬煙敬酒還請吃飯，還有可能拿回扣。可是好事就要盡可能大家都有份，不能我整天煙薰火燎，你整天在外面風光，否則就會引起嫉妒和流言蜚語。如果把權力分散開來，大家都可以沾光還可以互相監督。當然我也不是為了分散而分散，該集中的我還是要集中，比如：我把糧油醬味的招標權下放到一個食堂經理那裡，由他代替其他五間食堂採購。當然招標是輪流坐莊，下一年由另外一個食堂的經理負責。”

“別人的老闆都說：員工都想少幹活多拿錢。我看不是，我覺得員工是想少幹不好的活，比如洗菜擦地這些髒活和累活。如果讓洗菜的小工監督過秤，不給他們錢都高興幹。為什麼？不僅能到廚房外面涼快涼快，喘口氣抽口煙，掌握秤桿子還能受到別人尊敬呀。他不僅需要複秤，還要記錄；短秤了，還要找大師傅對證。是人，哪個不想有點權力？所以我的原則就是讓所有人都有點小權。”

“人有權無責、有權無法都容易亂來。洗菜小工抽別人幾根煙是小事，上萬斤米麵的採購就容易出大事。所以我雖然把米麵的招標權力交給食堂經理，但是招標必須按我制定的方法招。我們的招標結果事先任何人，包括評標者都不可能知道。因為我們做的是吃的生意，入嘴的東西不能只鬥價錢低，否則鬥來鬥去，什麼毒米就混進來了。

因此我的招標方法永遠是：
第一，至少有四家無關聯的供應商投標；
第二，必須有一家新的供應商；
第三，中標者是最接近四家平均價錢的投標者。

任何人違反這個規則，就等於犯了法，你必須要交代清楚。”


(圖片來源)

老闆越說越興奮，我也越來越覺得他很神。
我問他：“你以前做什麼的？你這些招都是自己想出來的？”

他說：“我今年 45 了，年輕時打工，打來打去也打不出頭，就自己做生意，沒有大本錢，
就在工廠區開了間小飯館，結果就開成了食堂。我都是在過程中悟出來的，控制吃回扣，靠人管人不管用；要從源頭控制；

要把大權化成小權控制；要用規則法律控制；要讓人自己控制自己。”

離職時，應該說實話嗎？

轉自：離職時，應該說實話嗎？
前陣子接受平面媒體的採訪，主題和離職有關。因此談到了一個問題：｢員工到底應不應該把真正的離職原因告訴主管？｣
我想了半天，最後擠出來的答案是：｢到了要離職的地步，才告訴公司自己決定離職的主要原因，我比較好奇，到底你希望得到什麼？｣
每一個職位的工作內容都不盡相同，以HR來說，工作比較難有明確的績效好壞或是對錯，很多人力資源管理的措施，老闆支持就是對的、老闆不支持就是錯的。或者，應該用另外一種方法來描述：我的工作建立在老闆對我的信任之上。所以面對離職，我自己堅守的原則是，絕對不輕易地提出離職、一旦提出離職就絕對不接受慰留。
當然，這不是放諸四海皆準的道理。但是這些年的見聞教會我，若對工作內容有問題就談工作內容、對升遷有期望就談升遷、對薪水有意見就談薪水，不需要把離職拿來當作談判的工具，如此一來，職場的問題或許能簡化一些。
一個我在很多年前就分享過的真實故事是這樣說的：某位前輩在A公司任職，薪資福利不差、對工作也算滿意。有一天他接到獵人頭顧問代表B公司前來挖角的電話，他沒有真的想要換工作，就順口開了個價格，大抵上是比自己的年薪再多100萬。他想這個價碼應該會讓對方知難而退了，想不到不說也就算了，對方還真的欣然答應，他這才發現，原來自己的身價比自以為的還要高出許多。
他還是沒有打算離職，但也不想委屈自己，就去跟老闆提到B公司多出了100萬年薪來挖角的事情，然後告訴自己的老闆，如果公司願意多出50萬，他就留下來。
他在A公司的總經理和他談判了價格，最後答應加碼35萬，換取他留下來繼續工作。
過了不到半年，他在工作上不小心搞砸一個專案。每一個人都會犯錯，這其實是人之常情。他開始在公司裡聽到耳語，有其他主管在茶餘飯後的閒聊中，轉述總經理的抱怨，提到｢早知道半年前就不要加他的薪水，讓他去B公司，我們今天也不會發生這個錯誤…｣
沒多久，他就離開A公司了。
這個故事，我很幸運在年輕的時候就聽到，也一直謹記在心裡。如果我對薪水有問題，我可以直接和我的主管討論我的薪資，要麼他接受我的請求、要麼他不接受。如果他不接受而我決定離職，我需要在離職的時候還告訴他說，我是為了薪水而離職的嗎？如果我對於升遷有所期待，我也提出了期望，要麼我的主管同意會在可預見的將來升遷我到較高的職位上、要麼他提出各式各樣的理由來解釋為什麼還沒有輪到我。如果他最終否決我的期望而我因此決定離職，我再一次地告訴他我是為了別家公司提供更高的職位而離職的，究竟對這件事情有什麼幫助？
在我還是人資主任的某段時光，我曾和主管當面討論關於我的發展，他斬釘截鐵地認為，我再待三到四年才是來討論人資經理這個職位的時機，而且就算這樣也都還算是太早的。當時的我，對於這樣的評論並不服氣，更巧的是，就在那次討論的不久之後，就有願意提供我人資經理頭銜的公司向我招手。經過了面試，我最後決定離職前往該公司任職。你覺得，我應不應該告訴我的主管我正是為了更高的職位而離職？
這就是我說的：｢當提出離職申請的時候，到底還希望公司改變些什麼？｣
可能的理由有二個。其中一個是，你和你的主管交情不錯，或者公司過去待你真的不差，你雖然要離職了，還是希望可以提出一些建言，而這些意見可以讓公司變得更好。
很榮幸地，自己遇過一兩位（對，從我轄下離職的眾多部屬中其實也只有一兩位）部屬離職的時候，願意告訴我真心話。我不是完美的主管、也並非待在完美的公司裡，總是會有人願意出我出不起的高薪或頭銜挖角我的部屬、或者我的部屬現在馬上就可以找到一個更大的可以發揮的舞台、或是某些被我忽視的部屬其實是個不可多得的人才……。如果員工願意在離職的時候說出真心話，確實是可以讓主管檢視一下某些環節是否有改善的可能，小至自己的管理風格、部門內的工作分配、作業流程，大到組織文化、公司的薪資福利競爭力，若能檢討並改善，將有助於提升公司或部門的工作條件，也可以有效降低未來可能繼續發生的離職率。亡羊補牢，講的就是這麼一回事。
很多營運績效很好的公司，甚至會有「畢業生聯誼會」這一類的組織，公司主動和離職員工保持一定的關係，從離職員工那邊可以聽到一些對公司有意義的建言。
問題是，你的主管或是你的公司，聽得進離職員工的建議，而且反省並檢討改進嗎？這就是我推測可能的另一個理由：你在提出離職建言以前，沒有真的想清楚。
我以前待過一家公司，董事長把每一個離職的主管當作公司的叛徒一樣看待，還特別交代人資要在這些人的個人基本資料上註記「永不錄用」。這真的太可笑，因為幾乎不會有任何離職主管還打算要回任，做這樣的註記大概只有自我安慰的功能。在我的職涯中也聽過不只一次，有離職員工坦白地告知自己的離職原因，主管不僅沒有反省或檢討，還急著為自己或公司的立場提出辯解，甚至最後雙方吵起來的。
從另外一個角度觀之，有沒有一種情況是，離職員工所提出的建言，其實並沒有太多參考價值？答案當然是肯定的。我待過另外一家高科技公司，正好經歷了這家公司由盈轉虧的時期，公司幾乎完全阻擋不了優秀員工的離職潮。當時的我年紀輕輕，有一天決定告訴我的主管我心裡的疑問：「公司應該大幅加薪以留下優秀的員工，而不是讓人才不斷地流失到其他公司去。」我的主管沉吟了片刻以後回答我說：「如果你有一天找到更好的工作，我也會同樣祝福你。」
現在的我回想起這段往事，覺得自己當年真的無知得有點過分。確實，並不是所有由離職員工所提出來的建言都有正面幫助，這就像是顧客心聲一樣，也許並非所有顧客的意見都是對的，但並不代表公司應該漠視。就算離職員工所提的建言是出於誤解或是偏見，考慮到員工離職了以後可能繼續待在同一個產業裡、或者可能繼續是公司產品的忠實客戶，花一些時間和離職員工溝通並維繫關係其實仍然是有幫助的。
真正有趣的是，那些平時就願意花時間和部屬溝通彼此觀點的差異的主管，多半會變成那種部屬願意在離職的時候告訴你真心話的主管。而那些平常不願意聽部屬意見的主管，到了部屬要離職的時候，也不太可能會把離職員工的意見聽進去。所以如果你的主管平常就不太把你的意見當一回事，你為什麼覺得你的離職建言會得到他的傾聽？
現在讓我們回到最開始的問題：｢到底應不應該把自己真正的離職原因告訴主管？｣
要聽別人回答這個問題，你還不如先問自己：你的主管是個什麼樣的人？他是個虛心學習還是剛愎自用的人？他把部屬當成一個團隊的夥伴，或者他常常展現出高高在上的官威？他是心胸寬大還是經不起批評？
問完這些問題，你自己就已經知道答案了。

離職時，請為自己留下漂亮的身影

轉自：離職時，請為自己留下漂亮的身影
有位優秀的資深員工要離開他工作多年的公司，好員工離職對公司總是項損失，更何況是跟著公司一起從草創到成熟期的員工，擁有多方面的技術能力，聽說上層為了要慰留此位員工，給了張空白支票讓這位員工隨意開條件，只要可以配合與做得到的，公司都願意安排。
這位員工跟阿姐說，他不願意簽下這張空白支票，離職的起心動念非一朝一夕，那壓倒駱駝的最後一根草已然壓頂，該說的也都說了，因此也就沒甚麼可以讓他有繼續留下來的動力。即使如此，這位員工還是配合公司的要求，多留了一些時日，多做些職務的知識與技能移轉。

請為自己留下漂亮的身影

這位正值盛年的員工跟阿姐說，公司還在等他的回覆，但他去意已堅，只是不知道要如何跟主管說自己仍舊決定離職，雖然公司與主管還是想方設法的給了他一些不同的工作選項與機會。這位員工說在提出離職時，高層找他面談，他總會忍不住抱怨那位跟他工作共事上不愉快的某位同事；
現在想想這樣的說法，好像讓大家以為他的離職都是因為這位同事引起，其實冰凍三尺非一日之寒，自己也有自己的人生規畫，那個當下的不悅，剛好將種種歸咎於此位同事，不過如果還要再提工作上的不愉快，仍會說是那位同事讓他在工作上覺得無法再繼續忍受了。
阿姐見此員工去意已堅，也不想說甚麼慰留的話，阿姐說：「既然這樣，阿姐會祝福你的下一個人生規畫。但是可否請你下次跟主管提時，是否可以不要再抱怨那位讓你不開心的同事，是否請你用感恩的心感謝的話語，好好的謝謝主管長期對你的栽培與照顧，是否可以讓自己用正向的心念離開。」　
阿姐說：「這麼說，是給別人一個活路，也給自己一個退路。阿姐也希望你能在你即將離開公司的十幾個日子裡，是一位充滿正面能量的同仁。如果你在外面闖盪後，覺得這裡還是你最喜歡的場域，以你這樣的優秀員工，公司一定會伸開雙臂歡迎你的。 好的公司就是你職場的家，你職場的家永遠會是你最後的避風港；但前提是，你必須為自己留下活路與退路，不要在離開時將話說絕了。也因此停止抱怨開始感謝，來改變自己也改變別人對你負面離職原因的觀感。」

若無法離開就停止抱怨，若選擇離去更不要抱怨

職場的人來人去是一場場的緣起緣滅，每一段緣起緣滅都須好好經營，阿姐曾在過去的碎碎唸文提過，若無法離去就停止抱怨；阿姐也要說，若選擇離去更不能抱怨。 因為當你選擇離開卻在即將離開的場域開始或持續抱怨時，彷彿是在有意無意間對繼續留在這個場域的人們進行撻伐。 每一段職場姻緣若無法完美，也須給自己留下一個漂亮的身影，那漂亮的身影是在離開前的不悲不喜不卑不亢。
在阿姐年輕時的年代，女性過了三十還沒出嫁，就會有閒言閒語產生，因此阿姐在適婚年齡時，母親就急著安排相親。母親總跟阿姐說要表現的得體，相親時即使遇到不是喜歡的對象，也不能當下擺起臉色，要給對方良好的印象，要讓對方有一種沒有福份與你交往的遺憾，而不是讓互相覺得不順眼的不愉快過程。 職場就是一場場的相親與交往，縱使不如意不滿意，也要給自己留下一個漂亮的身影，一個曾經有過但無法擁有的漂亮身影。

有理三扁擔 無理扁擔三

轉自：有理三扁擔 無理扁擔三
在我的職場生涯中，我永遠不能忘記的是一個血淋淋的畫面。在一個開闊的大辦公室中，兩位同事忽然大聲爭吵起來，緊接著就是其中一位同事，拿起桌上的茶杯朝對方砸過去，命中對方臉頰，眼鏡碎裂，血流如注。
接著辦公室大亂，同事們慌張的拉開扭打在一起的雙方。 事實上，行兇的這一位同事是一位好好先生，他的粗暴行為完全出乎所有人的意外，事後他當然受到了應有的懲罰。
但了解整個過程的其他同事都替他抱不平。因為他長期受到另一位同事的欺壓，但是主管卻從來視而不見，完全不處理，那天他終於忍無可忍，血腥的悲劇就發生了。
英式橄欖球是我的最愛，在橄欖球場上打架的場景也屢見不鮮，關鍵就在於裁判。橄欖球講究全法衝撞，身體接觸頻繁，難免互相傷害，如果裁判明察秋毫，哨音明快果決，那麼打架的場景不會出現。
但如果裁判猶豫不決，縱容小動作，那麼球員們就會自力救濟，打群架的事就一定會發生。 裁判決定了球賽的氣氛與品質，也讓球賽能順利進行。
同樣的，辦公室的領導者，決定了組織的文化，也決定了職場能否在合理的規則下運作，主管就是辦公室的裁判，決定了辦公室能否和諧有效的運作。
辦公室中的爭執難免發生，工作團隊成員之間難免有好惡、嫌隙，但是職場的規則、倫理，是每一個工作者必須依循的準則，而主管則是糾紛發生時的最後裁決者，也是秩序維護者。
「有理三扁擔，無理扁擔三」，則是領導者最常見的毛病。許多主管生性善良，不忍苛責任何人；有些主管則基本上是非不明，事理不分；有些主管則根本是怕事的爛好人，看到麻煩，只會躲起來。這些人都有可能出現「有理三扁擔，無理扁擔三」的結果。
理論上，任何糾紛一定有是非對錯，規勸、告誡、處罰犯錯的人，還對的人公道，是主管必須執行的任務。只有在極少數的狀況下，雙方各有對錯，才會出現各打三十大板的現象，這就是「有理三扁擔，無理扁擔三」的處理方法。
不幸的是，大多數的領導者為了維持表面的團隊和諧，經常出現這種「各打三十大板」的是非不明現象，這就是組織價值混亂，內部紛爭不斷的源頭。
公平裁判，還每一個工作者公道，從例行的績效考核、升遷獎勵，到爭執、衝突時的排難解紛，這都是領導者必須具備的基本能力。
主管可能無法察覺辦公室所有發生的細節，但明確昭告周知團隊成員，要用辦公室倫理工作，合理相互對待，不得逾短，可以避免成員間爭執的發生。
而一旦發生爭執，主管的哨音要即時響起，並明確裁斷是非，更可以顯示主管維持秩序，公平裁判的決心。
「各打三十大板」，只是主管常犯的裁判錯誤之一，錯判、誤判與無知不明是另兩種常見的錯誤。
在每一次裁判的過程中，領導者一定要有足夠的耐性，仔細了解實況、過程與兩造的說法，有必要時要採取第三者的旁證，務期還原真象，避免錯判、誤判。至於因為無知而不了解組織內發生的糾紛，這就是主管更大的問題。
如果一位主管連團隊內的衝突、糾紛都一無所知，這恐怕不只是不能公平裁判而已，你根本就是一位不進入狀況，完全不稱職的主管！

做錯這8件事後，才發現我不會管理！一個主管的認錯告白

轉自：做錯這8件事後，才發現我不會管理！一個主管的認錯告白
我工作幾十年，其中大部分時間在創業，但是從工作滿一年起，我就當了主管，從管幾個人一直到管幾十個人、到幾百人。可是我真正體會到我是一個主管，而且真的會當主管，是最近20幾年前的事。換句話說，我在錯誤中，做了10幾年的主管，這其中不知誤了多少事？浪費了多少青春？走了多少冤枉路？
所幸我的入門工作很特別，我是記者，在全國最有影響力的報紙工作。因此，當第二年我就升上主管的職位時，我只要策畫、指揮新聞採訪，競爭激烈的媒體生態，每天進行的同業間新聞評比，自動讓每一位記者全力以赴，主管所需要的管理：激勵、協調、訓練等功能，記者自己會自動完成，完全不需要我這「主管」費心。
一直到我創業，才感覺困難重重，我不知道如何建立團隊、不知道選人、不知道訓練、不知道激勵、不知道協調溝通、不知道如何考評。甚至我連罵人都不會，有一次我想教訓、糾正一個部屬，講了半個小時結束之後，這個人高高興興走了——他竟然以為我在誇獎他！
我知道我的問題大了，我開始努力學習當主管，我也才知道部屬不見得會自動自發，他們需要教育、訓練、規範、激勵，而組織團隊中隱藏著無數的問題，這都需要主管花工夫去完成。
我努力學了5年，在錯誤中我交了無數的學費，一點一滴我終於慢慢學會當主管，我才分清楚工作者與主管的差異，我創業的公司，也才從倒閉沉淪邊緣，慢慢的浮上水面，逐漸好轉。事後我知道，這一切，都是因為我不會當主管、不會管理，我害了自己、害了組織、害了公司，浪費了金錢，錯過了青春與虛耗了時間！

第1錯：自己努力做事

我犯的第一個錯誤是自己努力做事，忘了讓部屬做事。
我是一個能幹的人，當了主管之後，又誤解了「身為表率」的道理，老是身先士卒，繼續努力自己做，我認為我的效率高，10件事，我做了5件，其他人只剩5件，大家應該都會感激我才對。再加上有些事，別人確實不太會做，我又認為，與其交給他們做不好，我還要善後，不如我直接就做好。就這樣，我忙得像熱鍋上的螞蟻，但是事情還是做不好。
直到我想清楚，主管是讓大家做事，以大家的成果為成果，我下決心，除非萬不得已，絕不自己動手，事情就改變了，我得到一個結論，也成為我教育新主管的帝王條款：叫別人做事，別自己做，好主管是：喝茶看報，治大國如烹小鮮，集合眾力完成工作。

第2錯：認為所有人都自動自發

我犯的第二個錯誤是，我是個自愛的人，我最討厭別人說我，我也因此假設別人會自動自發，做好所有的事，我不會罵人，也不想罵人，頂多只是迂迴的暗示一下。
這就是前面笑話產生的原因，我下了決心，和部屬談他的問題，之前還說了許多肯定的話，怕他不舒服，但問題輕描淡寫，結果他以為我在肯定他，而我仍然不知如何是好。
事實的真象是，有人自動自發，有人自律不佳，更有人想法不正確，需要導正規範，我的友善，被部屬認為是是非不明的「濫好人」。好人做死，並心生怨懟，壞人心存僥倖，依然故我，結果是劣幣驅逐良幣。
當我頓悟之後，事情完全改觀。記得在看二月河的《康熙大帝》時，學到一句話：「雷霆雨露、俱是皇恩」，我知道賞與罰，都是主管重要的工具，現在的我，要求規範部屬，熟練到不行，從暗示輕輕說，到明示正經說，到生氣重重說，無所不會。

第3錯：不知也不會給激勵

我的第三個錯誤是不知也不會在口頭上給激勵，這也和我「不喜別人說我」的性格有關，我對自己超有自信，不在乎別人的肯定。問題是我也假設別人不需要多餘的「口惠」，只要薪資上的評價公平就好。
有一次，一個能力很強的同事告訴我：我從來沒有肯定他所做的事，讓我大吃一驚，因為事實並非如此，他值得肯定的事太多了，而我竟然從來沒有開口過。
從此我知道，主管的金口有多重要，「愛他要說出來」，不止是有好事要肯定，就算只有進步，但仍然不夠好，也要肯定，因為人是在被激勵中，才會快速學習成長，卡內基訓練不就是以此為核心精神嗎？

第4錯：忽視考核、討厭考核

我不喜歡被評價，尤其是當工作者時老是被不公平對待，因此當上主管，我討厭考核，也刻意忽視考核。
我相信兩眼所見，也盡可能給所有的工作者正確的相對評價，問題是當忙於工作，我會忘了許多該做的事，尤其是當要管的人越來越多時（超過20人），其實你兩眼所見的評價已經開始失真，你會看不到許多默默不顯眼的工作者，這時候一個客觀的考核方法就是需要的。
不要自視聰明，聰明人尤其看不到那些努力做事、但並不聰明的人的貢獻。

第5錯：不會當裁判

好的主管是要讓部屬發揮「一加一大於二」的效益，因此團隊和諧非常重要；而和諧的第一步，不是讓內部不爭不吵，而是制定好的規則，讓爭執可以被約束與導止，而主管就是這個執法者、是裁判。
我創業的過程中，通常是用較少人力，因此事情做不好，人力不足是最大的藉口，我很少想到是團隊內部互動不佳所造成的績效不彰。而我不會排難解紛、不會當裁判，又是其關鍵性的原因。
「有理三扁擔，無理扁擔三」，各打50大板是我過去常幹的事，爭執發生時，我總是希望和諧，對於錯的人不忍苛責，對於對的人當然就不公平，結果當然是內部嫌隙頻生，又怎能發揮良好的團隊協調呢？
明快處理、是非分明，是我現在的作風，該裁判吹哨子時，我絕不會遲疑！

第6錯：喜歡聰明人，團隊同質性高

我的同事都知道我討厭三種人：「笨、懶、慢」，理論上這三種人在我的組織中，都不易存活，這也造成了我組織中的不平衡，團隊成員的同質性高，生態不平衡。
事實上，高效率的團隊應是多元的組合，苦工有人做，聰明的方法也有人會用，而我期待大家都是聰明人，都行動迅速，結果是有些思慮周詳，緩緩而來的人含恨而去，這是我犯的第六個錯誤。
組成一個複雜多元的團隊，快慢兼備、癡慧融合，是我現在最大的思考。

第7錯：愛護部屬，忘了老闆

或許是同情弱者，在早期當主管的歷程中，我一向站在員工部屬這邊，以他們的角色、立場自居，而忘了老闆與組織的存在。
一旦老闆與部屬有利益衝突時，我通常捍衛員工的利益，尤其在創業初期，我甚至忘了我就是資方，只要不能給工作者更好的待遇，我就痛苦不堪，結果是，公司的營運負擔更沉重。
這應也是大多數主管常犯的毛病，以工頭自居，以工作者利益為先，而忽視了組織的經營能力能否負擔。
後來我做了調整，主管是「雙方代表」，有時在勞方，有時在資方，在內心你要正確的選擇，讓上下的天秤能保持平衡。「工頭」與「老闆的走狗」都不是正確的位置。

第8錯：不知主管是專業，忘了虛心學習  

我當主管的錯誤當然還有很多，但最後一個錯誤我用「以為主管是良知良能，不知虛心學習」做總結。
其實主管是一項專業，他需要各種不同專業技能，他需要有正確的態度，他負擔事情的成與敗，他影響到工作者的命運，可是大多數的主管，竟然都是因一種專業技能而升官，或財務、或業務……，可是一旦升為主管，所有的困難都發生。不幸的是，企業內缺乏主管的養成訓練，學院中也沒有「主管學」，每一個人都是在摸索中、嘗試錯誤中完成學習。
我就花了14年才學會，而且是完成後才知道「主管學」的博大精深，專業分工細密。但是，如果我「早知道」，其實一年也可以有小成，兩年早可以畢業，根本不需要走這一趟冤枉路。
圖片來源：Lloyd Morgan via Flickr, CC Licensed

第一次騎車上路練腳力，居然被小摺超車

緣起：
長期以來，缺乏運動，因為老婆想要一件風衣，2015花現龍井單車逍遙遊挑戰組52K完成後紀念衫，2016/01/03開賽，所以現在(2015/12/03)也該開始練習了。
計畫：
從家裡(大肚遊園路)到公司(五權西路)，總共約8K，現在每天騎腳踏車上下班還來的及吧...
清晨：
早上07:25出發，從山上一路騎下來，沿路涼風徐徐，大約有6K左右是下坡，最後1.5K左右有一個陸橋(茷子溪橋)，有點高低起伏的坡度，踩阿踩的到公司，居然也滿頭汗了....，果然，太久沒運動，都快老態龍鍾囉....
下班：
5:35開始從統健大樓(公司)出發，過了茷子溪橋，開始挑戰上坡，約1K以後...氣喘如牛，2K以後臉色發青，雙腳微發抖，龍頭亂歪(踩不動，車速太慢)，這時，突然，一個黑影從旁邊不疾不徐的過去....
定睛一看，原來是一個外勞，騎著小摺，從我旁邊晃過去，被小摺超車了?.....，太汙辱人了，叔可忍，嬸不可忍，馬上一股男子氣概從胸口往腳底湧泉穴狂竄，追.....
一路上憑著一口氣，狂追前方的小摺，可是....大叔阿你也太猛了，一台小摺，你不急不徐的踩著，可我怎ㄇ都追不上啊????一直咬著對方的屁股，就是追不上
好不容易，對方停下來了，原來是紅燈了，終於追上了，擦亮眼一看，原來您老...作弊阿，騎電動小摺~!@#$....我說大叔阿，騎電動小摺，幹嘛沿路還踩腳踏車啊?還哼著小曲...這不捉弄人嘛....
追上對方感覺上好像騎了很遠??其實6K的上坡路大概只騎ㄌ一半左右....天堂路好長阿....
最後真的沒氣，腿軟，雙腿發抖，上氣不接下氣，進的氣少，出的氣多，快葛屁了...只好把腳踏車牽上人行道，邊騎邊休息，沿途還跳車用牽的，牽ㄍ50M之後繼續還頭苦幹....
後記：
最後，終於到家了，統計戰果共花了1HR又10分，沿途跳車牽3次....這還只是8K，52K.....我...要...努...力......

10 幅圖，看完後改變你對人生的態度....

1.向你伸出手的人

不一定都真心想救你

2.你永遠無法滿足所有人!

3.擁有資源多少並不重要，

如果你不懂得利用，永遠都是不夠的

4.別放棄，再堅持一下就到成功彼岸

5.方向不對，愈努力愈糟糕

6.看事物的角度，決定了你對事物的認識

7. 有時候生活不輕鬆，

就看你選擇走什麼樣的路

8.不要墨守成規，敢於創新才能打敗對手

9.也許有一天，

你發覺日子特別的艱難，

那可能是這次的收穫 特別巨大

10. 生活要懂得苦中作樂

換個角度看事情

給自己一個笑容，

也許就可以為你帶來一天的好心情喔~

感冒為什麼不要一直吃藥

真是一位有良心的醫師，看了才知道為何這麼多醫師說

感冒吃西藥只是「把病往裡趕」，消除症狀不表示把病治好，

"知"才能保護家人與孩子的健康，

目前過敏與氣喘的小孩非常多，值得深思！

 
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.低調作人你會一次比一次穩健
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多歲的老人家了，一直站著也會吃不消的。」
「你沒跟他說？他不知道嗎？！」
姑娘回應說，這怎麼能說？知道了他就坐不踏實了。姑娘抿著嘴眨了眨眼。

列車員回頭瞅了瞅睡著的老大爺，然後把票給了姑娘，小聲說：「跟我去餐廳吧，我幫你找個座。」跟前的幾個人都聽到了，讚歎著給姑娘讓出一條道。

姑娘彎下腰，從座位下拿出了自己的拐杖...剛才被感動的人們，心底像被什麼擊中了一般，深深地被震撼了。

【選擇善良】
不是我軟弱。因為我明白，善良是本性，做人不能惡，惡必遭報應。

【選擇忍讓】
不是我退縮。因為我明白，忍一忍風平浪靜，讓一讓天高海闊。

【選擇糊塗】
不是我真的糊塗，面對誤解委屈和不公正，只是不願計較，因為我知道人在這世上並不長久；計較那麼多沒用，從而大度應對，難得糊塗，笑看世態。

【選擇饒恕】
不是我沒原則。因為我明白，得饒人時且饒人，不能把事做絕了，更不能把話說狠了，別把自己的路給斷了。

【選擇真誠】
我有話就直說。因為我明白，違心奉承是應付，忠言逆耳是負責。也許說的太直接無形中去傷害到他人，要學著圓融，但我也必需是真誠，學著對己是方對外是圓。

【重情重義】 不是我太執著。因為我總是想著與朋友們相處的美好時光，割捨不了那份難得的緣分和情誼，不應該掩飾內心的情感，我明白欺騙沒有好下場，背叛沒有好結果。重情使我這一生很辛苦，但我也必需要做個有情人，而不濫情。

【選擇厚道】
不是因為我笨拙。因為我明白，厚德能載物，助人能快樂。
原來，善良也可以如此美妙。

你曾多少次，误解了别人？

《吕氏春秋》里有一段，讲孔子周游列国，曾因兵荒马乱，旅途困顿，三餐以野菜果腹，大家已七日没吃下一粒米饭。

　　一天，颜回好不容易要到了一些白米煮饭，饭快煮熟时，孔子看到颜回掀起锅盖，抓些白饭往嘴里塞，孔子当时装作没看见，也不去责问。

　　饭煮好后，颜回请孔子进食，孔子假装若有所思地说：「我刚才梦到祖先来找我，我想把干净还没人吃过的米饭，先拿来祭祖先吧！」

　　颜回顿时慌张起来说：「不可以的，这锅饭我已先吃一口了，不可以祭祖先了。」

　　孔子问：为什么？

　　颜回涨红脸，嗫嗫地说：「刚才在煮饭时，不小心掉了些染灰在锅里，染灰的白饭丢了太可惜，只好抓起来先吃了，我不是故意把饭吃了。」

　　孔子听了，恍然大悟，对自己的观察错误，反而愧疚，抱歉地说：「我平常对颜回已最信任，但仍然还会怀疑他，可见我们内心是最难确定稳定的。弟子们大家记下这件事，要了解一个人，还真是不容易啊！」

所谓知人难，相知相惜更难。逢事必从上下、左右、前后各个角度来认识辨知，我们主观的了解观察，只是真相的千分之一，单一角度判断，是不能达到全方位的观照的！

　　当你要对一个人下结论的时候，想想：

　　真的你所看到的才是事实吗？

　　还是你只从一个面，一个点，去观察一个人呢？

　　大多数的人根本不了解对方的立场与困难的时候，就已经给了对方下评语了，更何况是在有利益冲突下的场合。

　　现今的人们拥有高学历高知识，却往往过度仰赖高知识，而忘了让自己在智慧上成长。

　　很多事信者恒信，不信者恒不信，要客观地跳出成见，才有机会接近真相。

　　连孔圣人也会对自己最信任的弟子起疑心，更何况我们呢？

　　我们是不是也常常因为“亲眼所见、亲耳所闻”，对他人产生了某种印象，从而为他人打上某种“标签”呢？

　　孔圣人可以当下就用智慧，轻易了解真相，消除误会，可是我们呢？

　　有多少人，因为自己的“亲眼所见”，尤其是亲密关系里，从此耿耿于怀，甚至怀恨在心......可悲的是，到死都不知道，其实是自己“看错了”？！

两个人交流时，其实是6个人在交流：你以为的你，你以为的他，真正的你；他以为的他，他以为的你，真正的他。

　　你想，这里边会有多少误会，会有多少误解？

　　你总在和“你以为的他”交流，你知道“真正的他”的想法吗？

　　你是否又觉察到真正的你？你自己的内心的需要是什么？对方的需要又是什么呢？

　　你曾经多少次误解了你的家人、朋友和同事？

与老人沟通，不要忘了他的自尊；

与男人沟通，不要忘了他的面子；
与女人沟通，不要忘了她的情绪；
与上级沟通，不要忘了他的尊严；
与年轻人沟通，不要忘了他的直接；
与儿童沟通，不要忘了他的天真。

一种态度走天下，必然处处碰壁；因地制宜，因人而异，多怀感恩心、才能四海通达。

 

倚天屠龍記內一些名句

＊　空固是空，圓亦是空，我相人相，好不懵懂 
＊　事情推物理，人生貴適意。想人間造物搬興廢，吉藏凶，凶藏吉。富貴那能常富貴？日盈昃，月滿虧蝕。地下東南，天高西北，天地尚無完體。展放愁眉，休爭閒氣，今日容顏，老於昨日。古今往來，盡需如此，管他閒的愚的，貧的和富的。到頭這一身，難逃那一日。受用了一朝，一朝便宜。百歲光陰，七十者稀。急急流年，滔滔逝水。」 
＊　「無我相，無人相，無眾生相，無壽者相。」 
＊　空故是空，圓亦是空。我相人相，好不懵懂。 
＊ 　生亦何歡，死亦何奪？為善除惡，能光明教，喜樂悲愁，皆歸塵土。 憐我世人，憂患實多，憐我世人，憂患實多！ 

================================================================
*「無我相，無人相，無眾生相，無壽者相。」 

這一句是出自《金剛經》。《金剛經》是一部介紹大智慧的經典，在裡面，須菩提長老向佛陀提問：「云何應住，云何降伏其心？」(我們的心應該停住在何處？當我們的心浮燥不止的時候，又該如何降伏它？)此時佛陀給出的回答就是『不要執著於表相』，佛陀將相大致上分成四種，分別是我相、人相、眾生相、壽者相。 

我相，就是執著於我。小時候對於玩具，執著於『這是我的』，別人想拿去玩我們會生氣。長大後這個執著會更放大及於身旁的許多事物，得到了、順心了，就高興；失去了，不順利，就難過生氣。無我相就是希望能放下對於『我』這個概念的執著。 

人相，就是執著於人我的分際。工作上被上司指責，我們會對上司心裡不滿；情感上受創，我們會怪對方為什麼不懂我們的感情；面對子女，我們又常常將自己的期望強加在子女身上，而忘記子女本身的情緒。因此人與人之間爭執不斷。無人相就是希望我們能『超越人我之間的分別』，用現代的話來話，就是『將心比心，換位思考』。 

眾生相，就是人相的進一步擴充，從原本的『你-我』，擴大到『你-我-他』，再進一步推到萬事萬物。例如我不喜歡被欺負，因此我體會到被欺負的人的心情，而不去欺負別人，更進一步思考到小貓小狗也是生命，不應該欺負牠們，再更進一步體會到玩偶、玩具(如胡迪、巴斯)需要好好愛惜。因此無眾生相，用現代的話來說，就是『推己及人，一視同仁』。 

壽者相，就是人對生死的態度。一般人都是貪生怕死，這是人之常情。無壽者相就是希望我們能破除這種對生命的『貪戀』。愛惜生命是正確的，但是過度就不好了。例如臨終之時猶放不下，各式急救、電擊，硬是要把本來已死之人的生命延長個一、兩小時，除了增加痛苦之外，並沒有什麼實質上的好處。 

我相、人相、眾生相、壽者相，其實歸根到底，這四者的源頭是相同的，就是佛家所說的『我執』。因此佛陀希望人不要執著在這種表相之上。 


*空故是空，圓亦是空。我相人相，好不懵懂。 

從「無我相，無人相，無眾生相，無壽者相」下來，我們就可以知道，空固然是一種相，圓也是一種相，空跟圓表面上是相異的兩種性質，但是本質上都是空，並沒有什麼不同。 

佛家講究『四大皆空』，四大是印度文化，指的是「地大、水大、火大、風大」，以「地、水、火、風」四種元素，泛指世間的一切事物。(古中國講的是「木、火、土、金、水」五行；古印度講的是「地、水、火、風」；古希臘講的是「土、水、火、空氣」。) 

所以從『四大皆空』的角度來說，空的本質是空，圓的本質也是空，那麼執著於空跟圓的不同，就跟執著我相人相一樣，都是迷迷糊糊的。懵懂，心裡不明白。 

*生亦何歡，死亦何奪？為善除惡，能光明教，喜樂悲愁，皆歸塵土。憐我世人，憂患實多，憐我世人，憂患實多！ 

這一段跟我記得的有點出入，不過沒關係。 

「生亦何歡，死亦何奪？」生有什麼好高興的？死又奪去了我們什麼？ 
如果破除了『我執』，進入了『無壽者相』的境界，自然在心境上就超越了生死。 

「為善除惡，惟光明故。」做善事、除惡事，都是因為我對光明神的信仰。 
在超越了生死之外，也超越了善惡的分別，而一切都歸依在光明神的信仰之中。光明，這裡有兩種說法，一個是指古波斯祆教的火神；另一個也是源自波斯一帶的摩尼教的主神摩尼，摩尼有光明的意思。一般認為摩尼教的主神摩尼，是傳自阿拉伯，與伊斯蘭教的真主阿拉、猶太教的主神耶和華是同一位，但更可能的，摩尼應該是結合了伊斯蘭的真主阿拉與古祆教的火神所誕生的一種信仰。 

「喜樂悲愁，皆歸塵土。憐我世人，憂患實多。」喜樂悲愁，是人的四種情緒，這裡泛指人的一切情緒。皆歸塵土，表示它們的重要性就像塵土一樣，這裡指超越了各種情緒。 
在超越了生死，超越了善惡，超越了喜樂悲愁，一切歸於光明之後，仍留下了一種心態，就是『憐』。憐什麼？憐世人的憂患仍多，這是一種類似佛家的『慈悲為懷』。 

自己的憂患算不了什麼，但是仍在意世人的憂患，這是一種類似布袋和尚的『放下』與『背起』，『放下』是放下自己的一切，『背起』是背起世人的一切。 

*事情推物理，人生貴適意。想人間造物搬興廢，吉藏凶，凶藏吉。富貴那能常富貴？日盈昃，月滿虧蝕。地下東南，天高西北，天地尚無完體。展放愁眉，休爭閒氣，今日容顏，老於昨日。古今往來，盡需如此，管他閒的愚的，貧的和富的。到頭這一身，難逃那一日。受用了一朝，一朝便宜。百歲光陰，七十者稀。急急流年，滔滔逝水。 

「事情推物理，人生貴適意。」從事情的演進可以推演事物的道理，因為道理總是蘊藏在事物的演進之中；而人生最重要的，就是心意的舒適，心如果被綁住了，就不舒適了。 

「想人間造物搬興廢，吉藏凶，凶藏吉。富貴那能常富貴？」人間造物，指的是大自然，也就是道家所說的『造化』。興廢，興盛與衰亡。這裡用一個『搬』字，在《愚公移山》的故事裡，最後山是被大力神給搬走的。其實大力神，也暗喻著自然造化。在自然界中，造山運動固然可以從海裡升起一座山，而風與水的風化作用，也可以慢慢地讓一座山消失。因此「想人間造物搬興廢」，就是「想想，大自然的力量可以造成滄海變桑田，高山變平地，也可以造就一個王朝的興盛與衰亡。」 

因此，人力有時而窮，吉凶又哪能輕易被人預知？所以吉藏凶，凶藏吉，遇到好事的時候，很可能其實這是壞事的開端，而在面對壞事的時候，很可能裡面其實藏著好事，這就是『塞翁失馬，焉知非福』的道理。所以人生無常，富貴哪能常富貴？富貴的時候要心懷感謝，並作好隨時失去富貴的心理準備。 

「日盈昃，月滿虧蝕。」昃，日偏西的意思。日盈昃，太陽升到正午最高的時候，就開始向西方落下；月滿虧蝕，滿月時月亮最圓的一瞬間，月亮就開始虧蝕了。什麼是『最好』？往往『最好』兩字的意思就隱含了開始變壞。 

「地下東南，天高西北，天地尚無完體。」古中國傳說，火神祝融與水神共工大戰，結果共工打輸了，一氣之下頭撞不周山，把不周山給撞斷了。不周山是天柱，撞斷以後天就塌了。女媧斬殺了一隻靈龜，用牠的腳代替不周山撐起了天，並煉五色石，把破掉的天補好。但是靈龜的腳所造的天柱與原來不周山的高度有差，因此從此以後天地就是西北高而東南低，河流也都向東流。「地下東南，天高西北」用的就是這個傳說。天地尚無完體，因為這個傳說，天地也是有缺陷的，不完美的，那麼人生又怎麼會完美呢？ 

「展放愁眉，休爭閒氣。」人在煩惱不開心的時候，眉頭是皺起來的。展放愁眉就是叫人把皺著的眉頭放開，不要不開心。既然人生不完美，就不要太執著在這個上面，不要煩惱太多，也不要爭執一些不必要的事情。閒，不必要的。氣，爭執。 

「今日容顏，老於昨日。」指時光流逝是不可逆的，今天一定比昨天老。 

「古今往來，盡需如此。」從古到今，都是同樣的這個道理。 

「管他賢的愚的，貧的和富的。」不管是聰明的還是笨的，貧窮的還是有錢的，這個道理放在他們身上，也是一樣不變的。 

「到頭這一身，難逃那一日。」那一日，指死亡的那一天，人都一定會死。 

「受用了一朝，一朝便宜。」因為人都會有死的一天，現在馬上死了也是可能的。所以多享受了一天，等於就是多賺到了一天。 

「百歲光陰，七十者稀。」古中國人認為，人的天年是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]);

▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼