Коллеги, здравствуйте!
Иногда бывает задача при обработке исключения, дописать в его Message детализирующую информацию и сделать reraise.
Много лет пользуюсь таким механизмом:
1.
2.
3.
4.
5.
6.
7.
8.
9.
try
...
except
on E:Exception do
begin
E.Message := E.Message+#13'(добавка)';
raise;
end;
end;
Был уверен, что механизм надежный.
Но сегодня обнаружил, что такой механизм по-разному работает для разных классов исключений.
См. пример:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
procedure TForm1.Button1Click(Sender: TObject);
begin
// Будет требуемое сообщение:
// Message 1 (O:\_temp\1\Unit1.pas, line 35)
// (добавка)
try
Assert(False, 'Message 1');
except
on E:Exception do
begin
E.Message := E.Message+#13'(добавка)';
raise;
end;
end;
end;
type
EMyExeption = class(Exception);
procedure TForm1.Button2Click(Sender: TObject);
begin
// Будет требуемое сообщение:
// EMyExeption
// (добавка)
try
raise EMyExeption.Create('EMyExeption');
except
on E:Exception do
begin
E.Message := E.Message+#13'(добавка)';
raise;
end;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
// Будет сообщение:
// Access violation at address 004566C4 in module 'Project1.exe'. Read of address 00000000.
// Я рассчитывал на сообщение:
// Access violation at address 004566C4 in module 'Project1.exe'. Read of address 00000000.
// (добавка)
try
TObject(nil).Destroy(); // специально вызываю EAccessViolation
except
on E:Exception do
begin
E.Message := E.Message+#13'(добавка)';
raise;
end;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
E: Exception;
begin
// Дописал предыдущий пример через AcquireExceptionObject.
// Теперь всё ОК.
//
// Будет требуемое сообщение:
// Access violation at address 00456730 in module 'Project1.exe'. Read of address 00000000
// (добавка)
try
TObject(nil).Destroy(); // специально вызываю EAccessViolation
except
on Exception do
begin
E := AcquireExceptionObject();
E.Message := E.Message+#13'(добавка)';
raise E at ExceptAddr;
end;
end;
end;
.
Что такого особенного в EAccessViolation, что он работает иначе, чем другие классы исключений?
Почему изменение EAccessViolation.Message, как указано выше в TForm1.Button3Click, игнорируется, тогда как в аналогичной ситуации изменение EMyExeption.Message учитывается?
Если реально есть что-то особенное в EAccessViolation, то где это описано?
Спасибо!
------
Delphi2007
