Interceptar a string entre os símbolos especificados (ler aleatoriamente) código de exemplo delphi

复制代码代码如下:

unidade Unidade1;

interface

usa

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

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

tipo

TForm1 = classe(TForm)

teste: TMemo;

Botão1: Botão T;

Memo1: TMemo;

procedimento Button1Click(Remetente: TObject);

privado

{Declarações privadas}

público

{Declarações públicas}

fim;

var

Formulário1: TForm1;

implementação

{$R *.dfm}

função PosEx (const Fonte, Sub: string; Índice: inteiro): inteiro;

var

Buf: string;

i, Len, C : inteiro;

começar

C:= 0;

Resultado:= 0;

Buf := Fonte;

eu := Pos(Sub, Fonte);

Len := Comprimento(Sub);

enquanto eu <> 0 faço

começar

inc(C);

Inc(Resultado, i);

Excluir(Buf, 1, i + Len - 1);

eu := Pos(Sub, Buf);

se C >= Índice então Break;

se i > 0 então Inc(Resultado, Len - 1);

fim;

se C <Índice então Resultado: = 0;

fim;

procedimento TForm1.Button1Click(Remetente: TObject);

var

eu,y:inteiro;

x,c:string;

g,g1:inteiro;

começar

randomizar; //生成随机数种子

eu:=aleatório(30);

y:=i+1;

c:='topfox000|topfox001|topfox002|topfox003|topfox004|topfox005|topfox006|topfox0007|topfox008|topfox009|televisão oumysecret000|tellyoumysecret002|tellyoumysecret003|tellyoumysecret004|tellyoumysecret005|tellyoumysecret006|'+

'onionhacker046|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:=Copiar(c,g,g1-g);

memo1.texto:=x;

fim;

fim.