本文整理自网络,侵删。

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);beginMemo1.Text:=DeleteUntilLast(Edit1.Text,Edit2.Text);end;
相关阅读 >>
Delphi winapi: settimer、killtimer - 创建与移除高性能定时器
Delphi2007-Delphi2010 程序不出现在任务栏的方法
Delphi android实例-读取设备联系人(xe8+小米2)
Delphi tnotification android通知
更多相关阅读请进入《Delphi》频道 >>