線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1005
推到 Plurk!
推到 Facebook!

請問如何把數字做對調輸出

答題得分者是:P.D.
delsoul6104
一般會員


發表:2
回覆:1
積分:0
註冊:2008-06-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-06-16 15:33:09 IP:220.140.xxx.xxx 訂閱
假設a=12345
要寫出經過函式之後a會變成54321

for i as integer = X.length-1 to 0 step -1
tmp = tmp & X.substr(i,1).toString
Next

這是vb.net的寫法
如果改成delphi的話
要如何改寫才會相同呢~~

謝謝
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-06-16 16:30:13 IP:61.67.xxx.xxx 未訂閱
for i:= length(a) downto 1 do 
tmp:= tmp substr(a,i,1);
===================引 用 delsoul6104 文 章===================
假設a=12345
要寫出經過函式之後a會變成54321

for i as integer = X.length-1 to 0 step -1
tmp = tmp & X.substr(i,1).toString
Next

這是vb.net的寫法
如果改成delphi的話
要如何改寫才會相同呢~~

謝謝
編輯記錄
P.D. 重新編輯於 2008-06-16 16:30:52, 註解 無‧
delsoul6104
一般會員


發表:2
回覆:1
積分:0
註冊:2008-06-16

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-06-16 16:39:32 IP:220.140.xxx.xxx 訂閱
for i:= length(a) downto 1 do 
tmp:= tmp substr(a,i,1);

請問一下

delphi的copy跟substr差在那裡呢?
謝謝
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-06-16 17:56:44 IP:61.67.xxx.xxx 未訂閱
SORRY! 被你影響了, DELPHI沒有SUBSTR, 應該是用 COPY(A,i,1)
系統時間:2024-04-25 4:23:23
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!