Exit keyword

Smart pascal source code


  function Test1: Integer;
  begin
    Result := 1;
    Exit;
    Result := 2;
  end;

  function Test2: Integer;
  var
    i: Integer;
  begin
    for i := 1 to 10 do
    begin
      Result := i;
      if i = 2 then
        Exit;
    end;
  end;

  WriteLn(Test1);  // 1
  WriteLn(Test2);  // 2
  Exit;
  WriteLn('Not writelned');

  function Test2() {
	 var Result = 0;
	 var i = 0;
	 for(i=1;i<=10;i++) {
		Result = i;
		if (i==2) {
		   return Result;
		}
	 }
	 return Result
  };
  function Test1() {
	 var Result = 0;
	 Result = 1;
	 return Result;
	 Result = 2;
	 return Result
  };
  WriteLn(Test1());
  WriteLn(Test2());
  return;
  WriteLn("Not writelned");