delphi 根据关键字取关键词以后的字符串

本文整理自网络，侵删。

 
function GetStrtoend(StrSource, StrBegin: string): string; // (源字符串，开始字符串)
var
  in_star: Integer;
begin
  in_star := AnsiPos(StrBegin, StrSource);
  Result := copy(StrSource, in_star, length(StrSource) - in_star + 1);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Text:=GetStrtoend(Memo1.Text,'Memo1');
end;
 

相关阅读 >>

Delphi firedac与ado读写数据的性能测试

Delphi 判断目录是否可写

Delphi ioutils 获取当前目录下所有的文件/文件夹

Delphi xe5实现的一个阳历转换成阴历的代码

Delphi xe5 android 使用system.zip单元释放资源文件

Delphi 中 16 进制转换为 10 进制

Delphi 判断目录是否有写入权限

强大的Delphi rtti--兼谈需要了解多种开发语言

Delphi 限制tedit控件只能输入数字,小数点和负号

Delphi 通过注册表获取系统版本和cpu型号

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

转载请注明出处：木庄网络博客 » delphi 根据关键字取关键词以后的字符串