你如何写一个无操作声明？

Question

在 Delphi 中编写 no-op 语句 的最佳方法是什么？

采取以下代码：

if a=b then
  SomeOldStatement
else
  AnotherStatement;

并说您暂时想要删除 SomeOldStatement。

你会选择这个解决方案吗：就我

if a=b then
  //SomeOldStatement
else
  AnotherStatement;

个人而言，我不喜欢空的 then 部分，并且希望其中可以编译一些东西...

if a=b then
  NoOp
  //SomeOldStatement
else
  AnotherStatement;

Answer 1

不知道为什么你需要那里的任何东西（例如我对“然后其他”感到满意）。

但如果你想要一些可编译的东西，我会这样做：

if a=b then
  begin end
  //SomeOldStatement
else
  AnotherStatement;

空的开始块是我所知道的 Delphi 中最好的 noop。它不会产生汇编代码，因此没有开销。

Answer 2

if a=b then 
  SomeOldStatement 
else 
  AnotherStatement; 

应该像现在这样写

if a=b then
begin
  SomeOldStatement;
end 
else
begin
  AnotherStatement; 
end;

，可以注释掉SomeOldStatement；与您所追求的效果完全相同，调试器更准确地遵循代码流程，并且您可以避免代码中出现奇怪的副作用，例如

if a=b then
  if b=c then
    statement1
  else
    if c=d then
      statement2;
  else
   statement2
else 
  statement3;

搞砸缩进，分号错误，记录一行用于测试和天哪，事情变得丑陋快速地。

说真的，尝试弄清楚我刚刚编写的代码在没有编译器通过的情况下是否有效。

现在，猜猜会发生什么：

if a=b then
if b=c then
statement1
else
if c=d then
statement2;
// else
statement2
else 
statement3;

另外：

if a=b then
  statement1;
  statement2;

经常会做奇怪的事情，甚至当你

if a=b then
//  statement1;
statement2;

认真做的时候更奇怪的事情 - 只要养成在你的所有逻辑中总是有开始结束的习惯 - 它使你的代码更容易遵循，避免侧面效果，避免心理解析错误、代码解析错误和注释掉副作用。

另外，空的开始/结束与您的空操作相同。

Answer 3

在Delphi 2005及后续版本中，您可以定义一个NoOp空过程并将其标记为inline。

这样，除非您定义 {$INLINE OFF} 或在编译器选项中将代码内联控制设置为关闭，否则不会生成代码嗯>。

procedure NoOp; inline;
begin
  // do nothing
end;

生成的代码非常干净：

if a=b then
  NoOp //SomeOldStatement
else
  AnotherStatement;

Answer 4

这是最好的选择。我广泛使用它进行调试，因为我可以在那里放置断点，不依赖于其他单元，不会以任何方式干扰您的程序，而且比条件断点快得多。

if a=b then
  asm nop end
else
  AnotherStatement;

Answer 5

您可以使用类似 a:=a 的内容，但说实话，我发现它甚至比非声明更丑陋 - 您应该编码，以便后面的内容您会明白您的意图，并且命令 a:=a 并不真正遵循该准则。

由于这只是一个临时的事情，我只想接受这样一个事实：其中没有可执行代码。如果，正如你所说，Delphi 仍然可以很好地编译它，那么你就没有问题。

如果您想要在其中添加一些代码作为断点，并且没有更好的方法来实现，我会考虑暂时执行 a:=a 操作。

如果这将是一个更永久的更改，您可以考虑反转条件，以便根本没有空块：

if not (a = b) then
    AnotherStatement;

或者更好的是：

if a <> b then
    AnotherStatement;

Answer 6

赋值怎么样，a := a？那是不行的。

（我不了解 Delphi，因此赋值的语法可能是错误的，但希望您能理解并在需要时更正语法）

Answer 7

如果没有 begin end 块的语句是一个等待发生的错误，在这种情况下添加 begin end 块将允许您注释掉您的行，​​而无需更改任何更多代码。