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 结合正确的url

Delphi 获取access中的表名

Delphi 一个整数转其二进制表示的小函数

Delphi xe taskbar按钮用法

为Delphi的控制台程式添加公司信息、版权信息

Delphi xe ioutils tpath(结构体) 的方法与属性

Delphi socket connect timeout 套字节链接超时设置

Delphi研究之驱动开发篇（六）--利用section与用户模式程序通讯(上)

Delphi 遍历控件

Delphi中指针和地址切换的方法

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

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