Delphi根据不同分隔符获取字符串内容


本文整理自网络,侵删。

 

function GetFieldValue(separator:Char;strLine: string; nNum: Integer): string;
var
  Strs :TStrings;
  ResultStr:string;
begin
  Strs := TStringList.Create;
  strs.Delimiter := separator;
  Strs.DelimitedText  := strLine;
  if nNum > Strs.Count then
     ResultStr := ''
  else
     ResultStr := Strs[nNum-1];

  FreeAndNil(Strs);
  Result := ResultStr;
end;

GetFieldValue(分隔符,字符串,要获取第几个字段的内容)

函数返回该字段的内容。

相关阅读 >>

Delphi 将 html 代码直接加入到 twebbrowser 组件中去

Delphi 关于datetimepicker的一点问题(同时修改日期和时间的实现)

Delphi 18位身份证号码的校验

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

Delphi调用createprocess创建进程

Delphi下的字符串分隔函数的一种用法

Delphi获取星期函数

Delphi 用webbrowser给要访问的页面加上referer(来路)参数

Delphi ord chr byte等转换

Delphi isthisleapyear 判断闰年

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...