Interceptar la cadena entre símbolos especificados (lectura aleatoria) código de ejemplo de Delphi

复制代码代码如下:

unidad Unidad1;

interfaz

usos

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

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

tipo

TForm1 = clase(TForm)

prueba: TMemo;

Botón1: TBotón;

Memo1: TMemo;

procedimiento Button1Click(Remitente: TObject);

privado

{ Declaraciones privadas }

público

{ Declaraciones públicas }

fin;

var

Formulario1: TForm1;

implementación

{$R *.dfm}

función PosEx(const Fuente, Sub: cadena; Índice: entero): entero;

var

Buf: cadena;

yo, Len, C: número entero;

comenzar

C:= 0;

Resultado := 0;

Buf := Fuente;

i := Pos(Sub, Fuente);

Len := Longitud(Sub);

mientras que yo <> 0 lo hago

comenzar

inc(C);

Inc(Resultado, i);

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

yo := Pos(Sub, Buf);

si C >= Índice entonces Romper;

si i > 0 entonces Inc(Resultado, Len - 1);

fin;

si C <Índice entonces Resultado: = 0;

fin;

procedimiento TForm1.Button1Click (Remitente: TObject);

var

i,y:entero;

x,c:cadena;

g,g1:entero;

comenzar

aleatorizar; //生成随机数种子

yo:=aleatorio(30);

y:=i+1;

c:='topfox000|topfox001|topfox002|topfox003|topfox004|topfox005|topfox006|topfox0007|topfox008|topfox009|tele 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:=Copiar(c,g,g1-g);

memo1.texto:=x;

fin;

fin.