freeware之一函數 isGB(value: string): Boolean;似乎有問題 |
|
答題得分者是：azurecloud
|
|
ry_lee
高階會員   發表：368 回覆：251 積分：123 註冊：2002-03-19 發送簡訊給我 |
我有downloadu 一個freeware,看到其原始碼覺得怪怪,你们看是否應將if (value[1] <= #161) and (value[1] >= #247) then 之 and改為 or ,如下是原始碼: function isGB(value: string): Boolean;
begin
if (length(value)>=2) then
begin
if (value[1] <= #161) and (value[1] >= #247) then
Result := false
else
if (value[2] <= #161) and (value[2] >= #254) then
Result := false
else
Result := true
end
else
Result := true;
end;
|
|
azurecloud
中階會員 發表：52 回覆：108 積分：92 註冊：2003-09-04 發送簡訊給我 |
Hi, ry_lee 您好：
小弟不才，看了您的問題後思考了很久，突發奇想，請您參考看看： 笛摩根定律(DeMorgan’s Laws)中，a'。b'= (a or b)'(抱歉加號印不出來
) 所以第一個 if 可改
為 if not ((value[1] > #161)or(value[1] < #247)) then
Result := false 第二個同上，您以為如何，這個解釋可行嗎？ ========================
我要努力向上~~[/h5]======================== |
發表時間：2003-12-05 01:51:24
IP:203.70.xxx.xxx 未訂閱
系統時間：2024-10-02 3:08:40
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |