pascalabcnet/TestSamples/CompilationSamples/TryExcept2.pas

11 lines
144 B
ObjectPascal
Raw Normal View History

2015-05-14 22:35:07 +03:00
begin
try
writeln(1);
raise new Exception('xxx');
except
on e:Exception do
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: ',e);
end;
readln;
end.