iT邦幫忙

0

正航 Fastreport Delphi 多判斷 case of

想請問 有神人使用fastreport Delphi語言 寫case of成功過嗎?

我測試的時候這樣寫但他會報錯

Begin
	Num := [dsDataSet1."BillStatus"];
Case Num of
0:
	begin
	Memo18.memo :='未結案0';
	end
1:
	begin
	Memo18.memo :='已結案1';
	end
else
	begin
	Memo18.memo :='???????';
	end
end;

***結案 正航 fastReport不能用 Case of

1
海綿寶寶
iT邦大神 1 級 ‧ 2019-12-04 10:29:15

試試看

begin
    Num := [dsDataSet1."BillStatus"];
    Case Num of
          0: Memo18.memo := '未結案0';
          1: Memo18.memo := '已結案1';
        else Memo18.memo := '???????';
    end;
end;

選我最佳解答

看更多先前的回應...收起先前的回應...

http://docwiki.embarcadero.com/RADStudio/XE3/en/Declarations_and_Statements

Delphi 現在是 Embarcadero 的.學習語言的重要方式是參考官方文件.

zxc170170 iT邦新手 5 級 ‧ 2019-12-04 10:40:33 檢舉

嘗試過了結果還是不讓我存檔,因為錯誤的顯示框很小,他只停留在 Num 這邊,我也不確定原因~
https://ithelp.ithome.com.tw/upload/images/20191204/20106890G5bPW875iv.png,
我是在想是不是...不能用Case of!?

最下面有列錯誤訊息我看不清楚

Line 3/10 : Need 什麼東西 here

/images/emoticon/emoticon06.gif

zxc170170 iT邦新手 5 級 ‧ 2019-12-04 10:59:24 檢舉

我嘗試過把解析度放到最大,他畫面還是很小...
正航這邊只要打錯Code他都是這個顯示方式,
所以看這個顯示的其實不太準確.無解~我快放棄了

1.把 case of 的部份拿掉,可以過就表示是 case of 的原因
2.不用 case of ,就自己寫 if else 取代囉

0
fuzzylee1688
iT邦新手 1 級 ‧ 2019-12-04 15:55:06
	begin
	Memo18.memo :='未結案0';
	end -->沒加分號???
zxc170170 iT邦新手 5 級 ‧ 2019-12-04 17:37:27 檢舉

應該沒關係,是正航的FastReport沒辦法使用Case of

0
wilson1966
iT邦研究生 5 級 ‧ 2019-12-05 08:23:20

可把CASE WHEN寫在SQL 裡
簡單又明瞭

我要發表回答

立即登入回答