************* FUNCTION TEST() ********** LOCAL cName := SPACE(10) SET EXACT ON IF cName = "" ? "OK : This work like Clipper" ELSE ? "STOP : This work bad" ENDIF INKEY(0) RETURN NIL
... cName = "" MessageBox("OK : This work like Clipper") ELSE MessageBox("STOP : This work bad") ENDIF RETURN NIL This is too hard... (But i confirm, Asc() and ReadInsert() work fine with xHarbour 0.99.5) Badara http://www.icim.fr
Hello EMG, Can you tell me the betters compiler options to compile all Fivewin for Harbour .prg with xHarbour in one pass (if possible) ? I have some compiler errors with these options : "-l -n -w -m -gc0" ie error : "dbms.ch (84) Warning I0003 : No markers in repeatable group [;#undef _Dbms_ ] - gr...
Hello Mr Babin, Hello Everybody, I am testing xHarbour build 0.99.5, waiting new release of Harbour. I get an executable, but when i run it, this message appears at first : "ALERT.PRG was compiled by older version, PCODE version 5 is no longer supported - Please recompile." Are the FWH 2.5 lib's not...
... post. However the following code worked flawlessly under FWH using Harbour Alpha build 44.0 and also using xHarbour build 99.3 // Test of ASC function FUNCTION MAIN() LOCAL n, cStr := "", lf := CHR(13)+CHR(10) FOR n := 0 TO 255 cStr += LSTR( ASC(CHR(n)) )+IF(n%10=0,lf," - ") NEXT MSGINFO( ...