for I := 1 to Length(code) - 1 do
begin
if (I mod 2 = 0) then//当余数为0时为true,但好象一直没有为真,错在哪里呢?
begin
test='';
end;
end;
解决方案 »
- 请问如何判断Tsb键的光标停在DBGRID内的某一字段?
- 哪位用delphi调用mpglib.dll播放音乐的,介绍一下经验!!!!!!
- delphi中能否调用access的“压缩和修复数据库”功能??
- 事务和锁的问题
- 图片问题
- 奇怪的问题能解决者一百分:
- 100分 :CreateProcess调用dos程序的问题
- 请问哪位朋友有WINDOWS优化大师V4.9 BUILDER808的注册码?给我一份好吗?
- 如何在程序中传递一个小数点显示位数,然后在fastreport里根据不同的设置显示不同的位数
- 关于权限的问题,系统管理员要添加一个新用户并为这个新的用户开启一些菜单或禁止一些菜单,该如何做呢?
- 这个函数如果怎么用?其中的ix,iy是什么?可不可以改为按钮代码?
- 老板说涨工资了,庆祝一下
var
i:integer;
begin
showmessage(inttostr(Length(code)));
for I := 1 to Length(code) - 1 do
begin
if (I mod 2 = 0) then//当余数为0时为true,但好象一直没有为真,错在哪里呢?
begin
showmessage('i='+inttostr(i)+',为真');
end;
end;end;
for I := 1 to Length(code) - 1 do
这句不能完全遍历code位
showmessage();
看看信息在传递时,有什么?????????