别见笑，刚刚学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
相关问答：
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
各位高手赶快帮帮忙。
现在有一个delphi写的dll，函数中有PInteger的返回参数，在delphi中可以正常调用，但是我在vb里写的时候就不知道该怎么来调用了。
请看代码
以下是delphi中的函数定义和调用代码，能正常运� ......
想请问各位：盘点维护里面：盘盈亏数量=库存数量+入库数量-出库数量，这样做是对的吗，
楼上正解,正数盘盈 负数盘亏
一楼正确！
谢谢各位啦
就是：是不是 实际库存里的库存量 与你手动输进去的数量之间� ......
我在网上找了个关于IEBHO的代码，然后按照哪个设置了，后来运行的时候出现
构建
[警告] Project2.dpr(14): File not found: 'MYbho.TLB'
[警告] Project2.dpr(16): File not found: 'MYbho.RES'
......
(急)我想用UDP实现客户端与服务器之间的信息发送。即，客户端发信息给服务器端，服务器能正常的接受，并且是按顺序接受的。如客户端发送Edit1,Edit2,Edit3,Edit4....后，在服务器的Edit1,Edit2,Edit3,Edit4....依次� ......
