Exit | finally

Smart pascal source code


{-------- TEST I ------}
function Hello : String;
begin
   Result:='duh';
   try
      Result:='Hello';
      if True then Exit;
   finally
      Result:=Result+' world';
   end;
   Result:='Bye bye';
end;

WriteLn(Hello);

function Test(i : Integer) : Boolean;
var
   ts : TObject;
begin
   Result := False;
   ts := TObject.Create;
   try
      if (i < 10) then Exit;
   finally
      ts.Free;
   end;
   Result := True;
end;

//if not Test(10) then WriteLn('Test bugged 10');
if Test(5) then WriteLn('Test bugged 5');

try
   WriteLn('Try');
   Exit;
finally
   WriteLn('Finally');
end;
WriteLn('Bug');
  { <<< CONSOLE OUTPUTS >>>
    Hello world
    Try
    Finally
  }

{------ TEST II ------}

function Hello2(doExit : Boolean) : String;
begin
   Result:='duh';
   try
      try
         Result:='Hello';
         if doExit then Exit;
	 Result+=' one';
      finally
         WriteLn('1st finally');
      end;
      Result+=' two';
   finally
      WriteLn('2nd finally');
      Result+=' world'
   end;
   Result:='Bye bye';
end;

WriteLn(Hello2(False));
WriteLn(Hello2(True));
{
  1st finally
  2nd finally
  Bye bye
  1st finally
  2nd finally
  Hello world
}

  function Hello2(doExit) {
	 var Result = {v:""};
	 try {
		Result.v = "duh";
		try {
		   try {
			  Result.v = "Hello";
			  if (doExit) {
				 return Result.v;
			  }
			  Result.v+=" one";
		   } finally {
			  WriteLn("1st finally");
		   }
		   Result.v+=" two";
		} finally {
		   WriteLn("2nd finally");
		   Result.v+=" world";
		}
		Result.v = "Bye bye";
	 } finally {return Result.v}
  };
  function Test(i) {
	 var Result = {v:false};
	 try {
		var ts = null;
		Result.v = false;
		ts = TObject.Create($New(TObject));
		try {
		   if (i<10) {
			  return Result.v;
		   }
		} finally {
		   TObject.Free(ts);
		}
		Result.v = true;
	 } finally {return Result.v}
  };
  function Hello() {
	 var Result = {v:""};
	 try {
		Result.v = "duh";
		try {
		   Result.v = "Hello";
		   return Result.v;
		} finally {
		   Result.v+=" world";
		}
		Result.v = "Bye bye";
	 } finally {return Result.v}
  };
  WriteLn(Hello());
  if (Test(5)) {
	 WriteLn("Test bugged 5");
  }
  try {
	 WriteLn("Try");
	 return;
  } finally {
	 WriteLn("Finally");
  }
  WriteLn("Bug");
  WriteLn(Hello2(false));
  WriteLn(Hello2(true));