kevinw
Collections June 06, 2008 05:52PM |
Peter Holemans
Re: Collections June 06, 2008 10:31PM |
BLS
Re: Collections June 11, 2008 12:48PM |
stack is class( [T] ) // note [T] PRIVATE _value is dynamic array of 0 T // Bingo procedure push() procedure pop() procedure count() END // use case iStack is stack([integer]) sStack is stack([string])
abstractStack is class procedure virtuelle push() // etc. END intStack is class inherits stack _value is dynamic array of 0 integer // etc. end
flexStack is class _value is dynamic array of 0 variant _targetType is int procedure constructor(tt is int) _targetTpe = tt end // now your constructor should init the targetType member. x is Stack(wlEntier)
MyStack += 10 //