RosettaCodeData/Task/Exceptions/DWScript/exceptions-1.dw

5 lines
74 B
Plaintext

procedure Test;
begin
raise Exception.Create('Sample Exception');
end;