blob: e84b57a964f321f276c7f8319d21b2de02b46e86 (
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
|
{ 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.
|
