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