RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数 > 正文

delphi 中的split 函数

作者:admin 来源: 日期:2013/10/8 9:00:11 人气: 标签:

delphi 中的 split 函数 类似于 vb中的 split函数

type 
userarray=array of string;

function split(s:string;dot:char):userarray; 
var 
str:userarray; 
i,j:integer; 
begin 
i:=1; 
j:=0; 
SetLength(str, 255); 
while Pos(dot, s) > 0 do //Pos返回子串在父串中第一次出现的位置. 
begin 
str[j]:=copy(s,i,pos(dot,s)-i); 
i:=pos(dot,s)+1; 
s[i-1] := chr(ord(dot)+1); 
j:=j+1; 
end; 
str[j]:=copy(s,i,strlen(pchar(s))-i+1); 
result:=str; 
end; 


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: