事件自调用 - 回复 maxcool 的问题

weixin_33958585

于 2014-09-26 15:38:00 发布

阅读量95

点赞数

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/hermer/blog/320677

本文通过一个简单的Delphi程序实例，展示了如何在点击按钮时使文本框内的数值递增，并通过递归调用自身实现连续递增直到达到预设阈值。此示例有助于理解Delphi中事件处理及基本编程逻辑。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

为什么80%的码农都做不了架构师？>>>

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(StrToIntDef(Edit1.Text, 0) + 1);

  if StrToIntDef(Edit1.Text, 0) < 10 then
    Button1.Click;

  {这样也可以:}
//  if StrToIntDef(Edit1.Text, 0) < 10 then
//    Button1Click(nil);
end;

end.

转载于:https://my.oschina.net/hermer/blog/320677