截取指定符號之間的字串(隨機讀取)delphi實例碼

複製程式碼如下：

單位1；

介面

用途

Winapi.Windows、Winapi.Messages、System.SysUtils、System.Variants、System.Classes、Vcl.Graphics、

Vcl.Controls、Vcl.Forms、Vcl.Dialogs、Vcl.StdCtrls；

類型

TForm1 = 類別(TForm)

測試：TMemo；

按鈕1：T按鈕；

備忘錄1：TMemo；

程序 Button1Click(寄件者: TObject);

私人的

{ 私人聲明 }

民眾

{ 公開聲明 }

結尾;

變數

表格1：TForm1；

執行

{$R *.dfm}

函數 PosEx(const Source, Sub: 字串; 索引: 整數): 整數;

變數

緩衝區：字串；

i、Len、C：整數；

開始

C := 0;

結果：= 0；

Buf := 源；

我：= Pos（子，源）；

Len := 長度(子);

當我 <> 0 時

開始

公司（C）；

Inc(結果, i);

刪除(Buf, 1, i + Len - 1);

i := Pos(Sub, Buf);

如果 C >= 索引則中斷；

如果 i > 0 則 Inc(Result, Len - 1);

結尾;

如果 C < 索引則結果 := 0;

結尾;

流程 TForm1.Button1Click(寄件者: TObject);

變數

i，y：整數；

x,c:字串；

g,g1:整數；

開始

隨機化； // 產生隨機數種子

我：=隨機（30）；

y:=i+1;

c:='topfox000|topfox001|topfox002|topfox003|topfox004|topfox005|topfox006|topfox0007|topfox008|topfox009|tellyoutellmysecret0000| mysecret006|'+

'onhacker046|onionhacker047|onionhacker048|onionhacker049|onionhacker140|onionhacker141|onionhacker142|onionhacker143|onionhacker144';

test.text:=test.text+inttostr(PosEx( c, '|',i));//回傳5

g:= PosEx( c, '|',i)+1;//返回5

test.text:=test.text+inttostr(PosEx( c, '|',y));//回傳5

g1:=PosEx( c, '|',y);//返回5

x:=複製(c,g,g1-g);

memo1.text:=x;

結尾;

結尾。