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;

推荐分享