Break、Exit認識比較模糊，請幫忙澄清。 ========================= 語言是工具，最重要是如何解決問題。

簡單來說Break是用來跳離迴圈(如for to/while do/Repeat Until)... 而Exit是用來跳離程序用的(如procedure/function)...

如果要在離迴圈(如for to/while do/Repeat Until)...中跳出procedure，應該如何寫呢？ ========================= 語言是工具，最重要是如何解決問題。

您好﹗    一般來講﹐相關的函數除了Break和Exit之外﹐還有Continue﹐字面上的解釋如下﹕ Break: 僅跳出迴圈﹐按順序執行迴圈之后的程式 Continue: 省略某個符合條件的孌數 Exit: 跳出迴圈﹐并結束當前的程式    我們舉個例子來講﹐在程式中分別使用此三個函數后取得的結果﹕

Var
  I : Integer;
begin
  For I := 1 to 5 do
    if I = 3 then
      begin
        Break; //參考結果一
        Continue; //參考結果二
        Exit; //參考結果三
        ShowMessage(IntToStr(I));
      end;
  ShowMessage('結束');
end;

結果一﹕出現1, 2, 結束 的Message 結果二﹕出現1, 2, 4, 5, 結束 的Message 結果三﹕出現1, 2 的Message 參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

迴圈.. 
  begin
    if ... then Exit; //直接離開 Procedure or Function 
                      //不執行迴圈下程式
  end;
.
.
.    迴圈.. 
  begin
    if ... then Break; //離開迴圈,執行迴圈下程式
  end;
.
.
.     所以在程序中碰到Exit直接離開程序
 在迴圈中到Break就跳到迴圈下面程式

你們都忘了還有個 abort 與有 try expect end or try finally end .... 時該指令的影響範圍

syntax: 您好。    對不起，雖然已經結案，但是想繼續討論。 下面是我的一段程式，其中使用Exit，但是出現Compile不過的問題，請指點一下，謝謝。  

 
type
  PnetResourceArr = ^TNetResource;
procedure TMainForm.GetClientUserList(sServerName: String;UserList: TListItems);
Var
  NetResource : TNetResource;
  Buf: Pointer;
  Count,BufSize,Res: DWord;
  Ind: Integer;
  lphEnum: THandle;
  Temp: PNetResourceArr;
        item: TListItem;
Begin
  UserList.Clear;
  Buf := nil;
  GetMem(Buf, 8192);
  Try
    FillChar(NetResource, SizeOf(NetResource), 0);
    NetResource.lpRemoteName := @sServerName[1];
    NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;
    NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;
    NetResource.dwScope := RESOURCETYPE_DISK;
    Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum);
    if Res <> 0 then Exit;               //這裡Compile不能通過，幫忙說明原因好嗎？
    While True Do
    Begin
      Count := $FFFFFFFF;
      BufSize := 8192;
      Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);
      If Res = ERROR_NO_MORE_ITEMS Then Exit;
      If (Res <> 0) then Exit;
      Temp := PNetResourceArr(Buf);
      For Ind := 0 to Count - 1 do
      Begin
        Item := TListItem.Create(UserList);
        Item.Caption := Temp^.lpRemoteName   2;            Inc(Temp);
      End;
    End;
    Res := WNetCloseEnum(lphEnum);
    If Res <> 0 Then Raise Exception(Res);
  Finally
    FreeMem(Buf);
  End;
 

========================= 語言是工具，最重要是如何解決問題。