谁有递归的程式的例子啊,偶算成品成本时,需要用到递归的例子谁有给一个先
解决方案 »
- 请问大家,在Windows下可以用C++开发基于完成端口的高效能Server程序,那用Java能实现这种程序吗,如何实现,谢谢
- 在StringGrid中 鼠标上下移动,行的高亮也跟着移动
- 请问怎样可以得到字符串所占用的宽度??
- 设计MIS系统时,如何应用面向对象设计方法.请高手指教!
- 升四个三角,感谢大家支持!散。。。
- 怎样打印自定义纸张大小的报表,而打印完成后不走纸
- Decision Cube不能用两次????
- what is bho? 它做什么用??
- 为初学者推荐一本学习delphi的书,好吗
- 每人能解决吗?BDE无法连接SQL2000?
- 用代码怎么实现同时选中StringGrid中的多个单元格?
- 如何使用delphi7连接C#创建的webservices
begin
if iInput=0 then
Result:=0
else
begin
inc(iInput,-1);
Result:=iInput+test(iInput);
end;
end;
//函数
procedure TFormCYBase.ClearText(AControl:TWinControl);
var
I: Integer;
begin
for I := 0 to AControl.ControlCount - 1 do // Iterate
begin
//需清空处理控件
if AControl.Controls[i] is TCustomEdit then
begin
(AControl.Controls[i] as TCustomEdit).Text:='';
end;
if AControl.Controls[i] is TCustomComboBox then
begin
(AControl.Controls[i] as TCustomComboBox).ClearSelection;
end;
//可以 作为 父亲的控件处理事件。
if AControl.Controls[i] is TCustomControl then
begin
ClearText(AControl.Controls[i] as TCustomControl);
end;
end;
end;//调用
procedure TFormCYBase.BitBtn1Click(Sender: TObject);
begin
ClearText(self);
end;