ตัดสตริงระหว่างสัญลักษณ์ที่ระบุ (อ่านแบบสุ่ม) โค้ดตัวอย่างเดลฟี

复制代码代码如下:

หน่วย หน่วยที่ 1;

อินเตอร์เฟซ

การใช้งาน

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.กราฟิก,

Vcl.Controls, Vcl.แบบฟอร์ม, Vcl.Dialogs, Vcl.StdCtrls;

พิมพ์

TForm1 = คลาส (TForm)

ทดสอบ: TMemo;

Button1: T ปุ่ม;

Memo1: TMemo;

ขั้นตอน Button1Click (ผู้ส่ง: TObject);

ส่วนตัว

{ การประกาศส่วนตัว }

สาธารณะ

{ คำประกาศสาธารณะ }

จบ;

var

แบบฟอร์ม 1: TForm1;

การดำเนินการ

{$R *.dfm}

ฟังก์ชั่น PosEx (const Source, Sub: string; Index: integer): จำนวนเต็ม;

var

Buf : string;

ฉัน, เลน, C : จำนวนเต็ม;

เริ่ม

ค := 0;

ผลลัพธ์ := 0;

บุฟ := Source;

i := Pos(ย่อย, ที่มา);

Len := ความยาว (ย่อย);

ในขณะที่ฉัน <> 0 ทำ

เริ่ม

รวม(C);

Inc(ผลลัพธ์, i);

ลบ(Buf, 1, i + Len - 1);

ฉัน := Pos(ย่อย, Buf);

ถ้า C >= ดัชนี แล้ว Break;

ถ้าฉัน > 0 ดังนั้น Inc(ผลลัพธ์, Len - 1);

จบ;

ถ้า C < ดัชนี แล้วผลลัพธ์ := 0;

จบ;

ขั้นตอน TForm1.Button1Click (ผู้ส่ง: TObject);

var

ฉัน, y: จำนวนเต็ม;

x,c:สตริง;

g,g1:จำนวนเต็ม;

เริ่ม

สุ่ม; //生成随机数种子

ฉัน:=สุ่ม(30);

ย:=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;

จบ;

จบ.