On Mon, 01 Dec 2014, Tobias Boege wrote: > Public Sub Add(Value As Variant, Key As String) > Dim hEntry As New _Trie_Entry > Dim sKey As String = Key > > If $iMode = gb.IgnoreCase Then sKey = String.Upper(Key) > hEntry.Key = Key > hEntry.Value = Value > Super.Add(Value, sKey)
--> Super.Add(hEntry, sKey) -- "There's an old saying: Don't change anything... ever!" -- Mr. Monk ------------------------------------------------------------------------------ Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server from Actuate! Instantly Supercharge Your Business Reports and Dashboards with Interactivity, Sharing, Native Excel Exports, App Integration & more Get technology previously reserved for billion-dollar corporations, FREE http://pubads.g.doubleclick.net/gampad/clk?id=157005751&iu=/4140/ostg.clktrk _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user