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>=

delphi中如何读取有逗号分割符数据, function GetDelimiteredStringN(Astring:String;Dlmter:Char;nPos:integer):string; var sList:TStringList; begin Result:=''; sList:=TStringList.Create; sList.Text:=StringReplace(Astring,Dlmter,