On Thu, 07 May 2009, [email protected] wrote:
Hi,
> 2009-05-07 08:55 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
> * source/rtl/tget.prg
> + Added TIMESTAMP support for GETs.
> % Optimizations using SWITCH and FOR EACH.
Thank you very much anyhow there is one problem with above modification.
SWITCH accepts only integer and string values and ::cType in GET class
is NIL in some cases so when you use
SWITCH ::cType
then RT error is generated for NIL value:
Error BASE/3104 Argument error: SWITCH
You should 1-st test for NIL, f.e. tget.prg[1123] should look like:
IF Empty( ::cPicMask ) .OR. ::cPicture == NIL && ::cType != NIL
SWITCH ::cType
CASE "D"
[...]
best regards,
Przemek
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
