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函数指针，用于加载dll

Delphi 记事本与计算器的调用

Delphi 系统托盘组件 ttrayicon 简介

Delphi image 等比例缩小

Delphi中sendmessage详细资料

Delphi源码简单的实现粘贴复制代码

Delphi 技巧 以相同类名派生一个子类

ring3下清零结束进程的Delphi版本

Delphi 直接将html字符串读入webbrowser中

Delphi一句话获取本机ip

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

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