delphi字符串分隔函數(shù)用法實例
更新時間：2014年12月15日 08:55:20 投稿：shichen2014
這篇文章主要介紹了delphi字符串分隔函數(shù)用法,通過自定義函數(shù)SeparateTerms2實現(xiàn)將字符串分割后存入字符串列表的功能,具有一定的實用價值,需要的朋友可以參考下
本文實例講述了delphi字符串分隔函數(shù)用法。分享給大家供大家參考。具體實現(xiàn)方法如下：
該實例可實現(xiàn)根據(jù)字符串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)象與處理方式，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧2020-02-02
Delphi 根據(jù)字符串找到函數(shù)并執(zhí)行的實例
這篇文章主要介紹了Delphi 根據(jù)字符串找到函數(shù)并執(zhí)行的實例的相關資料,希望通過本能幫助到大家實現(xiàn)這樣的功能，需要的朋友可以參考下2017-09-09
為什么繼續(xù)選擇DELPHI(即將逝去的Delphi前景在何方)
已經(jīng)鉆DELPHI很深了，當然現(xiàn)在DELPHI是過了最輝煌的時代。但為什么要繼續(xù)下去，而不轉向其它的?這是不是死腦筋2018-02-02
這篇文章主要介紹了Delphi實現(xiàn)窗口文字淡入淡出漸變效果,需要的朋友可以參考下2014-07-07
本文通過實例代碼給大家介紹ListView 百分比進度條，本文使用的是delphi語言實現(xiàn)的，代碼比較簡單實用，希望的朋友參考下2016-02-02
這篇文章主要介紹了Delphi下OpenGL2d繪圖之初始化流程詳解,對于OpenGL的總體了解很有幫助,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi 在窗體上創(chuàng)建自己光標的實例的相關資料,希望通過本文能幫助到大家，需要的朋友可以參考下2017-09-09
控制INI文件幾法要利用.INI文件做程序有關數(shù)據(jù)的存儲工作，就需要能讀和寫.INI文件，所以列了如下方法給大家參考：2008-03-03
這篇文章主要介紹了Delphi實現(xiàn)獲取進程列表及相關信息的實例,希望通過本文大家能實現(xiàn)這樣的功能，需要的朋友可以參考下2017-09-09
這篇文章主要介紹了Delphi下OpenGL2d繪圖之畫點的方法,需要的朋友可以參考下2014-07-07