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];
//delphitop.com
  FreeAndNil(Strs);
  Result := ResultStr;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Text:=GetFieldValue(',', '123,456,789', 3); //GetFieldValue('分隔符', '内容：123,456,789', 取值)
end;
 

相关阅读 >>

Delphi idhttp造成程序假死的解决办法

Delphi 计算运行耗时的方法2

Delphi 运行时提升软件到管理员权限

Delphi 十六进制字符串转化成字符串输出hextostr strtohex（Delphi版、c#版）

Delphi在手机桌面图标上显示数字

Delphi Delphi tparallel cleanup needed用法

Delphi 把窗体上的所有edit清空怎么做

Delphi idhttp与cookie

Delphi record，两种声明方式

Delphi 获取internet缓存文件

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

转载请注明出处：木庄网络博客 » Delphi 获取带分隔符字符串中的字段值