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(代表***).... // 用户需求
但数据库内的字段时整型,所以要去掉括号及括号里面的 // 数据库需求
时间: 2025-01-11 15:30:56