小弟作一個LOOP要秀出LOOP內容,確無法秀出 |
答題得分者是:pprayer
|
K1086
初階會員 發表:63 回覆:148 積分:42 註冊:2007-04-09 發送簡訊給我 |
[code delphi] VAR opk12:array[1..14] of STRING; if Kang_1 = '甲' then FOR I:=1 TO 14 DO op12.Caption :=op12.Caption opk12[I] ' '; STTEMP:='0203060920232526293032353639'; for i:=1 to 14 do begin j:=i*2-1; opk12[i]:=copy(STTEMP,j,2); [/code]end; OP12.CAPTION 正常要秀出 STTEMP 的號碼,但就是一片空白,請問各位前輩指導是錯在那,謝謝! |
K1086
初階會員 發表:63 回覆:148 積分:42 註冊:2007-04-09 發送簡訊給我 |
[code delphi] VAR opk12:array[1..14] of STRING; if Kang_1 = '甲' then FOR I:=1 TO 14 DO op12.Caption :=op12.Caption opk12[I] ' '; STTEMP:='0203060920232526293032353639'; for i:=1 to 14 do begin j:=i*2-1; opk12[i]:=copy(STTEMP,j,2); end;[/code] 不好意思前面貼程式用錯方式,重新再貼一次,請教各位前輩,為何op12.Caption無法秀出STTEMP的內容,謝謝! |
pprayer
高階會員 發表:35 回覆:185 積分:174 註冊:2002-03-13 發送簡訊給我 |
不知道這樣是不是你要的?
[code delphi] VAR opk12:array[1..14] of STRING; if Kang_1 = '甲' then STTEMP:='0203060920232526293032353639'; for i:=1 to 14 do begin j:=i*2-1; opk12[i]:=copy(STTEMP,j,2); end; FOR I:=1 TO 14 DO op12.Caption :=op12.Caption opk12[I] ' '; [/code] ===================引 用 K1086 文 章=================== [code delphi] VAR opk12:array[1..14] of STRING; if Kang_1 = '甲' then FOR I:=1 TO 14 DO op12.Caption :=op12.Caption opk12[I] ' '; STTEMP:='0203060920232526293032353639'; for i:=1 to 14 do begin j:=i*2-1; opk12[i]:=copy(STTEMP,j,2); end;[/code] 不好意思前面貼程式用錯方式,重新再貼一次,請教各位前輩,為何op12.Caption無法秀出STTEMP的內容,謝謝! |
K1086
初階會員 發表:63 回覆:148 積分:42 註冊:2007-04-09 發送簡訊給我 |
===================引 用 pprayer 文 章=================== 不知道這樣是不是你要的? [code delphi] VAR opk12:array[1..14] of STRING; if Kang_1 = '甲' then STTEMP:='0203060920232526293032353639'; for i:=1 to 14 do begin j:=i*2-1; opk12[i]:=copy(STTEMP,j,2); end; FOR I:=1 TO 14 DO op12.Caption :=op12.Caption opk12[I] ' '; !! 加上的這二行程式 是會秀出 可是沒有經過 if Kang_1 = '甲' 就會自動秀出 可否再告知 如何修改 才會經判斷才秀呀! 謝謝 pprayer [/code] ===================引 用 K1086 文 章=================== [code delphi] VAR opk12:array[1..14] of STRING; if Kang_1 = '甲' then FOR I:=1 TO 14 DO op12.Caption :=op12.Caption opk12[I] ' '; STTEMP:='0203060920232526293032353639'; for i:=1 to 14 do begin j:=i*2-1; opk12[i]:=copy(STTEMP,j,2); end;[/code] 不好意思前面貼程式用錯方式,重新再貼一次,請教各位前輩,為何op12.Caption無法秀出STTEMP的內容,謝謝! |
pprayer
高階會員 發表:35 回覆:185 積分:174 註冊:2002-03-13 發送簡訊給我 |
|
K1086
初階會員 發表:63 回覆:148 積分:42 註冊:2007-04-09 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |