晚上来的不会都是比我还菜的吧，这么简单的问题我不会你们应该会呀，请指教啊。(0分)

我的桌面上有几个RADIOBUTTON键，我想实现当我选中RADIOBUTTON1时，RICHEDIT中的值是
EDIT2+S。选中RADIOBUTTON2时，RICHEDIT中的值是EDIT3+S，选中RADIOBUTTON3时，RICHEDIT
中的值是EDIT3+S如何实现的，下面是我编写的一段程序，为什么不行啊。
var
k:integer;
s:string;
begin
k:=strtoint(edit1.text);
s:=formatfloat('000000000000',k);
begin
if radiobutton1.checked then
richedit.text:=(edit2.text+s);
if radiobutton2.checked then
richedit.text:=(edit3.Text+s);
if radiobutton3.checked then
richedit.text:=(edit4.text+s);
if radiobutton4.checked then
richedit.text:=(edit5.text+s)
else
richedit.text:=''
end;

if radiobutton1.checked then
richedit.text:=(edit2.text+s) else
if radiobutton2.checked then
richedit.text:=(edit3.Text+s) else
if radiobutton3.checked then
richedit.text:=(edit4.text+s) else
if radiobutton4.checked then
richedit.text:=(edit5.text+s)
else
richedit.text:=''
end;

case radiogrop.index of
0:richedit.text:=(edit2.text+s) else
1:...
2:...
3:..
end;

如此简单的目的，写这么多代码？继续努力。

那你到说说什么方法好呢，来呀，讲讲啊。

接受答案了.