delphi 中分隔符分隔的字符串
完整例子 delphi TStringList的用法 http://laorer.javaeye.com/blog/65367
为了处理用分隔符分隔的字符串,如123|233|34,比较简单的是使用TStringList
[@more@]网上别人例子整理的
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
sl: TStringList;
i: integer;
begin
s := '123|23423|354234|234234';
sl := TStringList.Create;
//ExtractStrings([], ['|'], PChar(s), sl); //这个一样不能以'|'分隔
s := StringReplace(s, '|', #13#10, [rfReplaceAll]);
sl.Text := s;
//.....这样就已经存入sl中了
}
for i:=0 to sl.Count-1 do
ShowMessage(sl[i]);
FreeAndNil(sl);
end;
用ExtractStrings 的话
s := '123|23423|354234|234234';
sl := TStringList.Create;
ExtractStrings( ['|'], [], PChar(s), sl);
另外:TStringList的默认分隔符是逗号, 如果是逗号分隔的
s := '123,23423,abc,';
sl.DelimitedText := s;
如果是|分隔的
s1.Delimiter :='|';
s1.DelimitedText := '12|abd|good';
注意上面两句顺序不能颠倒。
参考http://topic.csdn.net/t/20060313/09/4610207.html
http://topic.csdn.net/t/20021031/17/1137402.html
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/38085/viewspace-1028012/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/38085/viewspace-1028012/
- 点赞
- 收藏
- 分享
- 文章举报
- Delphi快速从文件流读取数据存入本地txt
- Delphi Opendialog用法
- Delphi选择指定路径作为操作路径
- [转]Delphi 12种大小写转换的方法
- 如何给ActiveX数字签名(Step by Step, Delphi)
- Delphi还是那个Delphi,变化了的只是世界
- 再执牛耳,Delphi的安卓开发,效率与性能兼而有之,比之鱼与熊掌
- Delphi的资料和教程,多多的
- delphi中TreeView使用常见问题
- 用delphi写下载程序
- delphi技巧--分离汉字和英文字母
- delphi中var关键字
- Delphi和C++ Builder中的Hibernate开发(一)
- Delphi和C++ Builder中的Hibernate开发(六)
- 关于C#下写的Web Service 服务在Delphi下调用时的问题
- 简单工厂之Delphi实现
- Delphi 对对碰外挂 记录
- delphi TWebBrowser 详细解释
- 禁止 Delphi2010 检测新版本
- delphi TDbGrid 右键 P 4000 opupMenu 菜单只在有数据的地方弹出