mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 12:07:58 +02:00
30 lines
367 B
ObjectPascal
30 lines
367 B
ObjectPascal
{$MODE Delphi}
|
|
|
|
program bug;
|
|
type
|
|
|
|
TMyObject = class
|
|
public
|
|
constructor Create; virtual;
|
|
constructor Init;
|
|
end;
|
|
|
|
var
|
|
M: TMyObject;
|
|
|
|
|
|
constructor TMyObject.Create;
|
|
begin
|
|
Writeln('Now executing TmyObject.Create');
|
|
end;
|
|
|
|
constructor TMyObject.Init;
|
|
begin
|
|
Create;
|
|
Writeln('Now finishing the INIT constructor.');
|
|
end;
|
|
|
|
begin
|
|
M := TMyObject.Init;
|
|
end.
|