Delphi 截取字符串的用法

本文整理自网络，侵删。

 
function Parse(text, sol, sag: string): String;
begin
  Delete(text, 1, Pos(sol, text) + Length(sol) - 1);
  Result := Copy(text, 1, Pos(sag, text) - 1);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
Caption:=Parse('123456789','12','89');     //结果 34567
end;
 

相关阅读 >>

Delphi 关于注释

dekphi qq自动发消息源码

Delphi之完美splash方案

Delphi 内存管理1

Delphi bmp 转换jpg

Delphi 如何得到动态链接库的输出函数tdump命令

Delphi 注释方法

Delphi 日期相关总结20190702完结篇

Delphi getrandompassword 生成随机密码

Delphi 全局键盘钩子(wh_keyboard)

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

转载请注明出处：木庄网络博客 » Delphi 截取字符串的用法