德爾福有沒有塊標籤？

Question

在Java中，我們可以做的事情，如：

String output = ""; 

stop: { 
// count 10 lines 

for (int row = 1; row <= 10; row++){ 
    // count 5 columns 

    for (int column = 1; column <= 5; column++ { 
    if (row == 5) 
     break stop; 
    output += "* "; 

    } 

    output += "\n"; 
    } 
    output += "\nTerminated Ok."; 
    } 

結果是10行的打印，但它結束於5：

* * * * * 
* * * * * 
* * * * * 
* * * * * 
* * * * * 

是否有德爾福相同呢？

Answer 1

Delphi不支持Java的中斷標籤的等價物。

考慮以下幾點：

for i := 1 to 10 do 
    for j := 1 to 10 do 
    if ... then break; 

在Delphi中break總是爆發最裏面的語句，在j在上面的例子中循環。

在Java中，您可以標記塊並跳出標記的塊。所以在Java中，您可以使用標記的中斷跳出i for循環。例如：

outerloop: { 
    for (int i = 1; i < 10; i++) { 
    for (int j = 1; j < 10; j++) { 
     if (...) break outerloop; 
    } 
} 

這樣的中斷在Delphi中是不可能的。在德爾福最接近的等效是可怕的goto，它仍然是considered harmful。

{$APPTYPE CONSOLE} 

uses 
    SysUtils, Classes; 

var 
    i, j: Integer; 

label 
    outerloopend; 

begin 
    for i := 1 to 10 do 
    begin 
    for j := 1 to 10 do 
    begin 
     if i>5 then 
     goto outerloopend; 
     Write(Format('%d,%d ', [i, j])); 
    end; 
    Writeln; 
    end; 
outerloopend: 
    Writeln('Edsger Dijkstra, sorry for using goto!'); 
    Readln; 
end.