指定されたシンボル間の文字列をインターセプトする (ランダムに読み取られる) delphi サンプルコード

著者：Eve Cole 更新時間：2025-01-29 23:24:01

复制番号代番号次のように:

ユニットユニット1;

インタフェース

用途

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

Vcl.Controls、Vcl.Forms、Vcl.Dialogs、Vcl.StdCtrls;

タイプ

TForm1 = クラス(TForm)

テスト: Tメモ;

ボタン 1: T ボタン;

メモ1: Tメモ;

プロシージャ Button1Click(送信者: TObject);

プライベート

{ プライベート宣言 }

公共

{ 公的宣言 }

終わり;

変数

フォーム1: TForm1;

実装

{$R *.dfm}

関数 PosEx(const ソース、サブ: 文字列; インデックス: 整数): 整数;

変数

Buf : 文字列;

i、Len、C : 整数;

始める

C:= 0;

結果 := 0;

Buf := ソース;

i := 位置(サブ、ソース);

レン:= 長さ(サブ);

while i <> 0 do

始める

インク(C);

Inc(結果, i);

削除(Buf, 1, i + Len - 1);

i := Pos(Sub, Buf);

C >= インデックスの場合はブレーク。

i > 0 の場合、Inc(Result, Len - 1);

終わり;

C < インデックスの場合、結果 := 0;

終わり;

プロシージャ TForm1.Button1Click(送信者: TObject);

変数

i、y:整数;

x,c:文字列;

g,g1:整数;

始める

ランダム化; //随机数种子を生成

i:=ランダム(30);

y:=i+1;

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;

終わり;

終わり。

指定されたシンボル間の文字列をインターセプトする (ランダムに読み取られる) delphi サンプル コード

指定されたシンボル間の文字列をインターセプトする (ランダムに読み取られる) delphi サンプルコード