Перехватить строку между указанными символами (произвольное чтение) Пример кода Delphi

复制代码代码如下:

блок Unit1;

интерфейс

использует

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

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

тип

ТФорм1 = класс (ТФорма)

тест: TMemo;

Кнопка1: Кнопка T;

Памятка1: TMemo;

процедура Button1Click (Отправитель: TObject);

частный

{ Частные заявления }

общественный

{ Публичные заявления }

конец;

вар

Форма1: ТФорм1;

выполнение

{$R *.dfm}

функция PosEx(const Source, Sub: строка; Индекс: целое число): целое число;

вар

Буф: строка;

i, Len, C: целое число;

начинать

С := 0;

Результат:= 0;

Но := Источник;

я := Pos(Sub, Source);

Лен := Длина(Sub);

пока я <> 0 делаю

начинать

вкл(С);

Inc(Результат, я);

Удалить(Buf, 1, i + Len - 1);

я := Pos(Sub, Buf);

если C >= Индекс, то Break;

если i > 0, то Inc(Результат, Len - 1);

конец;

если C < Индекс, то Результат:= 0;

конец;

процедура TForm1.Button1Click(Отправитель: TObject);

вар

я, у: целое число;

х, с: строка;

г, г1: целое число;

начинать

рандомизировать; //生成随机数种子

я:=случайный(30);

у:=я+1;

c:='topfox000|topfox001|topfox002|topfox003|topfox004|topfox005|topfox006|topfox0007|topfox008|topfox009|телевизор oumysecret000|скажите ваммойсекрет002|скажитемойсекрет003|скажитемойсекрет004|скажитемойсекрет005|скажитемойсекрет006|'+

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

memo1.text:=x;

конец;

конец.