8
TTestObject = Class(TObject)
11
Constructor Create (ID : INteger; Msg : String);
12
Destructor Destroy; override;
16
Constructor TTestObject.Create (ID : INteger; Msg : String);
23
procedure TTestObject.Print;
26
Writeln(FID,' (',FMsg,')');
29
Destructor TTEstObject.Destroy;
32
Write('Destroying : ');
44
S:=TobjectList.Create;
46
S.add(TTestObject.Create(I,'Item '+intToStr(i)));
47
Writeln('Counting objects:');
48
For I:=0 to S.Count-1 do
49
(S[i] as TTestObject).Print;
50
Writeln('Shifting..');
53
Writeln('Counting objects:');
54
For I:=0 to S.Count-1 do
55
(S[i] as TTestObject).Print;
56
Writeln('Deleting objects:');
57
For I:=S.Count-1 downto 0 do