Delphi中的split函数
来源:互联网 发布:网易邮箱的端口号 编辑:程序博客网 时间:2024/05/11 20:15
procedure TForm1.Button1Click(Sender: TObject);
var
s1:TStringList;
begin
s1:=split('11111111:2222:33333:44444',':');
Memo1.Lines.AddStrings(s1);
s1.Free;
end;function split(s,s1:string):TStringList;
begin
Result:=TStringList.Create;
while Pos(s1,s)>0 do
begin
Result.Add(Copy(s,1,Pos(s1,s)-1));
Delete(s,1,Pos(s1,s));
end;
Result.Add(s);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s1:TStringList;
begin
s1:=split('11111111:2222:33333:44444',':');
Memo1.Lines.AddStrings(s1);
s1.Free;
end;
一、直接使用如下函数(注:ch只能是单字符,如键盘上英文状态下的字符)
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;
二、直接使用TStringList
procedure TForm1.Button3Click(Sender: TObject);
var
Str:String;
ResultList:TStringList;
I:Integer;
begin
str:= '南京~信息~工程~大学';
ResultList := TStringList.Create;
try
ResultList.Delimiter := '~';
ResultList.DelimitedText := str;
for I:= 0 to ResultList.Count-1 do
begin
Memo1.Lines.Add(ResultList.Strings[I]);
end;
finally
FreeAndNil(ResultList);
end;
end;
三、支持特殊字符版(ch可以为字符串,如'aa')
function SplitString(const Source,ch:String):TStringList;
var
Temp:String;
I:Integer;
chLength:Integer;
begin
Result:=TStringList.Create;
//如果是空自符串则返回空列表
if Source='' then Exit;
Temp:=Source;
I:=Pos(ch,Source);
chLength := Length(ch);
while I<>0 do
begin
Result.Add(Copy(Temp,0,I-chLength+1));
Delete(Temp,1,I-1 + chLength);
I:=pos(ch,Temp);
end;
Result.add(Temp);
end;
var
s1:TStringList;
begin
s1:=split('11111111:2222:33333:44444',':');
Memo1.Lines.AddStrings(s1);
s1.Free;
end;function split(s,s1:string):TStringList;
begin
Result:=TStringList.Create;
while Pos(s1,s)>0 do
begin
Result.Add(Copy(s,1,Pos(s1,s)-1));
Delete(s,1,Pos(s1,s));
end;
Result.Add(s);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s1:TStringList;
begin
s1:=split('11111111:2222:33333:44444',':');
Memo1.Lines.AddStrings(s1);
s1.Free;
end;
一、直接使用如下函数(注:ch只能是单字符,如键盘上英文状态下的字符)
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;
二、直接使用TStringList
procedure TForm1.Button3Click(Sender: TObject);
var
Str:String;
ResultList:TStringList;
I:Integer;
begin
str:= '南京~信息~工程~大学';
ResultList := TStringList.Create;
try
ResultList.Delimiter := '~';
ResultList.DelimitedText := str;
for I:= 0 to ResultList.Count-1 do
begin
Memo1.Lines.Add(ResultList.Strings[I]);
end;
finally
FreeAndNil(ResultList);
end;
end;
三、支持特殊字符版(ch可以为字符串,如'aa')
function SplitString(const Source,ch:String):TStringList;
var
Temp:String;
I:Integer;
chLength:Integer;
begin
Result:=TStringList.Create;
//如果是空自符串则返回空列表
if Source='' then Exit;
Temp:=Source;
I:=Pos(ch,Source);
chLength := Length(ch);
while I<>0 do
begin
Result.Add(Copy(Temp,0,I-chLength+1));
Delete(Temp,1,I-1 + chLength);
I:=pos(ch,Temp);
end;
Result.add(Temp);
end;
0 0
- delphi中的split函数
- delphi中的split函数
- delphi中的split函数
- delphi 中的 split 函数
- delphi中的split函数
- Delphi中的split函数
- Delphi的Split函数
- delphi split函数(积累)
- VB Split 函数在 Delphi 中的不完全实现
- VBscript 中的Split 函数
- T_SQL 中的split函数
- Oracle中的Split函数
- Oracle 中的split 函数
- VB中的Split函数
- python中的split函数
- Java中的split函数
- opencv中的split函数
- Python中的split()函数
- 企业内部Java笔试题(附答案)
- Android数据存储之Android 6.0运行时权限下文件存储的思考
- 理解oracle中连接和会话
- JavaScript学习与实践一
- maven+myeclise+springmvc+jersey+ajax实现图片跨服务器上传
- Delphi中的split函数
- H5 div标签详解
- SpringMVC-视图解析
- Entity Framework 基础
- tomcat
- Ajax的底层实现--使用Ajax实现无刷新登录实例
- map和flatmap的区别
- Ognl值栈对象及struts标签
- Oracle链接、会话、事务的关系