Delphi 获取指定字符串后面的所有的字符串


本文整理自网络,侵删。

 


function DeleteUntilLast(const Text, UntilLastStr: string): string;
var
  i: Integer;
begin
  Result := Text;
  i      := pos(UntilLastStr, Result);
  while i > 0 do
  begin
    Delete(Result, 1, i);
    i := pos(UntilLastStr, Result);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text:=DeleteUntilLast(Edit1.Text,Edit2.Text);
end;

相关阅读 >>

Delphi unigui 获取当前ip

Delphi 以bytes为单位获取文件大小

Delphi 获取文件修改时间

Delphi 如何从dll中检索导出函数的列表

minsperday:一天中有多少分钟

Delphi winapi: settimer、killtimer - 创建与移除高性能定时器

Delphi2007-Delphi2010 程序不出现在任务栏的方法

Delphi android实例-读取设备联系人(xe8+小米2)

Delphi tnotification android通知

Delphi文本文件的写操作

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



打赏

取消

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

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

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

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

评论

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