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 getmem(mystring,1024);//开辟1024个字节freemem(mystring,1024);//释放

Delphi bytetype-单双字节判断

wmi cim_datafile的33个属性

Delphi 解决Delphi indy10下 utf8码转换的问题

crc32.pas 第二版

Delphi 批量删除同类文件的函数

Delphi中exit,abort,break,continue,halt,runerro 的区别

Delphi 的运算符列表

Delphi学习sql语句 - insert、update、delete

Delphi根据网络链接截取域名

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

转载请注明出处：木庄网络博客 » Delphi根据不同分隔符获取字符串内容