delphi中的split函数

2016-02-19 12:46 41 1 收藏

下面是个简单易学的delphi中的split函数教程,图老师小编详细图解介绍包你轻松学会,喜欢的朋友赶紧get起来吧!

【 tulaoshi.com - 编程语言 】

  //根据字符串,拆分字符串,相当于vb中的split函数
  function SplitString(const Source,ch:string):TStringList;
  var
    temp:String;
    i:Integer;
  begin
    Result:=TStringList.Create;
    //如果是空自符串则返回空列表
    if Source=''
    then exit;
    temp:=Source;
    i:=pos(ch,Source);
    while i0 do
    begin
       Result.add(copy(temp,0,i-1));
       Delete(temp,1,i);
       i:=pos(ch,temp);
    end;
    Result.add(temp);
  end;

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/bianchengyuyan/)

  www.sinoprise.com

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/bianchengyuyan/)

来源:https://www.tulaoshi.com/n/20160219/1601865.html

延伸阅读
  keyword:  ActiveX, TGUID, CoCreateGUID, GUIDToString //---Test Program By Conan 2005/04/14---// unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs,   ActiveX, StdCtrls; type   T...
标签: Delphi
  在用Delphi30开发软件时,出现了硬件驱动程序 (DLL)中的函数和过程不能正常调用的问题,该硬件由英国Schlumberger公司生产,驱动程序用汇编语言编写的。其《编程指南》给出的 Microsoft C的示范程序均能正常运行。但运行此软件时现出的错误提示为: Access violation at address ×××××××× in module…… 经仔细分析...
功能描述:用指定分隔符切割输入的字符串,返回一维数组,每个数组元素为一个子串。 源代码: CREATE OR REPLACE TYPE ty_str_split IS TABLE OF VARCHAR2 (4000); CREATE OR REPLACE FUNCTION fn_split (p_str IN VARCHAR2, p_delimiter IN VARCHAR2)   RETURN ty_str_split IS   j INT := 0;   i INT := 1;   len INT...
翻译的不好,请见谅。 翻译:鲁小班 文件: ActnList CreateAction 函数 创建一个指定类型的Action,显示在action list editor中。 EnumRegisteredAction 过程 枚举已经注册的Action RegisterAction 过程 注册Action UnRegisterAction 过程 反注册Action 文件: Classes Bounds 函数 输入上下高宽...
标签: PHP
我的目标是去掉字符串中的空格,句号和逗号。 $str="hello baby,nice to meet you.hehe";//这样可以正确显示 $str="hello baby,nice to meet you . hehe";//如果在句号前面或后面多了个空格就会出现数组里某个键的值为空,也就是说当需要去掉的字符一起出现时,就会出现空值,这是为何,该如何解决? //我的一个方法是判断值是否...

经验教程

840

收藏

46
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部