德尔福.程序正在编译.但形式没有任何反应

Question

编译正在运行,一切正常.但形式没有任何反应.
表单已启动,但不会自动添加任何数据.如果您手动输入数据,那么当您按下按钮时,也没有任何反应

有必要显示函数Y(x)的值及其在S(x)系列中的扩展,x从x0到xk变化,步长为h =(x0-xk)/ 10.在x的整个范围内的S(x)和Y(x)的值表示计算S(x)和Y(x)的正确性.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure Form1Create(Sender:TObject);
    procedure Button1Click(Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.Form1Create(Sender: TObject);
begin
  Edit1.Text := '0';
  Edit2.Text := '2';
  Edit3.Text := '5';
  Edit4.Text := '0.25';
  Memo1.Clear;
  Memo1.Lines.Add('Lab3, Kosyakova Dasha, 10702217');
  Button1Click(Sender);
end;

procedure TForm1.Button1Click(Sender:TObject);
var
  x1, x2, x, h, a, s  : extended;
  N, k, c             : integer;
begin
   x1 := StrToFloat(Edit1.Text);
   Memo1.Lines.Add('x1 = ' + Edit1.Text);
   x2 := StrToFloat(Edit2.Text);
   Memo1.Lines.Add('x2 = ' + Edit2.Text);
   N := StrToInt(Edit3.Text);
   Memo1.Lines.Add('N = ' + Edit3.Text);
   h :=StrToFloat(Edit4.Text);
   Memo1.Lines.Add('h = ' + Edit4.Text);
   C :=-1;
   X := x1;
   Repeat
     A := 1;
     S := 1;
     for k :=1 to N do
     begin
        a := c*a*x/k;
        s := s + a;
     end;
     Memo1.Lines.Add(
       'np? x = ' + FloatToStrF(x, ffFixed, 6, 2) + ' ????? = ' +
       FloatToStrF(s, ffFixed, 6,2));
     x := x+h;
   until x>x2;
end;

end.

Answer 1

您报告的唯一解释是您未能将事件连接到其处理程序.

• 单击表单设计图面.
• 切换到Object Inspector.
• 选择" 事件"页面.
• 找到该OnCreate事件,并将其值设置为Form1Create.

您可能需要对按钮执行相同操作,以将其OnClick事件连接到处理程序.