blob: 1192ed1f19a50286168a22532f67b4fa7cdb9d8e (
plain)
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
|
{$ifdef fpc}{$mode objfpc}{$H+}{$endif}
uses
Classes, SysUtils;
type
{ TMyObject }
TMyObject = class(TObject)
public
constructor Create(TheOwner: TObject);
end;
{ TMyObject }
constructor TMyObject.Create(TheOwner: TObject);
begin
// create AV
if TheOwner.ClassName='' then;
end;
var
i : integer;
begin
i:=0;
writeln('Creating the first time');
try
TMyObject.Create(nil);
except
on E: Exception do begin
writeln('E='+E.Message);
inc(i);
end;
end;
writeln('Creating the second time');
try
TMyObject.Create(nil);
except
on E: Exception do begin
writeln('E='+E.Message);
inc(i);
end;
end;
writeln('Ending ..');
if i<>2 then
halt(1);
end.
|
