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()

 DD> What are you timing it with?

  I just run StrToInt 100,000 times and time it with the profiler.

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

 DD> You want me to?

  Val is a silly name for a procedure. They ought to call it Shirley.

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

---