截取指定符号之间的字符串(随机读取)delphi实例代码

当当外婆 發表於 2013-12-21 15:49:51

截取指定符号之间的字符串(随机读取)delphi实例代码

<div class="codetitle">复制代码 代码如下:</div><div class="codebody" id="code17225"> 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. </div>

 <div class="art_xg">
 您可能感兴趣的文章:<ul><li>Delphi7中群发Email邮件的方法</li><li>delphi实现保存和读取图片的方法</li><li>Delphi远程连接Mysql的实现方法</li><li>Delphi创建开机启动项的方法示例</li><li>Delphi编程常用快捷键大全</li><li>Delphi实现获取句柄并发送消息的方法</li><li>Delphi实现木马文件传输代码实例</li><li>Delphi实现限定软件使用时间的方法</li><li>delphi字符串分隔函数用法实例</li></ul>
 </div>

 </div>

頁: [1]

琼殿技术论坛's Archiver

截取指定符号之间的字符串(随机读取)delphi实例代码