معلومات المنتج:
الوحدة 1؛
واجهة
الاستخدامات
Winapi.Windows، Winapi.Messages، System.SysUtils، System.Variants، System.Classes، Vcl.Graphics،
Vcl.Controls، Vcl.Forms، Vcl.Dialogs، Vcl.StdCtrls؛
يكتب
TForm1 = الفئة (TForm)
اختبار: تميمو؛
Button1: TButton؛
مذكرة 1: مذكرة؛
الإجراء Button1Click(Sender: TObject);
خاص
{ تصريحات خاصة }
عام
{ التصريحات العامة }
نهاية؛
فار
Form1: TForm1؛
تطبيق
{$R *.dfm}
وظيفة PosEx(const Source, Sub: string; Index: integer): integer;
فار
بوف: سلسلة؛
أنا، لين، C: عدد صحيح؛
يبدأ
ج := 0;
النتيجة := 0;
بوف := المصدر؛
i := Pos(Sub, Source);
لين := الطول(الفرعي);
بينما أنا <> 0 أفعل
يبدأ
المؤتمر الوطني العراقي (ج)؛
Inc(النتيجة، أنا)؛
حذف(Buf, 1, i + Len - 1);
i := Pos(Sub, Buf);
إذا كان C >= فهرس ثم فاصل؛
إذا كنت > 0 ثم Inc(Result, Len - 1);
نهاية؛
إذا كان C < الفهرس ثم النتيجة: = 0؛
نهاية؛
الإجراء TForm1.Button1Click(Sender: TObject);
فار
أنا،ذ:عدد صحيح؛
س، ج: سلسلة؛
g,g1:عدد صحيح;
يبدأ
عشوائية. // 生成随机数种子
أنا:=عشوائي(30);
ص:=i+1;
ج:='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:=نسخ(c,g,g1-g);
memo1.text:=x;
نهاية؛
نهاية.