#define b2s(b)  ((b) ? ("true") : ("false"))
#define s2b(s)  (((s)=="true") ? (true) :(false))      Memo1->Lines->Add(b2s(true));
  if(s2b("true"))
    Memo1->Lines->Add("true");
  else
    Memo1->Lines->Add("false");
一般程式：
true
true
service 程式：
true
false

引言: 各位先進請先看小弟剛發表的這一篇： 【BCB】【發表】兩個巨集、inline 函數 [bool 轉字串]、[字串轉bool] http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38637 小弟最近在寫 windows services 程式，覺得和一般程式不太一樣… 很多獨立測試都沒問題的，一到了 service 程式裡面就不行了。 比如攔 window message的方式、巨集的寫法， 現在這一個就是上述連結的巨集指令問題： 在一般程式裡面都很正常，請看結果：

#define b2s(b)  ((b) ? ("true") : ("false"))
#define s2b(s)  (((s)=="true") ? (true) :(false))      Memo1->Lines->Add(b2s(true));
  if(s2b("true"))
    Memo1->Lines->Add("true");
  else
    Memo1->Lines->Add("false");
一般程式：
true
true
service 程式：
true
false

請問這是什麼原因呢?寫service 有沒有什麼要注意的?

shinnuei 你好:
(1)如果這個巨集這樣子寫的話，我在一般程式得到的結果是 true/false
   #define s2b(s)  ((s=="true") ? (true) :(false))
(2)如果這個巨集這樣子寫的話，我在一般程式得到的結果是 true/true
   #define s2b(s)  ((UpperCase(s)==UpperCase("true")) ? (true) :(false))
(3)不過我並沒有在 Service Application 做測試，建議你再試試看吧
( >
    --