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 关闭自己,重新运行

Delphi 利用windows api判断文件共享锁定状态

Delphi xe5读取android imei id

Delphi xe中泛型数组的使用范例

Delphi bytestofile

Delphi midstr 返回指定范围内的字符串

Delphi 生成并替换txt里的内容

Delphi pagecontrol1 另类隐藏页的方法

Delphi memo1文本搜索并高亮

indy tidtcpclient 在网络掉线时的处理方法

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

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