delphi中有没有类似vb中split的函数

小伍老师 2002-02-16 09:27:43

delphi中有没有类似vb中split的函数

...全文

37 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

dext 2002-02-16

打赏
举报

回复

哎，又晚了！！

torble 2002-02-16

打赏
举报

回复

function split(S, Sep: AnsiString): sptype;
var
I, L,J: Integer;
Left: AnsiString;
begin
J:=0;
L := Length(Sep);
I := Pos(Sep, S);
while (I > 0) do
begin
Left := leftstr(S, I-1);
inc(J);
setlength(Result,J);
Result[J-1]:=Left;
Delete(S, 1, I + L - 1);
I := Pos(Sep, S);
end;
if S <> '' then
begin
inc(J);
setLength(Result,J);
Result[J-1]:=S;
end;
end;

delphi 中的 split 函数类似于 vb中的 split函数德州行业网type userarray=array of string;function split(s:string;dot:char):userarray;var str:userarray;i,j:integer; begini:=1; j:=0; SetLeng

//根据字符串，拆分字符串，相当于VB中的split函数 function SplitString(const Source,ch:string):TStringList; var temp:String; i:Integer; begin Result:=TStringList.Create; //如果是空自符串则...

//根据字符串，拆分字符串，相当于vb中的split函数function SplitString(const Source,ch:string):TStringList;var temp:String; i:Integer;begin Result:=TStringList.Create; //如果是空自符串则返回空列表 ...

type//函数返回值不能是array of ...，必须自定义类型，含义还是一样，返回字符串数组 Tas = array of string; //expression:源字符串，delimiter:分隔字符串（默认为空格）；可以是 AnsiString 或 Wide

Delphi中怎样将字符串按给定字符分隔(类似split函数的功能) 分类： Delphi2007-05-16 11:094911人阅读评论(2)收藏举报 delphiintegerstringbutton文本编辑function 今天偶尔要做的Delphi程序,其中涉及到了字符...

5,388

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章