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);

 

posted @   王云盼  阅读(1160)  评论(0编辑  收藏  举报
编辑推荐:
· 开发中对象命名的一点思考
· .NET Core内存结构体系(Windows环境)底层原理浅谈
· C# 深度学习:对抗生成网络(GAN)训练头像生成模型
· .NET 适配 HarmonyOS 进展
· .NET 进程 stackoverflow异常后,还可以接收 TCP 连接请求吗?
阅读排行:
· 本地部署 DeepSeek:小白也能轻松搞定!
· 基于DeepSeek R1 满血版大模型的个人知识库,回答都源自对你专属文件的深度学习。
· 在缓慢中沉淀,在挑战中重生!2024个人总结!
· 大人,时代变了! 赶快把自有业务的本地AI“模型”训练起来!
· Tinyfox 简易教程-1:Hello World!
点击右上角即可分享
微信分享提示