begin
result:=类_西瓜.Create()
end;
//=============================================================================
3、在窗体单元文件中，添加一个新的事件处理过程（这里是扩展，不会影响到已有的代码）
//=============================================================================
RadioButton4: TRadioButton;
procedure RadioButton4Click(Sender: TObject);
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
交易(类_西瓜小贩.Create);
end;
//=============================================================================
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
