지정된 기호 사이의 문자열을 가로채기(무작위로 읽기) 델파이 예제 코드

复代码代码如下:

단위 Unit1;

인터페이스

용도

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

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

유형

TForm1 = 클래스(TForm)

테스트: TMemo;

버튼1: T버튼;

메모1: TMemo;

절차 Button1Click(Sender: TObject);

사적인

{ 비공개 선언 }

공공의

{ 공개 선언 }

끝;

var

Form1: TForm1;

구현

{$R *.dfm}

function PosEx(const Source, Sub: 문자열; Index: 정수): 정수;

var

버프 : 문자열;

i, Len, C : 정수;

시작하다

C := 0;

결과 := 0;

Buf := 소스;

i := Pos(하위, 소스);

Len := 길이(하위);

내가 <> 0 하는 동안

시작하다

Inc(C);

Inc(결과, i);

삭제(Buf, 1, i + Len - 1);

i := Pos(Sub, Buf);

C >= Index이면 Break;

i > 0이면 Inc(Result, Len - 1);

끝;

C < Index이면 Result := 0;

끝;

절차 TForm1.Button1Click(Sender: TObject);

var

i,y:정수;

x,c:문자열;

g,g1:정수;

시작하다

무작위화; //생성随机数种子

i:=random(30);

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

끝;

끝.