Intercepter la chaîne entre les symboles spécifiés (lus aléatoirement) exemple de code Delphi

复制代码代码如下 :

unité Unité1 ;

interface

utilise

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

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

taper

TForm1 = classe(TForm)

test : TMémo ;

Bouton1 : TButton ;

Mémo1 : TMémo ;

procédure Button1Click (Expéditeur : TObject);

privé

{ Déclarations privées }

publique

{ Déclarations publiques }

fin;

var

Formulaire1 : TForm1 ;

mise en œuvre

{$R *.dfm}

function PosEx(const Source, Sub : string ; Index : entier) : entier ;

var

Buf : chaîne;

je, Len, C : entier;

commencer

C := 0 ;

Résultat := 0;

Buf := Source ;

je := Pos(Sous, Source);

Len := Longueur(Sous);

pendant que je <> 0 fais

commencer

Inc(C);

Inc(Résultat, je);

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

je := Pos(Sub, Buf);

si C >= Index alors Break ;

si je > 0 alors Inc(Résultat, Len - 1) ;

fin;

si C < Index alors Résultat := 0 ;

fin;

procédure TForm1.Button1Click(Expéditeur : TObject);

var

je,y:entier;

x,c:chaîne;

g, g1 : entier ;

commencer

randomiser; //生成随机数种子

je:=aléatoire(30);

y:=i+1;

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

mémo1.text:=x;

fin;

fin.