1. Delphi K.Top 討論區
  2. Delphi 新手問題 / 作業研討
  3. 小弟作一個LOOP要秀出LOOP內容,確無法秀出
全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數：1446
推到 Plurk!
推到 Facebook!

小弟作一個LOOP要秀出LOOP內容,確無法秀出
答題得分者是：pprayer
K1086
初階會員


發表：63
回覆：148
積分：42
註冊：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
初階會員


發表：63
回覆：148
積分：42
註冊：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
初階會員


發表：63
回覆：148
積分：42
註冊：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
初階會員


發表：63
回覆：148
積分：42
註冊：2007-04-09

發送簡訊給我
#6 引用回覆 回覆 發表時間：2013-11-07 10:27:38 IP:61.224.xxx.xxx 訂閱
謝謝 pprayer 給小弟回答這個問題,非常感謝你,問題已解決了!
系統時間：2024-05-08 11:41:30
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！
5151線上健康照護網 | 台灣西醫網 | 台灣中醫網 | 台灣牙科網 | 台灣照護網 | 趴趴狗旅遊網
大花蓮旅遊網 | 大花蓮民宿網 | 花蓮旅遊網 | 花蓮旅遊 | 花蓮旅遊 | 花蓮住宿
花蓮民宿網 | 花蓮旅遊 | 花蓮住宿 | 花蓮民宿 | 花蓮旅遊 | 花蓮民宿
花蓮住宿 | 大南投旅遊網 | 大南投民宿網 | 日月潭風景區 | 日月潭旅遊網 | 日月潭民宿網
日月潭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網
宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 台東旅遊網 | 台東民宿網
台東住宿網 | 台東旅遊網 | 台東民宿網 | 台東住宿網 | 台東旅遊 | 台東民宿
台東住宿 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 綠島旅遊網 | 綠島民宿網
綠島住宿網 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 集集旅遊網 | 集集民宿網
集集住宿網 | 關子嶺旅遊網 | 關子嶺民宿網 | 白河旅遊網 | 白河民宿網 | 心脈大師
尊榮牙醫診所 |