05497 发表于 2014-9-19 22:51:46

求大神，已经制作完毕为什么运行不了

一边跟着小甲鱼老师学习一边做，就是不知道问题出在哪里。求指教
unit Unit1ww;

interface

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

type
TForm1 = class(TForm)
    edt_1: TEdit;
    edt_2: TEdit;
    edt_3: TEdit;
    lbl_1: TLabel;
    lbl_2: TLabel;
    btn_1: TButton;
    btn_2: TButton;
    btn_3: TButton;
    btn_4: TButton;
    btn_5: TButton;
    btn_6: TButton;
    btn_7: TButton;
    procedure edt_1Click(Sender: TObject);
    procedure edt_2Click(Sender: TObject);
    procedure edt_3Click(Sender: TObject);
    procedure btn_1Click(Sender: TObject);
    procedure btn_2Click(Sender: TObject);
    procedure btn_3Click(Sender: TObject);
    procedure btn_4Click(Sender: TObject);
    procedure btn_5Click(Sender: TObject);
    procedure btn_6Click(Sender: TObject);
    procedure btn_7Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.edt_1Click(Sender: TObject);
begin
edt_1.Text:='';
end;

procedure TForm1.edt_2Click(Sender: TObject);
begin
edt_2.Text:='';
end;

procedure TForm1.edt_3Click(Sender: TObject);
begin
edt_3.Text:='';
end;

procedure TForm1.btn_1Click(Sender: TObject);
begin
lbl_1.Caption:='+';
edt_3.Text:=FloatToStr(StrToFloat(edt_1.Text)+strtofloat(edt_2.Text));
end;

procedure TForm1.btn_2Click(Sender: TObject);
begin
lbl_1.Caption:='-';
edt_3.Text:=FloatToStr(StrToFloat(edt_1.Text)-strtofloat(edt_2.Text));
end;

procedure TForm1.btn_3Click(Sender: TObject);
begin
lbl_1.Caption:='*';
edt_3.Text:=FloatToStr(StrToFloat(edt_1.Text)*strtofloat(edt_2.Text));
end;

procedure TForm1.btn_4Click(Sender: TObject);
begin
lbl_1.Caption:='/';
edt_3.Text:=FloatToStr(strtofloat(edt_1.Text)/strtofloat(edt_2.Text));
end;

procedure TForm1.btn_5Click(Sender: TObject);
begin
edt_3.Text:=IntToStr(StrToInt(edt_1.Text)and StrToInt(edt_2.Text));
end;

procedure TForm1.btn_6Click(Sender: TObject);
begin
edt_3.Text:=IntToStr(StrToInt(edt_1.Text)or StrToInt(edt_2.Text));
end;

procedure TForm1.btn_7Click(Sender: TObject);
begin
edt_1.Text:=IntToStr(Not StrToInt(edt_1.Text));
end;

end.


aminghanhua 发表于 2014-9-20 16:08:19

是不是被360和谐了？

Angel丶L 发表于 2014-9-20 16:17:51

可以发文件源码不 这样好麻烦。

cyrs 发表于 2014-9-21 09:57:00

unit Unit1ww;这里是你自己改的，还是原来就这样？

05497 发表于 2014-9-22 14:17:29

cyrs 发表于 2014-9-21 09:57
unit Unit1ww;这里是你自己改的，还是原来就这样？

我自己命名的。

cyrs 发表于 2014-9-23 18:24:13

unit Unit1 这里就用unit Unit1
页: [1]
查看完整版本: 求大神，已经制作完毕为什么运行不了