delphi 中的 split 函數

delphi 中的 split 函數 類似於 vb中的 split函數 德州行業網

1. type
2.     userarray=array of string;
4. function split(s:string;dot:char):userarray;
5. var 
6. str:userarray;
7. i,j:integer; 
8. begin
9. i:=1; 
10. j:=0; 
11. SetLength(str, 255); 
12. while Pos(dot, s) > 0 do //Pos返回子串在父串中第一次出現的位置.
13. begin
14. str[j]:=copy(s,i,pos(dot,s)-i);
15. i:=pos(dot,s)+1; 
16. s[i-1] := chr(ord(dot)+1); 
17. j:=j+1; 
18. end; 
19. str[j]:=copy(s,i,strlen(pchar(s))-i+1); 
20. result:=str; 
21. end; 

 

delphi 中的 split 函數 類似於 vb中的 split函數