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下怎么写啊?初学者见笑了.
另外问一下有没有通用的转换工具啊?
解决方案 »
- 请问如何遍历StringGrid某一列的值,符合条件的删除所在行?
- delphi6编写的服务程序常常死掉,除了写个监听服务,有没有好的办法
- SynEdit中,右击TSynUniSyn组件,点Edit...,出现如下错误,请问什么原因?
- 关于悬浮窗口
- ×××免费发放我做的一个控件的注册号,希望朋友们支持!×××
- 大家帮我看看这个dll吧 -_-! (关于dll初始化和释放)
- 急问题?
- 關於程序打包發布的問題;急!!!在線等待!!!
- 高分求解!!!!急!!
- TRxRichEdit 是什么?哪里有?对中文的支持如何?
- 急!急!急!一个上午都没解决,希望谁能帮助我,小弟先谢谢了!
- 请教各位大虾:第三方控件中的 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!");