正文
delphi取括号内或括号外的内容
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
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(); 或者找到'('就行了。。。
取出括号里的数:
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;
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);