熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

delphi中的split函數

2013-11-23 17:29:58  來源: Delphi編程 

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

  type
userarray=array of string;

  function split(s:string;dot:char):userarray;
var
str:userarray;
ij:integer;
begin
i:=;
j:=;
SetLength(str );
while Pos(dot s) > do //Pos返回子串在父串中第一次出現的位置
begin
str[j]:=copy(sipos(dots)i);
i:=pos(dots)+;
s[i] := chr(ord(dot)+);
j:=j+;
end;
str[j]:=copy(sistrlen(pchar(s))i+);
result:=str;
end;


From:http://tw.wingwit.com/Article/program/Delphi/201311/24696.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.