String 提取操作問題

發文回覆瀏覽次數：755

推到 Plurk!

推到 Facebook!

答題得分者是：qoo1234

hcker
中階會員

發表：95
回覆：118
積分：62
註冊：2003-02-09

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-03-28 09:42:35

IP:218.19.xxx.xxx 未訂閱

280000000B9B0D86CA1720D2FB5A7A746E41BB3575CFCD7AD285FD1E017FCE93F9F6C5B0521725D1D75CD33E0F07108384D99AFB String,我想提取其中左邊開始15位以後到25位元的字元最後4位元的字元怎麼寫? 謝謝 ----------要知道自己有多笨，到DelphiK.Top來看看----------

qoo1234
版主

發表：256
回覆：1167
積分：659
註冊：2003-02-24

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-03-28 12:06:30

IP:218.163.xxx.xxx 未訂閱

procedure TForm1.Button1Click(Sender: TObject);
var
   source : string;
   i,j:integer;
begin
 source:='280000000B9B0D86CA1720D2FB5A7A746E41BB3575CFCD7AD285FD1E017FCE93F9F6C5B0521725D1D75CD33E0F07108384D99AFB';     //左邊開始15位以後到25位元的字元
 For i:=15 to 25 do
 Edit1.Text:=Edit1.Text source[i];
 
 //最後4位元的字元
 For j:=Length(source)-3 to Length(source) do
 Edit1.Text:=Edit1.Text source[j];
end;    結果：86CA1720D2F9AFB

網海無涯，學無止境!

系統時間：2024-05-16 19:08:27

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！