delphi 数组问题 |
答題得分者是:careychen
|
wq236589
一般會員 發表:21 回覆:37 積分:16 註冊:2008-08-27 發送簡訊給我 |
|
careychen
尊榮會員 發表:41 回覆:580 積分:959 註冊:2004-03-03 發送簡訊給我 |
你的問題讓要回答的人不知道怎麼回答哦~~
位数分离出数字 ==> 是指要每幾位就自動拆一組數字嗎? ==> 還是只是要拿固定的第 21 、22 位出來? ==> 還是拿第幾位的值來判斷要拿第 n 位的數字出來? 我也看的毫无头绪 希望能把【問題】寫的越详细越好 ===================引 用 wq236589 文 章=================== FE016012015004020030003031001032005033003024001002005017015007030034003035001036005037003029001002005FFFF 我怎么才能知道位数分离出数字。 如:第21和22位数是03 毫无头绪 希望能把代码写出来,越详细越好。
------
價值的展現,來自於你用哪一個角度來看待它!!
編輯記錄
careychen 重新編輯於 2008-09-01 16:34:41, 註解 無‧
|
wq236589
一般會員 發表:21 回覆:37 積分:16 註冊:2008-08-27 發送簡訊給我 |
|
careychen
尊榮會員 發表:41 回覆:580 積分:959 註冊:2004-03-03 發送簡訊給我 |
HI, 請看看是不是你需要的
[code delphi] procedure TForm1.Button1Click(Sender: TObject); var PosI: Integer; sSample: String; begin // 此 Sample 沒有判斷字串之中是否還有別的英文字,如有請自行檢查 sSample := 'FE016012015004020030003031001032005033003024001002005017015007030034003035001036005037003029001002005FFFF'; // 扣除頭尾的英文 sSample := Copy(sSample, 3, Length(sSample)-6); PosI := 1; while PosI <= Length(sSample) do begin Memo1.Lines.Add(Copy(sSample, PosI, 3)); inc(PosI, 3); end; end; [/code]
------
價值的展現,來自於你用哪一個角度來看待它!! |
wq236589
一般會員 發表:21 回覆:37 積分:16 註冊:2008-08-27 發送簡訊給我 |
|
careychen
尊榮會員 發表:41 回覆:580 積分:959 註冊:2004-03-03 發送簡訊給我 |
這樣呀~~~, 那建議你先買本 Delphi 的書先看看,因為用討論區來問會很浪費你的時間,
因為不是你問了就有人馬上回答,你這樣的學習就太慢了 [code delphi] procedure TForm1.Button1Click(Sender: TObject); var PosI: Integer; // 宣告一個變數,是目前字串的位置 sSample: String; // 宣告一個變數,放你的例子 begin // 此 Sample 沒有判斷字串之中是否還有別的英文字,如有請自行檢查 sSample := 'FE016012015004020030003031001032005033003024001002005017015007030034003035001036005037003029001002005FFFF'; // 扣除頭尾的英文 // 使用 Copy 指令 Copy(要被 Copy 的字串,從哪裏開始,取多少的長度 // 因為你的 sample 裡【第三個字才是數字】,【頭尾共六個英文字】,所以用 總長度 (Length ) -6 個字 sSample := Copy(sSample, 3, Length(sSample)-6); // 從第一個字開始 PosI := 1; // 檢查是否字串位置是否已經到了字串的尾巴了 while PosI <= Length(sSample) do begin // Copy 的指令同上解釋,把讀出來的3 個字元放到 Memo1 這個元件裡 Memo1.Lines.Add(Copy(sSample, PosI, 3)); // 將 字串位置增加 3 個 ( 因為上面已經拿 3 個了,所以要跳 3 個位置再繼續 inc(PosI, 3); end; end; [/code]
------
價值的展現,來自於你用哪一個角度來看待它!!
編輯記錄
careychen 重新編輯於 2008-09-02 11:50:53, 註解 無‧
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |