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 lockbox 做加密解密

Delphi 中使用dialog api

Delphi想tstringgrid中添加和删除行的方法

Delphi 获取所有应用程序窗口标题 类似任务管理器

Delphi 处理以逗号分隔的长字符串

Delphi 比较两个位图是否相同

Delphi设置光标在edit右边

Delphi 10.3 断点调试相关快捷键

Delphi截取字符串 防止中文截断

Delphi dbgrideh footer的设置和使用

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

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