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 查找一个特定的exe是否在内存中运行

Delphi 数字签名添加器源码

Delphi读写utf-8、unicode格式文本文件

Delphi+access错误"不正常地定义参数对象。提供了不一致或不完整的信息。"

Delphi控件安装与删除

获取网络日期

Delphi webbrowser1 保存文档为 .mht

Delphi stringgrid之属性大全

Delphi tlistview(tlistbox+图标显示)

Delphi 移动客户端的路径的安全正确的写法

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

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