AHHHHHHH! Found it! I was sctatching my had at this one for a while...
I := StrToIntDef(Copy(St,3,3),0);
This should be:
I := StrToIntDef(Copy(St,3,Length(St)),0);
It's in the code that reads it back from the DB. Ok, expect a new version shortly...
WC
|