functions to test if a array contains something and to sort a string array

--HG--
branch : trunks
fix delphi 4 compatibility, uninitialized result

--HG--
branch : trunks