如何解決在數字演算後 強制要秀出 0不要隱藏？ |
|
答題得分者是：Jasonwong
|
|
K1086
初階會員   發表：63 回覆：148 積分：42 註冊：2007-04-09 發送簡訊給我 |
|
|
Emulator
一般會員  發表：1 回覆：18 積分：8 註冊：2002-10-17 發送簡訊給我 |
|
|
Jasonwong
版主 發表：49 回覆：931 積分：581 註冊：2006-10-27 發送簡訊給我 |
|
|
K1086
初階會員 發表：63 回覆：148 積分：42 註冊：2007-04-09 發送簡訊給我 |
===================引 用 Jasonwong 文 章=================== FormatFloat('00',5); ===================以下是片段程式 begin i1[1]:= Kap_1; i1[2]:= Kap_2; i1[3]:= Kap_3; i1[4]:= Kap_4; i1[5]:= KBp_1; i1[6]:= KBp_2; for i := 1 to 6 do i2[1] := i1[1]; for i := low(i1) 1 to high(i1) do begin i2[i] := i1[i]; done := False; j := 1; repeat if i2[j] = i2[i] then begin i2[i] := i2[i] - 1; j := 1; end else begin inc(j); if j >= i then done := True; end; until done; end; s := ''; for i := low(i2) to high(i2) do s := s IntTostr(i2[i]) ' '; Lab_KB1.Caption :=s; Lab_KB1.Caption :=s; ---------->s是陣列秀出非單二位數 ，舉例是 01 02 03 15 25 08 所以小弟初學者不知 FormatFloat 這涵數要下到那裡 請版主不吝指導 謝謝！ |
|
Jasonwong
版主 發表：49 回覆：931 積分：581 註冊：2006-10-27 發送簡訊給我 |
<textarea class="delphi" rows="10" cols="60" name="code">
i1[1]:= Kap_1;
i1[2]:= Kap_2;
i1[3]:= Kap_3;
1[4]:= Kap_4;
i1[5]:= KBp_1;
i1[6]:= KBp_2;
for i := 1 to 6 do
i2[1] := i1[1];
for i := low(i1) 1 to high(i1) do
begin
i2[i] := i1[i];
done := False;
j := 1;
repeat
if i2[j] = i2[i] then
begin
i2[i] := i2[i] - 1;
j := 1;
end
else
begin
inc(j);
if j >= i then
done := True;
end;
until done;
end;
s := '';
for i := low(i2) to high(i2) do
//s := s IntTostr(i2[i]) ' ';
s := S FormatFloat('00',i2[i]) ' '; Lab_KB1.Caption :=s;
</textarea>
------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心 |
|
K1086
初階會員 發表：63 回覆：148 積分：42 註冊：2007-04-09 發送簡訊給我 |
===================引 用 Jasonwong 文 章=================== <textarea class="delphi" rows="10" cols="60" name="code"> i1[1]:= Kap_1; i1[2]:= Kap_2; i1[3]:= Kap_3; 1[4]:= Kap_4; i1[5]:= KBp_1; i1[6]:= KBp_2; for i := 1 to 6 do ????i2[1] := i1[1]; ????for i := low(i1) 1 to high(i1) do ????begin ???? i2[i] := i1[i]; ???? done := False; ???? j := 1; ???? repeat ????????if i2[j] = i2[i] then ????????begin ???????? i2[i] := i2[i] - 1; ???????? j := 1; ????????end ????????else ????????begin ???????? inc(j); ???????? if j >= i then ????????????done := True; ????????end; ???? until done; ????end; ???? ????s := ''; ????for i := low(i2) to high(i2) do ???? //s := s IntTostr(i2[i]) ' '; ???? s := S FormatFloat('00',i2[i]) ' ';???? ????Lab_KB1.Caption :=s; </textarea><br />  謝謝 版主 指導 小弟感謝您不吝指教
|
發表時間：2007-05-03 15:32:41
IP:220.131.xxx.xxx 訂閱
系統時間：2024-05-17 4:23:12
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |