sorry I tried with Harbor and xharbour and make errors
on harbour
[1]:Harbour.Exe Source\rctoprg.prg /m /n0 /gc1 /es2 /a /iC:\Work\fwh\include /iC:\work\HARBOUR\Include /jI18n\Main.hil /iinclude;c:\work\fwh\include;C:\work\HARBOUR\include /oObj\rctoprg.c
Harbour 3.2.0dev (r1406271520)
Copyright (c) 1999-2014, http://harbour-project.org/
Compiling 'Source\rctoprg.prg'...
Lines 4700, Functions/Procedures 1
Generating C source output to 'Obj\rctoprg.c'... Done.
[1]:Bcc32.Exe -M -c -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -IC:\Work\fwh\include -IC:\work\bcc7\Include\windows\sdk\;C:\work\HARBOUR\Include -nObj Obj\rctoprg.c
Embarcadero C++ 7.00 for Win32 Copyright (c) 1993-2015 Embarcadero Technologies, Inc.
Obj\rctoprg.c:
[1]:Harbour.Exe Source\TRctoprg.prg /m /n0 /gc1 /es2 /a /iC:\Work\fwh\include /iC:\work\HARBOUR\Include /jI18n\Main.hil /iinclude;c:\work\fwh\include;C:\work\HARBOUR\include /oObj\TRctoprg.c
Harbour 3.2.0dev (r1406271520)
Copyright (c) 1999-2014, http://harbour-project.org/
Compiling 'Source\TRctoprg.prg'...
Source\TRctoprg.prg(194) Error E0021 Incorrect number of arguments in AT
Passed: 3, expected: 2
Source\TRctoprg.prg(200) Error E0021 Incorrect number of arguments in AT
Passed: 3, expected: 2
Source\TRctoprg.prg(206) Error E0021 Incorrect number of arguments in AT
Passed: 3, expected: 2
Source\TRctoprg.prg(212) Error E0021 Incorrect number of arguments in AT
Passed: 3, expected: 2
Source\TRctoprg.prg(218) Error E0021 Incorrect number of arguments in AT
Passed: 3, expected: 2
Source\TRctoprg.prg(238) Error E0021 Incorrect number of arguments in AT
Passed: 3, expected: 2
6 errors
No code generated.
it is compiled but then make this error
Application
===========
Path and name: C:\Work\Errori\rctoprg\rctoprg.Exe (32 bits)
Size: 3,675,648 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20150603)
FiveWin version: FWHX 17.02
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.1, Build 7600
Time from start: 0 hours 0 mins 5 secs
Error occurred at: 06/04/17, 10:44:51
Error description: Error BASE/1110 Argument error: SUBSTR
Args:
[ 1] = U
[ 2] = N 1
[ 3] = N -1
Stack Calls
===========
Called from: => SUBSTR( 0 )
Called from: Source\TRctoprg.prg => TRCTOPRG:DIALOGO( 144 )
Called from: Source\TRctoprg.prg => TRCTOPRG:DESCARGARATXT( 183 )
Called from: Source\TRctoprg.prg => TRCTOPRG:GENERARRC( 304 )
Called from: Source\TRctoprg.prg => (b)TRCTOPRG:PANTALLA( 348 )
Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK( 179 )
Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1685 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3325 )
Called from: => SENDMESSAGE( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 416 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 914 )
Called from: => DIALOGBOX( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
Called from: Source\TRctoprg.prg => TRCTOPRG:PANTALLA( 350 )
Called from: Source\rctoprg.prg => MAIN( 22 )
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
