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(分隔符,字符串,要获取第几个字段的内容) 

函数返回该字段的内容。 
复制代码

 

posted on   癫狂编程  阅读(777)  评论(0编辑  收藏  举报

编辑推荐:
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
· 没有源码,如何修改代码逻辑?
· 一个奇形怪状的面试题:Bean中的CHM要不要加volatile?
· [.NET]调用本地 Deepseek 模型
· 一个费力不讨好的项目,让我损失了近一半的绩效!
阅读排行:
· 全网最简单!3分钟用满血DeepSeek R1开发一款AI智能客服,零代码轻松接入微信、公众号、小程
· .NET 10 首个预览版发布,跨平台开发与性能全面提升
· 《HelloGitHub》第 107 期
· 全程使用 AI 从 0 到 1 写了个小工具
· 从文本到图像:SSE 如何助力 AI 内容实时呈现?(Typescript篇)
历史上的今天:
2018-12-09 SQL Server Profiler的简单使用,方便查找和发现SQL执行的效率和语句问题
2018-12-09 Sql Server性能优化辅助指标SET STATISTICS TIME ON和SET STATISTICS IO ON
2018-12-09 SQLServer 查看SQL语句的执行时间
2018-12-09 Delphi 检查文件是否存在
2018-12-09 delphi如何模块内部获得自身路径ExtractFilePath和paramstr(0)
2018-12-09 Delphi GetCurrentDir 获取当前文件夹
2018-12-09 Delphi对ini文件的操作

导航

< 2025年3月 >
23 24 25 26 27 28 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31 1 2 3 4 5
好的代码像粥一样,都是用时间熬出来的
点击右上角即可分享
微信分享提示