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
|
{ Test unit to test various @--sort settings. }
unit ok_sorting;
interface
uses ZZZ, AAA;
type
TMyClass = class
ZZZField: Integer;
AAAField: Integer;
procedure ZZZMethod;
procedure AAAMethod;
property ZZZProp;
property AAAProp;
end;
TMyRecord = record
ZZZField: Integer;
AAAField: Integer;
end;
ZZZClass = class end;
AAAClass = class end;
ZZZType = Integer;
AAAType = Integer;
const
ZZZConst = 1;
AAAConst = 2;
var
ZZZVar: Integer;
AAAVar: Integer;
procedure ZZZProc;
procedure AAAProc;
implementation
end.
|
