delphi取括号内或括号外的内容
2015-10-28 16:24
483 查看
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(); 或者找到'('就行了。。。
取出括号里的数:
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);
相关文章推荐
- delphi梦魇病毒--解决方法 备着自己用
- 详细的键盘键值表
- Delphi字符串中添加特殊字符及ASCII码表
- Jnative调用delphi编译的dll解密方法
- Delphi,几个实用的HTML解析函数
- Delphi 中TWebBrowser的扩展控件TExWebBrowser
- delphi实现数字签名
- delphi clipboard
- Delphi Randomize
- delphi 指针 认识
- delphi 写日志
- delphi Post数据到网页
- delphi将图片转换成Base64编码函数
- 学派Delphi方法(推荐)——————————【Badboy】
- delphi学习-各种文件介绍
- Delphi中的操作二进制文件的两个重要函数
- Delphi、C C++、Visual Basic数据类型的对照 转
- delphi 获取windows任务栏的高度
- Delphi调用REST
- DELPHI 线程池