Raise/fi
From Lazarus wiki
Jump to navigationJump to search
│
Deutsch (de) │
English (en) │
suomi (fi) │
Varattua sanaa raise
käytetään poikkeuksen "heittämiseen".
Raise
lauseke pysäyttää ohjelman normaalin suorittamisen ja siirtää ohjauksen poikkeuksen käsittelijälle.
Lyhyt yhteenveto
- Kuuluu olio-ohjelmointiin
- Aiheuttaa poikkeuksen
Esimerkki
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.