- 注册时间
- 2011-3-6
- 最后登录
- 1970-1-1
该用户从未签到
|
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(分隔符,字符串,要获取第几个字段的内容)
函数返回该字段的内容。 |
|