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
· 浏览器原生「磁吸」效果!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文件的操作