2015年1月22日 星期四

Delphi - Goto 用法


世事真的很難料...
怎知莫名其妙的會從 C# 倒退回來寫 Delphi!
更怎知會退到 BDE 這麼這麼有年紀的技術...
好啦!抱怨完啦~~~

沒想到從沒寫過 goto 的我會在這個摸門需要...
查了一下大概就會長的像下面這個樣子


是說這樣不寫 goto 可以用甚麼?程式碼如下:

var
  mr: Word;
  I, J: Integer;
  label CheckFile;
begin
  CheckFile:
  if not FileExists(fileName) then
  begin
    mr := MessageDlg('檔案' + fileName + '不存在!', mtError, mbAbortRetryIgnore, 0);
    case mr of
      mrAbort: Abort;
      mrRetry: goto CheckFile;
      mrIgnore: Exit;
    end;
  end;

收工...(雙手合十)