dim i as integer
dim j as integerfor i=0 to 1000 step 2
for j=0 to 1000
j=j+1
next j
i=i+1
next imsgbox "OK!"Delphi下怎么写啊?初学者见笑了.
另外问一下有没有通用的转换工具啊?
dim j as integerfor i=0 to 1000 step 2
for j=0 to 1000
j=j+1
next j
i=i+1
next imsgbox "OK!"Delphi下怎么写啊?初学者见笑了.
另外问一下有没有通用的转换工具啊?
解决方案 »
- 如何查找运行的进程中是否存在某个进程?如abc.exe
- 有关两个Access数据库表的字段比较问题
- 求教!!!
- 有谁做过采购系统?头都想大了
- 本人正在尝试写网络版的系统,那位高手可否给写进销存方面的存储过程来参考参考啊!100分
- class function 什么意思啊??100分相送
- 我想写一个过程,传入文件名,然后把文件用二进制方式读取传出,应该怎么做呢?
- 哪有delphi7的讲报表的资料下载?因为控件变了,不熟悉了!谢谢!
- 想問點小問題
- 与SQL SERVER 长时间连结会出现变慢或死机,如何解决?
- 急!急!急!一个上午都没解决,希望谁能帮助我,小弟先谢谢了!
- 请教各位大虾:第三方控件中的 cxLookupComboBox 的单击事件(Onclick)为什么无效的?救命啊!
i:integer;
j:integer;
begin
i:=0;
while i<=1000 do
begin
j:=0;
while j<=1000 do
j=j+1;
i=i+2;
end;showmessage("OK!");