使用自定义分隔符分离字符串 解决Delphi7下TStringList.Delimiter分离无法跳过空格问题
2016-11-03 10:39
267 查看
{
函数功能:使用自定义分隔符分离字符串并以Stringlist返回
参数说明:
Source: 源字符串
Deli: 自定义分离符
StringList: 返回分离结果
}
procedure SplitString(Source,Deli:string; var StringList :TStringList);
var
EndOfCurrentString: Integer;
begin
if StringList = nil then exit;
StringList.Clear;
while Pos(Deli, Source)>0 do
begin
EndOfCurrentString := Pos(Deli, Source);
StringList.add(Copy(Source, 1, EndOfCurrentString - 1));
Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString);
end;
StringList.Add(source);
end;
// 调用
procedure TForm1.Button1Click(Sender: TObject);
var
strlist: TStringList;
begin
strlist := TStringList.Create;
SplitString('123,Channel 1,00000000000000000123,上下线,离线,2013-01-31 09:22:32,公司',
',',
strlist);
ShowMessage(strlist.Text);
end;
函数功能:使用自定义分隔符分离字符串并以Stringlist返回
参数说明:
Source: 源字符串
Deli: 自定义分离符
StringList: 返回分离结果
}
procedure SplitString(Source,Deli:string; var StringList :TStringList);
var
EndOfCurrentString: Integer;
begin
if StringList = nil then exit;
StringList.Clear;
while Pos(Deli, Source)>0 do
begin
EndOfCurrentString := Pos(Deli, Source);
StringList.add(Copy(Source, 1, EndOfCurrentString - 1));
Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString);
end;
StringList.Add(source);
end;
// 调用
procedure TForm1.Button1Click(Sender: TObject);
var
strlist: TStringList;
begin
strlist := TStringList.Create;
SplitString('123,Channel 1,00000000000000000123,上下线,离线,2013-01-31 09:22:32,公司',
',',
strlist);
ShowMessage(strlist.Text);
end;
相关文章推荐
- 使用自定义分隔符分离字符串 解决Delphi7下TStringList.Delimiter分离无法跳过空格问题
- 关于使用Volley下载的json字符串无法显示中文的问题(已解决)
- 在使用Gson的toJson()方法转为json字符串的时候无法显示中文和符号的问题(已解决)
- Enterprise Library- Data Block使用oracle存储过程,字符串参数传入值为""时出现问题的解决
- Oracle出现了问题“无法使用系统回滚段”并解决
- 解决AJAX中使用UpdatePanel后再用Response.Write();等无法弹出对话框问题 3法
- 解决AJAX中使用UpdatePanel后再用Response.Write();等无法弹出对话框问题
- 使用PLSQL Developer时,“ORA-12154: TNS:无法解析指定的连接标识符”问题的一个解决办法
- 解决开启瑞星防火墙后网上邻居无法访问、共享打印机无法使用问题
- Enterprise Library- Data Block使用oracle存储过程,字符串参数传入值为""时出现问题的解决
- (转)解决AJAX中使用UpdatePanel后再用Response.Write();等无法弹出对话框问题 3法
- 使用startx无法进入图形界面的问题终于解决
- ASP.NET2.0中"无法显示 XML 页。 使用 XSL 样式表无法查看 XML 输入。"问题的解决
- 解决AJAX中使用UpdatePanel后再用Response.Write();等无法弹出对话框问题 3法
- 如何解决烦人的VS.NET2003编译时“无法将程序集复制到文件,另一个程序正在使用,进程无法访问”的问题?
- 解决使用ASP无法连接 ORACLE 9i 数据库的问题。
- NET中"无法显示 XML 页。 使用 XSL 样式表无法查看 XML 输入。"问题的解决
- 解决迅雷无法使用右键下载的问题
- 解决KOL中无法使用内存流的问题
- 请求帮助:如何解决烦人的VS.NET2003编译时“无法将程序集复制到文件,另一个程序正在使用,进程无法访问”的问题?