delphi中edit的格式转换

来源：百度知道 编辑：UC知道 时间：2024/06/18 18:15:54
delphi中如何达到以下效果：
在edit1中输入10105000051
点击radiobutton1时在edit2中自动在edit1的基础上增加49，显示在edit2中为10105000100;
点击radiobutton2时在edit2中自动在edit1的基础上增加99，显示在edit2中为10105000150;
在edit1中输入000051
点击radiobutton1时在edit2中自动在edit1的基础上增加49，显示在edit2中为000100;
点击radiobutton2时在edit2中自动在edit1的基础上增加99，显示在edit2中为000150。
同时达到以上四种效果，谢谢！
这样我试验后发现短号有问题，会多加一位数字成七位了，

radiobutton1的单击事件
edit2.text:=inttostr(strtoint(edit1.text)+49);
radiobutton2的单击事件
edit2.text:=intostr(strtoint(edit1.text)+99);

procedure TForm1.RadioButton1Click(Sender: TObject);
var i:integer;
s:string;
begin
for i:= 2 to Length(edit1.Text) do
begin
s:='0' + s;
end;
edit2.text:=formatfloat(s,strtofloat(edit1.text) + 49);
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
var i:integer;
s:string;
begin
for i:= 2 to Length(edit1.Text) do
begin
s:='0' + s;
end;
edit2.text:=formatfloat(s,strtofloat(edit1.text) + 99);
end;