qzgx.net
当前位置:首页 >> 晕啊.DElphi怎么不提供一下inDExoF,split,join这些常用的函数 >>

晕啊.DElphi怎么不提供一下inDExoF,split,join这些常用的函数

delphi只提供基本的函数或过程.其实利用 pascal 语言可以自定义函数或过程方便地实现你这里列出的函数.

procedure TForm1.Button1Click(Sender: TObject);var i,index:integer; ts:Tstringlist; s:string;begin ts:=Tstringlist.create; s111,222,333,444,555,666'; while (pos(',',s)<>0) do begin index:=pos(',',s); ts.add(copy(s,1,index-1)); delete(s,1,index); end; for i0 to ts.count-1 do begin showmessage(ts.strings ); end;end;

Join 函数获取一批字符串,然后用分隔符字符串将它们联接起来,从而返回一个字符串.Split 函数获取一个字符串,然后在分隔符处将其断开,从而返回一批字符串.但是,这两个函数之间的主要区别在于 Join 可以使用任何分隔符字符串将多个字符串连接起来,而 Split 只能使用一个字符分隔符将字符串断开.简单地说,如果你用split,是把一串字符(根据某个分隔符)分成若干个元素存放在一个数组里.而Join是把数组中的字符串连成一个长串,可以大体上认为是split的逆操作.

前半句明白了~~说的晕晕乎乎的.不知道是不是这个意思:procedure a;begin b(1); //可以这样 c(1); //但不能这样end;function b(i:integer):integer;var j:integer;begin result:=i+j;end;function c(var i:integer):integer;var j:integer;begin result:=i+j;end

这样写可能清楚一点var str = form.codeRelation.valuestr.indexOf(",") &gt; -1 str.indexOf (",")找到与","匹配的串返回该字符所在串的位置 str.split(",")按逗号分割str返回的是一个数组类型的值.看你的代码.relations这个数组里面装的就是-1和0form.codeRelation.value得到应改是str = "-1,0";这个字符串

copy() 就可以把字符分开

pos('你要找的字符串','整个字符串')pos返回一个整数,如果找到了字符串,会返回字符串所在的位置,反之会返回0

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);

C#中IndexOf的使用 IndexOf() 查找字串中指定字符或字串首次出现的位置,返首索引值,如: str1.IndexOf("字"); //查找“字”在str1中的索引值(位置) str1.IndexOf("字串");//查找“字串”的第一个字符在str1中的索引值(位置

前言:距离上一篇文章,又过去一个多月了,近些时间,工作依旧很忙碌,除了管理方面的事,代码方面主要折腾三个事:1:开发框架(一整套基于配置型的开发体系框架)2:CYQ.Data 数据层框架(持续的更新,最近也加入了Sybase的支持

相关文档
网站首页 | 网站地图
All rights reserved Powered by www.qzgx.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com