别见笑，刚刚学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
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
各位高手赶快帮帮忙。
现在有一个delphi写的dll，函数中有PInteger的返回参数，在delphi中可以正常调用，但是我在vb里写的时候就不知道该怎么来调用了。
请看代码
以下是delphi中的函数定义和调用代码，能正常运� ......
错误类型：出错误尝试读取或写入受保护的内存。这通常指示其他内存已损坏。
C#源码
[DllImport("Base64.dll")]
public static extern string Base64ToStr(string Base64);
protected void Page_Load(o ......
IF THEN ELSE中多个条件怎么写，如：字符串S1，S2，S3，S4均要不为空。
怎么样把它写到IF中去？
请各位帮帮忙，谢谢！
if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then
begin ......
