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根据不同分隔符获取字符串内容
猜你喜欢
转载自www.cnblogs.com/jijm123/p/12010935.html
今日推荐
周排行