Question

delphi 入门小程序

一个button,一个edit ,运行时,要求每点一下按钮,edit里面显示的数字增加1.如点两下,edit里面显示的数字为2;如点三下,edit里面显示的数字为3;

Answer 1

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.

Answer 2

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

Answer 3

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