請問各位版大..如果A=甲,已,炳,丁...然後THEN
if (A='甲' or A='已'or A='炳' or A='丁') then
想請問各位版大有個簡潔的寫法嗎?
謝謝.

如果你要判斷的都是一個字

data := '甲,已,炳,丁';
if Pos('甲', data) > 0 then ...


ps. Pos 在舊版Delphi 找不到回應 0
在 XE 版本會回應 -1,
而 Pos 在舊本是 Pos = AnsiPos
在 XE 下, Pos 是unicode, 如果是 big5 , 建議改用 AnsiPos

有幾個方向可以思考
用 stringList 配合 case
用 combox 配合 case
或是
字串陣列
等等....

[code delphi]
case combox.itemindex of
0:begin
end;
1:begin
end;
else
end;
[/code]


===================引 用 smallmi 文 章===================
請問各位版大..如果A=甲,已,炳,丁...然後THEN
if (A='甲' or A='已'or A='炳' or A='丁') then
想請問各位版大有個簡潔的寫法嗎?
謝謝.

編輯記錄