delphi字符串分隔函數(shù)用法實(shí)例
更新時(shí)間：2014年12月15日 08:55:20 投稿：shichen2014
這篇文章主要介紹了delphi字符串分隔函數(shù)用法,通過自定義函數(shù)SeparateTerms2實(shí)現(xiàn)將字符串分割后存入字符串列表的功能,具有一定的實(shí)用價(jià)值,需要的朋友可以參考下
本文實(shí)例講述了delphi字符串分隔函數(shù)用法。分享給大家供大家參考。具體實(shí)現(xiàn)方法如下：
該實(shí)例可實(shí)現(xiàn)根據(jù)字符串Separator的表示將字符串s分隔為若干個(gè)字符串，存入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;
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è)計(jì)有所幫助。
相關(guān)文章
Delphi實(shí)現(xiàn)毫秒級別的倒計(jì)時(shí)實(shí)例代碼
這篇文章主要介紹了Delphi實(shí)現(xiàn)毫秒級別的倒計(jì)時(shí)實(shí)例代碼,需要的朋友可以參考下2014-07-07
截取指定符號之間的字符串(隨機(jī)讀取)delphi實(shí)例代碼
這篇文章主要介紹了截取指定符號之間的字符串(隨機(jī)讀取)delphi實(shí)例代碼，有需要的朋友可以參考一下2013-12-12
在Delphi實(shí)現(xiàn)在數(shù)據(jù)庫中存取圖像的圖文演示無錯(cuò)
最近打算學(xué)習(xí)Delphi實(shí)現(xiàn)在數(shù)據(jù)庫中存取圖像,網(wǎng)上的好多Delphi實(shí)現(xiàn)在數(shù)據(jù)庫中存取圖像都是錯(cuò)誤的，所以我把圖片給弄好了。2008-01-01
本文通過實(shí)例代碼給大家介紹ListView 百分比進(jìn)度條，本文使用的是delphi語言實(shí)現(xiàn)的，代碼比較簡單實(shí)用，希望的朋友參考下2016-02-02
delphi xe 可用的MD5算法，需要的朋友可以參考一下2013-04-04
多線程應(yīng)該是編程工作者的基礎(chǔ)技能, 但這個(gè)基礎(chǔ)對我來講的確有點(diǎn)難(起碼昨天以前是這樣).2009-04-04
解決delphi TAdoQuery組件的close方法導(dǎo)致”列名無效“錯(cuò)誤的問題
今天小編就為大家分享一篇解決delphi TAdoQuery組件的close方法導(dǎo)致”列名無效“錯(cuò)誤的問題，具有很好的參考價(jià)值，希望對大家有所幫助。一起跟隨小編過來看看吧2020-02-02
Delphi實(shí)現(xiàn)圖像文本旋轉(zhuǎn)特效完整實(shí)例代碼
這篇文章主要介紹了Delphi實(shí)現(xiàn)圖像文本旋轉(zhuǎn)特效完整實(shí)例代碼,對于幫助讀者進(jìn)一步理解Delphi圖形及文字特效的處理有一定的借鑒價(jià)值,需要的朋友可以參考下2014-07-07
delphi實(shí)現(xiàn)將BMP格式圖形轉(zhuǎn)化為JPG格式圖形的方法
這篇文章主要介紹了delphi實(shí)現(xiàn)將BMP格式圖形轉(zhuǎn)化為JPG格式圖形的方法,通過簡單的自定義函數(shù)調(diào)用系統(tǒng)自帶的changefileext及SaveToFile等方法來實(shí)現(xiàn)格式轉(zhuǎn)換功能,是非常實(shí)用的技巧,需要的朋友可以參考下2014-12-12
在MDI窗體類型的編程中，主窗體（fsMDIForm）怎樣調(diào)用子窗體（fsMDIChild，此子窗體為DLL）。2008-03-03