Delphi-Help

Raise

Печать
Рейтинг пользователей: / 2
ХудшийЛучший 

Raise

Описание

1 Raise
2 Raise Object reference
3 Raise Object reference At Address pointer

Ключевое слово Raise создает объект исключения, который передается обработчику исключений Delphi.

Вы можете поднимать исключения только в буквально исключительных случаях. Это не только из-за понесенных накладных расходов ресурсов при выполнении, но также и потому, что есть наиболее лучшие пути для обработки ошибок приложения, таких как коды возврата от функций.

Версия 1:
Raise используется в предложении Except инструкции Try. Она просто, переподнимает текущее исключение в приложении для того, чтобы обратиться к нему на более высоком уровне.

Версия 2:
Использует новый объект исключения для сообщения об исключении. Обычно, вы можете использовать объект Exception, или унаследованный объект Exception.

Вы можете создать объект во время исключения:

Raise Exception.Create('Error happened');

Версия 3: как и версии 2, но с изменением значения адреса исключения. Во всех случаях, когда запрос Raise сделан, выполнения кода переходит к обработчику исключений Delphi - он или заканчивает программу, или использует текущую инструкцию Try, чтобы обработать её.

Пример кода

var
fred, jim : string;
begin
// Установка некоторых типовые названий
fred := 'Good name';
jim  := 'Badname  ';

// Попытка менять эти названия
try
ShowMessage(fred+' поменялся = '+SwapNames(fred));
ShowMessage(jim+' поменялся = '+SwapNames(jim));
except
On E : Exception do
ShowMessage(E.Message);
end;
end;

// Перестановка первого и второго названия в переданной строке названия
// Поднимает исключение, если название недопустимо
function TForm1.SwapNames(name: string): string;
var
blankPos : Integer;
i        : Integer;
nameLen  : Integer;
begin
// Очистка строки результата, чтобы указать, что нет никакого результата
Result := '';

// Нахождение позицию последнего названия
blankPos := Pos(' ', name);

// Если найдено, и позиция меньше конца названия
// тогда пока всё нормально
nameLen := Length(name);
if (blankPos > 0) and (blankPos
then
begin
// Нахождение начала второго названия
i := blankPos + 1;
repeat
// Если начало последнего названия найденно, меняем первое и последнее название
if name[i] <> ' '
then Result := Copy(name, i, nameLen-i+1) + ' ' +
Copy(name, 1, blankPos-1)

else Inc(i);
until (i > nameLen) or (Length(Result) > 0);
end;

// Не удалось поменять первое и второе название ?
if Length(Result) = 0
then Raise Exception.CreateFmt('
Недопустимое название : ''%s''', [name]);
end;

Good name поменялся = name Good
Недопустимое название : 'Badname '

var
age : Integer;
exc : EBadAge;
begin
// Простой код, который поднимает новый тип исключения
age := 23;
if age <30
then
begin
// Создание нового объекта исключения EBadAge
exc := EBadAge.CreateFmt('Bad age : %d',[age]);

// Теперь поднимаем этот новый объект исключения
Raise exc;
end;
end;

Диалог ошибки Delphi покажет сообщение :

Bad age : 23

 

Примечание

 

Авторизация



Счетчики