奇怪的 ifthen

發文回覆瀏覽次數：1729

推到 Plurk!

推到 Facebook!

答題得分者是：sryang

blue
中階會員

發表：169
回覆：136
積分：81
註冊：2002-04-15

發送簡訊給我

#1 引用回覆回覆

發表時間：2019-09-03 16:43:09

IP:125.227.xxx.xxx 未訂閱

Hi,各位先進大家好:
如下,照理說,ifthen的條件滿足時應該執行前面的敘述,可是1的結果卻會顥示轉換錯誤,2則是正確執行,不知為何?
謝謝!
var
tmp: Variant;
1.
tmp := Null;
txtInvDate.Text := ifthen(VarIsNull(tmp), FormatDateTime('yyyy/mm/dd', Now()), FormatDateTime('yyyy/mm/dd', tmp));

2.
tmp := Null;
if VarIsNull(tmp) then txtInvDate.Text := FormatDateTime('yyyy/mm/dd', Now())
else txtInvDate.Text := FormatDateTime('yyyy/mm/dd', tmp);

sryang
尊榮會員

發表：39
回覆：762
積分：920
註冊：2002-06-27

發送簡訊給我

#2 引用回覆回覆

發表時間：2019-09-04 10:25:14

IP:59.127.xxx.xxx 未訂閱

不奇怪，函數的實值型態引數必須先執行取得值，才能傳入函數

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

編輯記錄

sryang 重新編輯於 2019-09-04 10:25:55，註解無‧

系統時間：2024-04-29 23:53:50

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！