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;
 

相关阅读 >>

delph hash类

Delphi 如何识别应用程序没有响应

Delphi memo1双击选中的文字内容

Delphi winapi: getwindow - 获取与指定窗口具有指定关系的窗口的句柄

Delphi 解析json生成json

Delphi中输入框不能输入初数字意外的字符串的函数（isnumeric）

Delphi 除法 "/" 与 div 的不同

Delphi查找同一内网所有主机

Delphi 获取公网ip地址

idhttp访问网页出现socket error #10054错误

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

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