Procedureを終了させるには?


理恵  2003-10-16 23:32:34  No: 5262  IP: [192.*.*.*]

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

編集    削除
masayan  2003-10-16 23:43:19  No: 5263  IP: [192.*.*.*]

exit です。

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

編集    削除
理恵  2003-10-17 19:41:53  No: 5264  IP: [192.*.*.*]

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

編集    削除