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 两种登录界面验证写法

Delphi webbroker 输出图片的问题

Delphi 如何判断字符串是否是有效email地址

如何在Delphi xe中通过ftp下载文件

Delphi xe5 android实现繁体字到简体字的转换函数

Delphi 中相对路径与绝对路径函数说明

Delphi 用input连续记录所输入的次数

Delphi 映像劫持编辑器

Delphi 日期字符串转换日期格式

Delphi 三种方式读取txt文本文件

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

转载请注明出处：木庄网络博客 » Delphi 获取指定字符串后面的所有的字符串