為何當餘數是0 時確秀出不需要的雜數?? |
|
答題得分者是：P.D.
|
|
K1086
初階會員   發表：63 回覆：148 積分：42 註冊：2007-04-09 發送簡訊給我 |
問題是這樣的 比對值 是 9 0
TV1:=12 18 35 30 32 38; N2:= length(TV1) div 2; setlength(VSno,N2); for i:=1 to N2 do begin VSno[i-1]:= copy(TV1,i*2-1,2); // Lab_Kb1S.Caption:= Lab_Kb1S.Caption VSno[i-1] ' '; end; Lab_Kb1S.Caption:= ''; // 清空 for i:=1 to n2 do begin K2:= StrToIntDef(VSno[i-1],0); for M2:= 0 to length(vak)-1 do if(K2 mod 10) = vak[M2] Then //{隱藏0秀出} Lab_Kb1S.Caption:= Lab_Kb1S.Caption ' ' (IntTostr(k2)); Lab_Kb1S.Caption:= Lab_Kb1S.Caption ' ' (FormatFloat('00',K2)); end; =====程式 RUN 秀出 00 00 00 30 00 00 00 正常比對是 30 其餘因該不秀才正確==== 請教 PD 版主是 小弟程式引用錯誤了嗎?? 若比對值 12 或34 ..... 只要不是有0 就正確。 編輯記錄
taishyang 重新編輯於 2007-05-07 12:29:19， 註解 修改標題‧
|
|
taishyang
站務副站長  發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
|
|
K1086
初階會員 發表：63 回覆：148 積分：42 註冊：2007-04-09 發送簡訊給我 |
|
|
taishyang
站務副站長 發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
|
|
P.D.
版主  發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
請再仔細檢查一下你的程式碼, 我測過沒有問題, 的確只出現30 我是將你po上來的程式, 只改了一個變數值, 其餘都沒有改過
<textarea class="delphi" rows="10" cols="60" name="code">procedure TForm1.Button1Click(Sender: TObject); var tv1: string; vsno: array of string; i, n2, k2, m2: integer; vak: array[0..1] of integer; begin TV1:='121835303238'; vak[0]:= 9; vak[1]:= 0; N2:= length(TV1) div 2; setlength(VSno,N2); for i:=1 to N2 do begin VSno[i-1]:= copy(TV1,i*2-1,2); end; Lab_Kb1S.Caption:= ''; // 清空 for i:=1 to n2 do begin K2:= StrToIntDef(VSno[i-1],0); for M2:= 0 to length(vak)-1 do if(K2 mod 10) = vak[M2] Then Lab_Kb1S.Caption:= Lab_Kb1S.Caption ' ' (FormatFloat('00',K2)); end; end; </textarea> |
|
K1086
初階會員 發表：63 回覆：148 積分：42 註冊：2007-04-09 發送簡訊給我 |
|
|
P.D.
版主 發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
這是我測的結果畫面, 提供參考
抱歉, 我貼不上去, 請至下區查看 http://delphi.ktop.com.tw/board.php?cid=31&fid=130&tid=88415 ===================引 用 K1086 文 章=================== 謝謝 PD版主 提示 (好的) 小弟會再 測試程式 ===>有可能是某段執行時出現問題 |
|
taishyang
站務副站長 發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
|
|
K1086
初階會員 發表：63 回覆：148 積分：42 註冊：2007-04-09 發送簡訊給我 |
發表時間：2007-05-07 12:24:22
IP:220.131.xxx.xxx 訂閱
系統時間：2024-04-19 15:14:30
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |