哈,我以为这里是CB版,原来是Delphi。我上面说的不对。按照标准Pascal语法图,什么都不写就是一个空语句。分号是语句的分隔符。所以下面是合法的: IF a=1
THEN
ELSE
;这个THEN后面可以看成是一个空语句,ELSE后面可以看成是一个空语句加上一个分号作为IF语句与后面语句的分隔。
THEN
ELSE
;这个THEN后面可以看成是一个空语句,ELSE后面可以看成是一个空语句加上一个分号作为IF语句与后面语句的分隔。
解决方案 »
- 求一查询SQL语句
- 急,第3次发贴,请大家帮忙,关于数据库程序设计填空题
- 怎样编写DataSetProvider的DataRequest啊
- 菜鸟问题
- 有难题了:CHART中做一条折线,如何做到:某点之前是实线,该点之后是虚线
- 测试IP地址是否存在
- Rave问题:当连接改变时打印的为什么还是原来的数据
- 帮忙看看这个函数怎么写才行呢??在线等待....
- 高手请看:动态生成 TXMLDocument 的问题
- TAdvStringGrid 控件在 delphi 2007 怎么装不上啊?
- 如何在单机WIN98上利用ADO开发MSSQL数据库应用程序???
- 程序运行起来越来越慢,除了内存未释放外还有什么原因呢?
asm
nop
end
在程序中嵌入
asm
NOP;
end;
procedure Delay(msecs:integer);var
FirstTickCount:longint;beginFirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount-FirstTickCount) >= Longint(msecs));end;
{来自:http://www.inprise.com.cn/support/delphi/delay.htm}
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
b:integer;
implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
a :integer;
begin
if a = 1 then ; end;// 反汇编 dec eax
// retprocedure TForm1.Button2Click(Sender: TObject);
var
a :integer;
begin
if a = 1 then b:=a;end;//反汇编
//cmp eax,$01
//jnz TFom1.Button2Click + $ A
//mov [b],eax
//ret
end.
begin
if a = 1 then
end;
关键是看帖子的主人是想干什么用,某些用途下当然是可以替换的。
asm
nop
nop
//...想写多少就写多少
nop
end;
这应该是真正的空操作吧