全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1256
推到 Plurk!
推到 Facebook!

小弟作一個LOOP要秀出LOOP內容,確無法秀出

答題得分者是:pprayer
K1086
初階會員


發表:61
回覆:142
積分:40
註冊:2007-04-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2013-10-31 20:09:55 IP:61.224.xxx.xxx 訂閱

[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
初階會員


發表:61
回覆:142
積分:40
註冊:2007-04-09

發送簡訊給我
#2 引用回覆 回覆 發表時間:2013-10-31 20:15:39 IP:61.224.xxx.xxx 訂閱

[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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2013-11-01 09:36:05 IP:59.120.xxx.xxx 訂閱
不知道這樣是不是你要的?

[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
初階會員


發表:61
回覆:142
積分:40
註冊:2007-04-09

發送簡訊給我
#4 引用回覆 回覆 發表時間:2013-11-02 20:01:14 IP:61.224.xxx.xxx 訂閱

===================引 用 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

發送簡訊給我
#5 引用回覆 回覆 發表時間:2013-11-07 08:38:18 IP:59.120.xxx.xxx 訂閱
VAR
opk12:array[1..14] of STRING;
if Kang_1 = '甲' then begin
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] ' ';
end;
K1086
初階會員


發表:61
回覆:142
積分:40
註冊:2007-04-09

發送簡訊給我
#6 引用回覆 回覆 發表時間:2013-11-07 10:27:38 IP:61.224.xxx.xxx 訂閱
謝謝 pprayer 給小弟回答這個問題,非常感謝你,問題已解決了!
系統時間:2017-12-17 23:40:40
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!