throw exception

[DorkeyDear]

I did a little Googleing without much luck looking to see if its possible to throw an exception.

For example

Code: [Select]

procedure Lollypop(flavor: string);
begin
  if ((flavor = 'bannana') or (flavor = 'berry')) then begin
    WriteLn('Good job!');
  end else begin
    throw Exception('Not available');
  end;
end;

procedure ActivateServer();
begin
  try
    Lollypop('strawberry');
  except
    WriteLn('Bad mojo: ' + Exception); //Exception: string; being the exception
  end;
end;Something like that;

I was also wondering if it were possible to check what the actual error is in an exception.

[chrisgbk]

Code: [Select]

raise Exception.Create('uhoh, spaghetti-o');

But I'm not sure if it's possible to actually do this inside of the scripting engine.

Technically, different exceptions should be created by creating a class that inherits from Exception, such as ETooMuchSauce. Again, not sure if this is possible from with the scripting engine.