我是新手 谁能帮帮我这个是怎么了啊？？？唯有2鱼币献上

yu8384622yu

unit Unit12;

interface

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

type
  TForm1 = class(TForm)
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    lbl1: TLabel;
    lbl2: TLabel;
    procedure edt1Click(Sender: TObject);
    procedure edt2Click(Sender: TObject);
    procedure edt3Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.edt1Click(Sender: TObject);
begin
  edt1.Text :='';



end;

procedure TForm1.edt2Click(Sender: TObject);
begin
  edt2.Text :='';



end;
procedure TForm1.edt3Click(Sender: TObject);
begin
  edt3.Text :='';



end;

procedure TForm1.btn1Click(Sender: TObject);
begin
   lbl1 .Caption :='+' ;
edt3 .Text := FloatToStr(StrToFloat(edt1 .Text ) +  StrToFloat(edt2 .Text )  );

end;

procedure TForm1.btn2Click(Sender: TObject);
begin
   lbl1 .Caption :='-' ;
  edt3 .Text := FloatToStr(StrToFloat(edt1 .Text ) -  StrToFloat(edt2 .Text )  );

end;


procedure TForm1.btn3Click(Sender: TObject);
begin
   lbl1 .Caption :='×' ;

   edt3 .Text := FloatToStr(StrToFloat(edt1 .Text ) × StrToFloat(edt2 .Text));
end;


procedure TForm1.btn4Click(Sender: TObject);
begin
   lbl1 .Caption :='÷' ;
    edt3 .Text := FloatToStr(StrToFloat(edt1 .Text ) ÷ StrToFloat(edt2 .Text));
end;


end.

comeheres

建议LZ好好看看基础知识，或者把小甲鱼老师的每节视频认真看完后再去写程序。
2个算术运算符写错了，帮你用红色标记了。具体怎么改，LZ去看小甲鱼老师的教学视频吧，里面讲得很清楚了（004基本数据类型与表达式03）

procedure TForm1.btn3Click(Sender: TObject);
begin
   lbl1 .Caption :='×' ;

   edt3 .Text := FloatToStr(StrToFloat(edt1 .Text ) × StrToFloat(edt2 .Text));
end;


procedure TForm1.btn4Click(Sender: TObject);
begin
   lbl1 .Caption :='÷' ;
    edt3 .Text := FloatToStr(StrToFloat(edt1 .Text ) ÷ StrToFloat(edt2 .Text));
end;

comeheres

运行出错？错在哪个地方？你直接贴出了全部代码，很少有人会花时间帮你去慢慢找的……

yu8384622yu

comeheres 发表于 2013-7-14 13:54

                               
登录/注册后可看大图

运行出错？错在哪个地方？你直接贴出了全部代码，很少有人会花时间帮你去慢慢找的……

谢了啊  尽管我也不知道该怎么改，不过感谢

yu8384622yu

comeheres 发表于 2013-7-14 13:54

                               
登录/注册后可看大图

运行出错？错在哪个地方？你直接贴出了全部代码，很少有人会花时间帮你去慢慢找的……

谢了啊  尽管我也不知道该怎么改，不过感谢:'(

comeheres

自己看图吧

商道

comeheres 发表于 2013-7-14 12:31

                               
登录/注册后可看大图

建议LZ好好看看基础知识，或者把小甲鱼老师的每节视频认真看完后再去写程序。
2个算术运算符写错了，帮你用 ...

我也刚学 也是新手 我也遇到这样的问题 后来我自己找出问题了  就是这两个问题 运算符 乘法 和除法 不是× 和÷ 而是*和/

商道

我也刚学 也是新手 我也遇到这样的问题 后来我自己找出问题了  就是这两个问题 运算符 乘法 和除法 不是× 和÷ 而是*和/