2
{ Source provided for Free Pascal Bug Report 2174 }
3
{ Submitted by "Maarten Bekers" on 2002-10-13 }
4
{ e-mail: fpc@elesoft.net }
10
type StringArrayObj = Object
11
constructor Init(AllocStrings: Longint);
13
end; { StringArrayObj }
15
type pStringArrayObj = ^StringArrayObj;
17
constructor StringArrayObj.Init(AllocStrings: Longint);
19
end; { constructor Init }
21
destructor StringArrayObj.Done;
23
end; { destructor Done }
26
oo2,oo3: ^stringarrayobj;