delphi中的split函数

转载 2004年07月21日 16:41:00
 

//根据字符串,拆分字符串,相当于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 i<>0 do
  begin
     Result.add(copy(temp,0,i-1));
     Delete(temp,1,i);
     i:=pos(ch,temp);
  end;
  Result.add(temp);
end;

www.sinoprise.com

Delphi 自带的字符串分割函数split

下面介绍Delphi自带的字符串分割函数,根据你的需要来使用。 1、ExtractStrings function ExtractStrings(Separators, WhiteSpace:...
  • webouse
  • webouse
  • 2016-10-10 10:30:20
  • 11177

Delphi字符串分隔(似split函数功能)

Delphi字符串实现了和split()函数的功能. unit Unit1; interface uses Windows, Messages, SysUtils, Variant...
  • my98800
  • my98800
  • 2016-12-08 08:40:59
  • 2153

delphi的Split函数 3个版本

一、直接使用如下函数(注:ch只能是单字符,如键盘上英文状态下的字符)function SplitString(const Source,ch:String):TStringList;vartemp:...
  • cui55
  • cui55
  • 2008-07-07 08:18:00
  • 3212

Delphi自带的字符串分割函数Split

下面介绍Delphi自带的字符串分割函数,根据你的需要来使用。 1、ExtractStrings function ExtractStrings(Separators, WhiteSp...
  • my98800
  • my98800
  • 2016-12-07 12:02:47
  • 708

delphi 的分离字符串函数 split

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,...
  • Open2ye
  • Open2ye
  • 2006-05-08 22:23:00
  • 2081

Delphi的Split函数

因为Delphi中并没有自带的分拆字符串的函数,但实际编程中又经常会用到。在网上找了一段代码,在使用中发现有Bug,没有考虑到分拆符可能不只一个字符的情况。下面是修改过后的代码(红色部分是修改的代码)...
  • newweapon
  • newweapon
  • 2008-06-21 13:55:00
  • 518

delphi的Split函数 3种版本

一、直接使用如下函数(注:ch只能是单字符,如键盘上英文状态下的字符) function SplitString(const Source,ch:String):TStringList; var ...
  • my98800
  • my98800
  • 2017-01-02 09:09:16
  • 123

delphi 中 字符串分割函数 ExtractStringsEx,是ExtractStrings函数的扩展

使用ExtractStrings函数发现不能分割出空串,很是郁闷,发现delphi提供ExtractStrings的代码,打开看看修改了一下,实现增加空串的功能,如下Function ExtractS...
  • webouse
  • webouse
  • 2008-05-22 15:26:00
  • 2643

Delphi中的split函数

procedure TForm1.Button1Click(Sender: TObject); var s1:TStringList; begin s1:=split('11111111:22...
  • my98800
  • my98800
  • 2016-12-08 08:42:20
  • 137

delphi中的split函数

  //根据字符串,拆分字符串,相当于vb中的split函数function SplitString(const Source,ch:string):TStringList;var  temp:St...
  • yuanqingfei
  • yuanqingfei
  • 2004-07-21 16:41:00
  • 1026
收藏助手
不良信息举报
您举报文章:delphi中的split函数
举报原因:
原因补充:

(最多只允许输入30个字)