delphi截取指定字符空格或-符号前面 中间 后面字符串
2016-07-23 16:27
519 查看
Edit1.Text:='abcd-12ab-59cd';
procedure TForm1.Button1Click(Sender: TObject);
var
List: TStringList;
begin
List := TStringList.Create;
List.Delimiter := '-';
List.DelimitedText :=Trim(Edit1.Text);
ShowMessage(IntToStr(List.Count)); //2
ShowMessage(List[0]); //abcd
ShowMessage(List[1]); //12ab
ShowMessage(List[2]); //12ab
List.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
List: TStringList;
begin
List := TStringList.Create;
List.Delimiter := '-';
List.DelimitedText :=Trim(Edit1.Text);
ShowMessage(IntToStr(List.Count)); //2
ShowMessage(List[0]); //abcd
ShowMessage(List[1]); //12ab
ShowMessage(List[2]); //12ab
List.Free;
end;
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- Delphi在系统菜单中添加菜单项
- webbrowse 自动关闭弹出对话框
- Delphi中建议使用的语句
- 用Delphi操作INI文件
- Socket Error # 10054
- delphi正则应用
- Delphi中使用RegExpr单元进行匹配与替换操作
- Delphi编写数据库程序要点
- delphi 设置输出目录为相对路径
- 公开 myfunctions 单元，里面有很多有用的函数
- Delphi中@,^,#,$分别表示什么？
- DELPHI XE Android 开发笔记
- Delphi窗体置顶及失去焦点后取得焦点
- Delphi 通过SQLite3, SQLiteTable3 操作数据库
- delphi firebird backup path
- delphi执行cmd命令和bat文件
- Delphi 获取sqlite中所有的表名
- Delphi实现窗体内嵌其他应用程序窗体
- delphi升级xe注意事项
- Delphi 自动检测U盘插入、拔出及获取U盘盘符!