截取指定符号之间的字符串(随机读取)delphi实例代码
截取指定符号之间的字符串(随机读取)delphi实例代码
发布时间:2016-12-28 来源:查字典编辑
摘要:复制代码代码如下:unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System....

复制代码 代码如下:

unit Unit1;

interface

uses

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

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

type

TForm1 = class(TForm)

test: TMemo;

Button1: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

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

var

Buf : string;

i, Len, C : integer;

begin

C := 0;

Result := 0;

Buf := Source;

i := Pos(Sub, Source);

Len := Length(Sub);

while i <> 0 do

begin

inc(C);

Inc(Result, i);

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

i := Pos(Sub, Buf);

if C >= Index then Break;

if i > 0 then Inc(Result, Len - 1);

end;

if C < Index then Result := 0;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

i,y:integer;

x,c:string;

g,g1:integer;

begin

randomize; //生成随机数种子

i:=random(30);

y:=i+1;

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

memo1.text:=x;

end;

end.

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新Delphi学习
热门Delphi学习
编程开发子分类