FE016012015004020030003031001032005033003024001002005017015007030034003035001036005037003029001002005FFFF
我怎么才能知道位数分离出数字。
如：第21和22位数是03

毫无头绪 希望能把代码写出来，越详细越好。

編輯記錄

你的問題讓要回答的人不知道怎麼回答哦~~
位数分离出数字
==> 是指要每幾位就自動拆一組數字嗎?
==> 還是只是要拿固定的第 21 、22 位出來?
==> 還是拿第幾位的值來判斷要拿第 n 位的數字出來?

我也看的毫无头绪 希望能把【問題】寫的越详细越好


===================引 用 wq236589 文 章===================
FE016012015004020030003031001032005033003024001002005017015007030034003035001036005037003029001002005FFFF
我怎么才能知道位数分离出数字。
如：第21和22位数是03

毫无头绪 希望能把代码写出来，越详细越好。

------
價值的展現，來自於你用哪一個角度來看待它!!

編輯記錄

每三位提取数字不包括“字母”，提取从数字开始。（不包括FE  FF）

編輯記錄

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]

------
價值的展現，來自於你用哪一個角度來看待它!!

给个机会让我学习一下解释的越清楚越好 我大部分都看不懂

這樣呀~~~, 那建議你先買本 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]

------
價值的展現，來自於你用哪一個角度來看待它!!

編輯記錄