计算器（加了个小数点）。。。

       if s_characterlast=''''+'''' then
        begin
            edit1.Text:=floattostr(strtofloat(s_number) + strtofloat(edit1.Text ));
            s_number:=edit1.text;
       end;

        if s_characterlast=''''-'''' then
       begin
            edit1.Text:=floattostr(strtofloat(s_number) - strtofloat(edit1.Text ));
            s_number:=edit1.text;
       end;

        if s_characterlast=''''/'''' then
         begin
             edit1.Text:=floattostr(strtofloat(s_number) / strtofloat(edit1.Text ));
             s_number:=edit1.text;
         end;
    end;
    j:=''''3432'''';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
j:='''''''';
s_type:=''''1'''';
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
  edit1.text:='''''''';
end;

end.

上一页  [1] [2] [3] 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18