Delphi如何删除或添加edit里面指定的内容?

来源：百度知道 编辑：UC知道 时间：2024/06/07 05:37:52
我想再delphi的edit里面删除指定的符号,例如删除第七个字符,代码是?
在第三个字符插入指定内容,代码是?

删除第七个字符：
procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
begin
s := Edit1.Text;
Delete(s,7,1);
Edit1.Text:=s;
end;

在第三个字符的“后面”插入指定内容：
procedure TForm1.Button1Click(Sender: TObject);
var
s,ss: string;
begin
s := '123';
ss := Edit1.Text;
Insert(s, ss, 4);
Edit1.Text:=ss;
end;