delphi取括号内或括号外的内容
1 2 3 4 5 6 7 8 9 10 11 12 | function TSetParkForm . RemoveSgin(str: string ): string ; // 去掉括号内的内容(包括括号) var i1, i2, i: integer ; begin for i := 0 to length(str) - 1 do begin i1 := str . IndexOf( '(' ); if i1 = - 1 then break; i2 := str . IndexOf( ')' ); if i2 = - 1 then break; end ; result := str . Remove(i1, i2-i1+ 1 ); end ; |
记录:
解释0(代表***),1(代表***).... // 用户需求
但数据库内的字段时整型,所以要去掉括号及括号里面的 // 数据库需求
好吧,后来我发现直接leftStr(); 或者找到'('就行了。。。
取出括号里的数:
1 2 3 4 5 6 7 8 | function GetPosStr(str: string ): string ; var i, j: integer ; begin i:=pos( '(' ,str); j:=pos( ')' ,str); Result := (copy(str, i+ 1 , (Length(str) - i - (Length(str) - j+ 1 )))); end ; |
1 2 3 4 5 6 7 | var i, j: integer ; begin i:=pos( '(' ,edit1 . Text); j:=pos( ')' ,edit1 . Text); Log(copy(edit1 . Text, i+ 1 , (edit1 . Text . Length - i - (edit1 . Text . Length - j+ 1 )))); end ; |
Log为memo1.lines.add(s);
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 开发中对象命名的一点思考
· .NET Core内存结构体系(Windows环境)底层原理浅谈
· C# 深度学习:对抗生成网络(GAN)训练头像生成模型
· .NET 适配 HarmonyOS 进展
· .NET 进程 stackoverflow异常后,还可以接收 TCP 连接请求吗?
· 本地部署 DeepSeek:小白也能轻松搞定!
· 基于DeepSeek R1 满血版大模型的个人知识库,回答都源自对你专属文件的深度学习。
· 在缓慢中沉淀,在挑战中重生!2024个人总结!
· 大人,时代变了! 赶快把自有业务的本地AI“模型”训练起来!
· Tinyfox 简易教程-1:Hello World!