说明: function GetDelimiteredStringN(Astring:String;Dlmter:Char;nPos:integer):string; var sList:TStringList; begin Result:=''; sList:=TStringList.Create; sList.Text:=StringReplace(Astring,Dlmter,#13#10,[rfReplaceAll]); if (nPos>0) and (sList.Count>= <lxh7777> 上传 | 大小:167kb