截取指定符号之间的字符串(随机读取)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|电视oumysecret000|tellyoumysecret002|tellyoumysecret003|tellyoumysecret004|tellyoumysecret005|tellyoumysecret006|'+

'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;

结尾;

结尾。