阿
阿波
Unregistered / Unconfirmed
GUEST, unregistred user!
我的窗口中有二个EDIT，两个BUTTON，当我在EDIT1中输入字符时，我让BUTTON1激活，
当我点击BUTTON1时我又让EDIT2激活了，在点击BUTTON1的事件中我将EDIT1中的字符进行了
处理。当我在EDIT2中输入字符后，我点击了BUTTON2，让经处理后EDIT1中的字符加上EDIT2中
的字符，输入到EDIT3中，可以吗，请那位老兄给我讲讲。如下所示：
procedure TForm2.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then
begin
button1.enabled:=true;
end
else
button1.enabled:=false ;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
k,k1,i:integer;
s,s2:string;
begin
EDIT2.enabled:=true;
k:=strtoint(edit1.text);
s:=formatfloat('000000000000',k);
k1:=length(s);
for i:=1 to (k div 2 )do
s2:=s2 +copy(edit1.text,k1+1-2*i,2);
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
if radiobutton1.checked then
edit3.text:=edit2.text+S2;//S2就是EDIT1中处理后得来的字符，正确的应好何调用S2啊。
当我点击BUTTON1时我又让EDIT2激活了，在点击BUTTON1的事件中我将EDIT1中的字符进行了
处理。当我在EDIT2中输入字符后，我点击了BUTTON2，让经处理后EDIT1中的字符加上EDIT2中
的字符，输入到EDIT3中，可以吗，请那位老兄给我讲讲。如下所示：
procedure TForm2.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then
begin
button1.enabled:=true;
end
else
button1.enabled:=false ;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
k,k1,i:integer;
s,s2:string;
begin
EDIT2.enabled:=true;
k:=strtoint(edit1.text);
s:=formatfloat('000000000000',k);
k1:=length(s);
for i:=1 to (k div 2 )do
s2:=s2 +copy(edit1.text,k1+1-2*i,2);
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
if radiobutton1.checked then
edit3.text:=edit2.text+S2;//S2就是EDIT1中处理后得来的字符，正确的应好何调用S2啊。