admin 管理员组

文章数量: 887021

一段字符串sdfg,d,ddd,ggg,bbb,取出根据指定的字符取出子字符串.

{

   sub:分隔串.

  sData:字符串

  i:第几个字符串

}
function SortStringList(sub:Char;sData: String;i:integer): String;
var
  AList:TStringList;
  Begin
    AList := TStringList.Create;
    Try
        AList.Delimiter := sub;
        AList.DelimitedText := sData;
        Result := AList.Strings[i];
    Finally
        AList.Free;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage (SortStringList(',','05,07,03,01',0));
end; 

本文标签： 一段字符串sdfg D DDD ggg bbb

版权声明：本文标题：一段字符串sdfg,d,ddd,ggg,bbb,取出根据指定的字符取出子字符串. 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/free/1699199886h336335.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。