Procedureを終了させるには？

理恵 2003-10-16 14:32:34 No: 5262

break が実行されますと、その時点でループが終了しますが、
Procedureを終了させたいのですが、
ご教授お願いします。。

masayan 2003-10-16 14:43:19 No: 5263

exit です。

procedure Proc1;
var
  i : Integer;
begin
  for i := 0 to 99 do
  begin
    if i = 50 then exit;
  end
end;

理恵 2003-10-17 10:41:53 No: 5264

masayanさんありがとうございます。。