From: youknowwhat.mccranie@adelphia.net   
      
   On Sat, 19 Feb 2005 19:48:23 -0500, Jud McCranie   
    wrote:   
      
   >Val(Str, intVar, errpos);   
   >if errpos > 0   
   >  then val( copy( str, 1, errpos), intvar, errpos);   
      
   Error, should be:   
      
   ... then val( copy( str, 1, errpos-1), intvar, errpos);   
      
   Or course, you can put this into your own subroutine:   
      
   procedure NewVal( str : string; var IntVar, ErrPos : integer);   
   begin   
   Val(Str, intVar, errpos);   
   if errpos > 0   
    then val( copy( str, 1, errpos-1), intvar, errpos);   
   end;   
      
   ---   
   Replace you know what by j to email   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)