Raise
From Free Pascal wiki
Jump to navigationJump to search
│
Deutsch (de) │
English (en) │
suomi (fi) │
The reserved word raise
is used to explicitly throw an exception.
The raise
statement stops normal execution and transfers control to an exception handler.
summary briefly
- belongs to object-oriented programming
- cause an exception
example
program Example1;
uses sysutils;
function titleread(a_title:string):string;
var
answer:string;
begin
writeln ( a_title);
readln(answer);
if answer = '' then raise Exception.Create('Variable has no value');
result := answer;
end;
var
firstname,lastname:string;
begin
firstname := titleread( 'Write your first name:');
lastname := titleread( 'Write your last name:');
writeln ('your name is ', firstname, ' ', lastname);
readln;
end.