BL> my string is just a number with junk I don't care about 
 BL> following it.
 
 
 BL> function StrInt(s: string): integer;
 BL> var
 BL> i, size: integer;
 BL> begin
 BL>    i := 1; size := 0;
 BL>    while s[i] in ['0'..'9'] do begin
 BL>       size := size * 10 + (Ord(s[i]) - 48);
 BL>       inc(i);
 BL>    end;
 BL>    StrInt := size;
 BL> end;

 DD> Check out VAL()

  VAL() gets upset by the junk following the numbers in the string. If
I strip[ the junk and run val() on the new string, it takes longer.

  If I go val('223 Sheep Street'); I get zero and a fault at 4. Val 
can't handle the Sheep.

Regards,
Bob
 
___ Blue Wave/QWK v2.12
@EOT:

---