From: broersma.juda_ANTISPAM_@tiscali.nl   
      
   Op 11 Oct 2005 04:05:55 -0700 schreef "Riaan" :   
   [much snipping]   
   >***************************************************************   
   ****************************}   
   >   
   >   
   >Type   
   >	TCodon = (   
   >		 UUU, UCU, UAU, UGU,   
   >		 UUC, UCC, UAC, UGC,   
   >		 UUA, UCA, UAA, UGA,   
   >		 UUG, UCG, UAG, UGG,   
   >		 CUU, CCU, CAU, CGU,   
   >		 CUC, CCC, CAC, CGC,   
   >		 CUA, CCA, CAA, CGA,   
   >		 CUG, CCG, CAG, CGG,   
   >		 AUU, ACU, AAU, AGU,   
   >		 AUC, ACC, AAC, AGC,   
   >		 AUA, ACA, AAA, AGA,   
   >		 AUG, ACG, AAG, AGG,   
   >		 GUU, GCU, GAU, GGU,   
   >		 GUC, GCC, GAC, GGC,   
   >		 GUA, GCA, GAA, GGA,   
   >		 GUG, GCG, GAG, GGG,   
   >		 ERR);   
   >   
   >Const   
   >	AminoNames = Array[TCodonEnum] of String[3] = (   
   >		'Phe', 'Ser', 'Tyr', 'Cys'   
   >		'Phe', 'Ser', 'Tyr', 'Cys'   
   >		'Leu', 'Ser', 'STP', 'STP'   
   >		'Leu', 'Ser', 'STP', 'Trp'   
   >		'Leu', 'Pro', 'His', 'Arg'   
   >		'Leu', 'Pro', 'His', 'Arg'   
   >		'Leu', 'Pro', 'Gln', 'Arg'   
   >		'Leu', 'Pro', 'Gln', 'Arg'   
   >		'Ile', 'Thr', 'Asn', 'Ser'   
   >		'Ile', 'Thr', 'Asn', 'Ser'   
   >		'Ile', 'Thr', 'Lys', 'Arg'   
   >		'Met', 'Thr', 'Lys', 'Arg'   
   >		'Val', 'Ala', 'Asp', 'Gly'   
   >		'Val', 'Ala', 'Asp', 'Gly'   
   >		'Val', 'Ala', 'Glu', 'Gly'   
   >		'Val', 'Ala', 'Glu', 'Gly',   
   >		'ERR');   
   >   
   >   
   >   
   Tried it at last, modified it to return the proper index, as all th   
   eother functions do.   
   Never used this typeinfo thingy, so it took me a while ...   
      
   Result: it is 1.4 times slower then the "Nested Case" method.   
      
   But reading up on this stuf was very interesting though, so it was   
   worth it's while (is that correct English?).   
      
   Bart   
   --   
   Bart Broersma   
   broersma.juda_ANTISPAM_@tiscali.nl   
   (ff _ANTISPAM_ wegpoetsen uit dit adres natuurlijk)   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)