delphi 入门小程序

来源：百度知道 编辑：UC知道 时间：2024/05/04 17:22:55
一个button,一个edit ,运行时,要求每点一下按钮,edit里面显示的数字增加1.如点两下,edit里面显示的数字为2;如点三下,edit里面显示的数字为3;

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);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
n:integer;//此处定义整型变量 n

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

edit1.text:=inttostr(n+1);//整型n转换成字符型，然后赋值给edit1.text
n:=n+1;//n 自加一
end;

end.

button的onclick事件中添加代码:
edit1.text := inttostr(strtoint(edit1.text) + 1);
需要把edit1.text的内容转换类型为int才可以相加,而edit1.text本身是string类型的.

同意楼上二位回答
先让edit1.text:='0'这样才不会出错，哈哈