為何當餘數是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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |