别见笑，刚刚学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
相关问答：
我在网上找了个关于IEBHO的代码，然后按照哪个设置了，后来运行的时候出现
构建
[警告] Project2.dpr(14): File not found: 'MYbho.TLB'
[警告] Project2.dpr(16): File not found: 'MYbho.RES'
......
delphi 获得主板的硬件信息
Win32_DiskDrive要换一下，你查下msdn
http://hi.baidu.com/xuchuantao17/blog/item/dd6f1fdfe22ec41a48540314.html
插个标记
引用
Win32_DiskDrive要换一下，你查下msdn
� ......
一直想使用dll，但delphi的dll子窗体经常有各种问题，比如主窗口与dll子窗口的焦点问题，子窗口中控件的tab键、热键、enter键等的问题，子窗口退出的问题、平面按钮问题等等，网站上进行了搜索，没有比较完美的解决� ......
(急)我想用UDP实现客户端与服务器之间的信息发送。即，客户端发信息给服务器端，服务器能正常的接受，并且是按顺序接受的。如客户端发送Edit1,Edit2,Edit3,Edit4....后，在服务器的Edit1,Edit2,Edit3,Edit4....依次� ......
