//tstringlist,預設分割符為逗號、空格、回車,還可以指定單個字元;但是待分解的字串中不能包含逗號、空格、回車
//indy的庫函式和tstringlist差不多,也不能包含逗號、空格、回車
//下面這個函式是我自己寫的,指定分割符,可以單個字元,也可以是多個字元為分割符號,專案中一直在用,還不錯
function txtcommon.splitestring(const source: string; delimiter: string):
tstringlist;
var
tempstr, str: string;
strlist: tstringlist;
ipos: integer;
begin
tempstr := source;
strlist := tstringlist.create;
ipos := pos(delimiter, tempstr);
while ipos <> 0 do
begin
str := copy(tempstr, 1, ipos - 1);
strlist.add(str);
delete(tempstr, 1, ipos - 1 + length(delimiter));
ipos := pos(delimiter, tempstr);
end;
strlist.add(tempstr);
result := strlist;
end;
delphi之分割字串
因為喜歡用文本來記錄資料,比如帳號密碼等等,乙個遊戲帳戶一行 帳號1,密碼1,遊戲區11 帳號2,密碼2,遊戲區11 需要用到分割字串函式。delphi的classes有extractstrings函式,感覺用起來不好,後來網上找了個,如下 function splitstring pstring ...
Delphi字串處理
悲催啊,使用了這麼久的delphi,還是沒有理解字串。今天看了一篇文章稍有理解。1.段字串shortstring。短字串的管理師這樣的,類似陣列 0處儲存字串的長度,從1處開始了內容,shortstring的總長度是256,因此,實際的內容長度只能為255,並且內容結束沒有結束字元,即不是以 0結尾...
Delphi 處理字串常用函式
pos a,b 該函式用於查詢a在b中第一次出現的位置 pos a xa city,xa city 返回則是2copy a,x,y 從a字串的x處開始,擷取y個字元的串返回.copy gk,nmlgbd 4,6 返回 nmlgbd delete a,x,y 從a中的x開始刪除,刪除y個字元 var ...