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;
FreeAndNil(Strs);
Result := ResultStr;
end;
GetFieldValue(分隔符,字符串,要获取第几个字段的内容)
函数返回该字段的内容。
页:
[1]