首页 > Windows开发 > 详细

delphi去掉括号及括号内的内容函数

时间:2015-10-28 16:58:31      阅读:1058      评论:0      收藏:0      [点我收藏+]
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(代表***)....     // 用户需求

但数据库内的字段时整型,所以要去掉括号及括号里面的 // 数据库需求

delphi去掉括号及括号内的内容函数

原文:http://www.cnblogs.com/studypanp/p/4917726.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!