别见笑，刚刚学delphi编写计算器的小问题
3个文本编辑框
实现 第一个和第三个框输入数字 中间输入+ - * / 运算符 点击按钮出现结果 用 加 减 陈 除 四个函数 实现
function jia(x,y:Double):Double ; 函数加
var
c:Double;
begin
c:=x+y ;
jia:=c;
end;
function jian(x,y:Double):Double ; 函数减
var
d:Double;
begin
d:=x-y;
jian:=d;
end;
function chen(x,y:Double):Double ;函数称
var
e:Double;
begin
e:=x*y ;
chen:=e;
end;
function chu(x,y:Integer):double; 函数除
var
e:Double;
begin
e:=x/y ;
chu:=e;
end;
procedure TForm1.Button1Click(Sender: TObject); 按钮的事件代码
var
x,z,d:Double;
y:char;
begin
x:=strtoint(Edit1.text); 得到第一个数字
y:=Edit2.text; 这里出错了 前面是char 类型 可是不知道怎么改 z:=strtoint(Edit3.text); 得到第二个数字
if y="+" then 如果 Y=“+”号
d:=jia(x,y); 调用 jia 函数
begin &nbs
相关问答：
我在出库窗口写了个方法：ADOQueryBill 的bNum 字段的OnValidate方法 实现的是出库数量不能大于入库的数量，否则就重新输入数量，以下是我的代码：
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
要求能实现二人在同台电脑上对战的 不用太花哨 最好还加上人机对战的 急需 谁帮下忙啊呀!!!!!!!!
up
baidu，google
up
http://www.codepub.com/software/view-software-4061.html
网站上有
......
delphi 获得主板的硬件信息
Win32_DiskDrive要换一下，你查下msdn
http://hi.baidu.com/xuchuantao17/blog/item/dd6f1fdfe22ec41a48540314.html
插个标记
引用
Win32_DiskDrive要换一下，你查下msdn
� ......
delphi如何获取网页的返回状态，就像浏览器中返回的http 500错误，404错误等
另外能不能获取到打开一个网页的反应时间，可以大致参考网页打开的速度
谢谢！
都可以实现的，具体的你还是查资料吧！
自己 ......
大家好：
我目前要开发一个ERP中的BOM工时汇总程序，在ORACLE中，BOM表的结构是传统的 父件 子件 式的，工时在另一个表中，可以用left outer join来关联，可以认为，关联后的表结构为 [父件] [ ......
