Mencegat string antara simbol yang ditentukan (dibaca secara acak) kode contoh delphi

复制代码代码如下:

satuan Unit1;

antarmuka

kegunaan

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

Vcl.Kontrol, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

jenis

TForm1 = kelas(TForm)

tes: TMemo;

Tombol1: Tombol T;

Memo1: TMemo;

prosedur Button1Click(Pengirim: TObject);

pribadi

{ Deklarasi pribadi }

publik

{ Pernyataan publik }

akhir;

var

Formulir1: TForm1;

pelaksanaan

{$R *.dfm}

fungsi PosEx(Sumber const, Sub: string; Indeks: integer): integer;

var

Buf : tali;

i, Len, C : bilangan bulat;

mulai

C := 0;

Hasil := 0;

Penggemar := Sumber;

i := Pos(Sub, Sumber);

Len := Panjang(Sub);

sementara saya <> 0 melakukannya

mulai

inc(C);

Inc(Hasil, i);

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

i := Pos(Sub, Buf);

jika C >= Indeks maka Istirahat;

jika i > 0 maka Inc(Hasil, Len - 1);

akhir;

jika C < Indeks maka Hasil := 0;

akhir;

prosedur TForm1.Button1Click(Pengirim: TObject);

var

saya,y:bilangan bulat;

x,c:string;

g,g1: bilangan bulat;

mulai

mengacak; //生成随机数种子

saya:=acak(30);

kamu:=i+1;

c:='topfox000|topfox001|topfox002|topfox003|topfox004|topfox005|topfox006|topfox0007|topfox008|topfox009|televisi oumysecret000|beritahukan rahasiaku002|beri tahukan rahasiaku003|beritahukan rahasiaku004|beritahukan rahasiaku005|beritahukan rahasiaku006|'+

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

memo1.teks:=x;

akhir;

akhir.