欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

歡迎來到入門教程網(wǎng)!

Delphi

當(dāng)前位置:主頁 > 軟件編程 > Delphi >

delphi字符串分隔函數(shù)用法實例

來源:本站原創(chuàng)|時間:2020-01-10|欄目:Delphi|點擊: 次

本文實例講述了delphi字符串分隔函數(shù)用法。分享給大家供大家參考。具體實現(xiàn)方法如下:

該實例可實現(xiàn)根據(jù)字符串Separator的表示將字符串s分隔為若干個字符串,存入rs字符串列表中,具體代碼如下:

復(fù)制代碼 代碼如下:
procedure SeparateTerms2(s:string;Separator:string;var rs:TStringList);
var
  AStr: string;
  idx: Integer;
  ASubStr: string;
begin
  AStr := Trim(s);
  while Pos(Separator, AStr) > 0 do
  begin
    idx := Pos(Separator, AStr);
    ASubStr := Copy(AStr, 1, idx - 1);
    rs.Add(ASubStr);
    AStr := Copy(AStr, idx + 1, Length(AStr));
  end;
 if AStr+'a' <> 'a' then  rs.Add(AStr); //如果存在剩余的字符串,則將其存入字符串列表中
end;

希望本文所述對大家的Delphi程序設(shè)計有所幫助。

上一篇:TImage組件實現(xiàn)保存圖片到Stream

欄    目:Delphi

下一篇:Delphi XE5 為Android應(yīng)用制作簽名的方法(圖文)

本文標(biāo)題:delphi字符串分隔函數(shù)用法實例

本文地址:http://mengdiqiu.com.cn/a1/Delphi/8610.html

網(wǎng)頁制作CMS教程網(wǎng)絡(luò)編程軟件編程腳本語言數(shù)據(jù)庫服務(wù)器

如果侵犯了您的權(quán)利,請與我們聯(lián)系,我們將在24小時內(nèi)進(jìn)行處理、任何非本站因素導(dǎo)致的法律后果,本站均不負(fù)任何責(zé)任。

聯(lián)系QQ:835971066 | 郵箱:835971066#qq.com(#換成@)

Copyright © 2002-2020 腳本教程網(wǎng) 版權(quán)所有