标签：
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(代表***).... // 用户需求
但数据库内的字段时整型，所以要去掉括号及括号里面的 // 数据库需求
标签：
原文地址：http://www.cnblogs.com/studypanp/p/4917726.html
