有谁知道在delphi中？？

1219

zjh2004

文章数：96

年度积分：50

历史总积分：1219

作者的所有帖子(96)

注册时间：2003/12/5

发站内信

发表于：2003/12/15 8:52:00

#0楼

Q = 0
L = Len(A$)
For I = 1 To L
Q = Asc(Mid(A$, I, 1)) Xor Q
Next I
上面这上表达示是在vb中对A（字符串）中的每一个值进行异或运算。
我想问的是：在delphi中是怎么写上面的表达示的？？？？谢谢！！！！

【方案】交通违法监管智能化 | 华北工控嵌入式计算机支持警用无人机空中执勤

只看该作者 | 赞[1] | 踩[0] | 引用 | 回复 | 编辑 | 推荐 | 举报 | 结帖 | 管理

1219

zjh2004

文章数：96

年度积分：50

历史总积分：1219

作者的所有帖子(96)

注册时间：2003/12/5

发站内信

发表于：2003/12/15 14:47:00

#1楼

我是这样写的：
for i:=1 to L do
Q:=ord(copy(A,i,1) Xor Q;
它会报错，说是说类型不相反什么的。
但是我觉是就是这样写的，我就不知道应该怎么样写了？？？
请高手帮我调试一下好不??
还有就是我在timer时钟控件里我想对温控仪的设置值进行慢慢的增加。把command中的代码放到timer事件里，就是不行，我用手点的话每次都能设置成功。想自动化就是不行。这是为什么？？？

【方案】智慧追踪 | RFID智能识别方案为巧克力生产加足马力

只看该作者 | 赞[1] | 踩[0] | 引用 | 回复 | 编辑 | 推荐 | 举报 | 管理

1606

产品体验中心会员

hsis

文章数：111

年度积分：50

历史总积分：1606

作者的所有帖子(111)

注册时间：2002/7/30

发站内信

发表于：2003/12/15 16:21:00

#2楼

1、Delphi是一种格式很严谨的编程语言，格式必须相同才能进行运算或赋值
ord不能参与int64数据格式的运算，必须对他进行转化
Q:=0;
for i:=1 to L do
begin
Q:= ord(a[i]) xor Q;
end;

2、可能是你对Timer 的Enable没有设置，要把他设置为True，Timer控件才工作的。

【方案】WITLINE-EBOX-4G远程控制器在水产养殖上的应用

只看该作者 | 赞[1] | 踩[0] | 引用 | 回复 | 编辑 | 推荐 | 举报 | 管理

1219

zjh2004

文章数：96

年度积分：50

历史总积分：1219

作者的所有帖子(96)

注册时间：2003/12/5

发站内信

发表于：2003/12/15 17:29:00

#3楼