DELPHI 字串分割處理

2021-06-27 23:52:34 字數 810 閱讀 9504

//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 ...