Delphi 搜索某个字的位置 [带重复]


本文整理自网络,侵删。

 用了Case,Copy实现了这个功能有兴趣下载试试 
这个程序就类似与文本的查找搜索功能!

代码:

Var Str :String;
ii :Integer;

procedure TForm1.Button1Click(Sender: TObject);
Var
Change,i :Integer;
begin
Case RG.Checked of
False:
begin
if Pos(FindEd.Text,Str) = 0 then
MessageBox(Handle,'找不到你要的字符','出错',MB_OK)
else
begin
Change :=Pos(FindED.text,Str);
ii :=Change+ii;
Str :=Copy(Str,Change+1,Length(Str)-Change+1);
OutLB.Caption :=InttoStr(ii);
end;
end;
True:
begin
Change :=Pos(FindED.text,Str);
ii :=Change+ii;
Str :=Copy(Str,Change+1,Length(Str)-Change+1);
OutLB.Caption :=InttoStr(ii);
if Change = 0 then
begin
ii :=0;
Str :=WideString(InputEd.Text);
end;
end;
end;

end;

procedure TForm1.InputEDChange(Sender: TObject);
begin
ii :=0;
Str :=WideString(InputEd.Text);
end;

相关阅读 >>

Delphi sizetostr 文件大小转换kb mb gb tb

Delphi 取windows登录用户名

Delphi 简单电池电量显示

Delphi 正则表达式tperlregex 详解

Delphi 捕捉异常 try except语句 和 try finally语句用法以及区别

Delphi遍历指定目录下指定类型文件的函数

Delphi中的unicode转换

Delphi 判断iso文件,iso文件头, iso filehead

Delphi xe6 grid试用结果

Delphi 完美的线程注入和卸载

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...