mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 07:58:04 +02:00
30 lines
331 B
ObjectPascal
30 lines
331 B
ObjectPascal
{ Old file: tbs0330.pp }
|
|
{ }
|
|
|
|
{$ifdef fpc}{$mode objfpc}{$endif}
|
|
uses
|
|
Classes;
|
|
|
|
type
|
|
TMyClass = class(TPersistent);
|
|
|
|
var
|
|
MyVar: Integer;
|
|
|
|
|
|
type
|
|
TMyClass2 = class(TObject)
|
|
procedure MyProc;
|
|
end;
|
|
|
|
TMyOtherClass = class(TPersistent);
|
|
|
|
procedure TMyClass2.MyProc;
|
|
var
|
|
MyImportantVar: Integer;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|