Hi,
try compile and execute this sample code in Harbour.
It correctly work in Clipper and xHarbour.
*-------------------------------------------------
Function Main()
Public operator := Array( 14)
Cls
/*
dbCreate( 'test', {{'OPERATOR', 'C', 3, 0}})
dbUseArea( .t.,, 'TEST', 'TEST', .f.)
dbAppend()
Field->Operator := '106'
? Alias(), Field->operator, ValType( m->operator)
*/
operator[ 11] := {}
AADD( Operator[ 11], Array( 36))
AADD( operator[ 11], Array( 37))
AEval( operator[ 11][ 1], { | x, i| operator[ 11][ 1][ i] := PadL( i, 2, '0')})
Afill( operator[ 11][ 2], 'O')
Operator[ 12]:= { | x| Operator[ 11][ 2][ Ascan( Operator[ 11][ 1], PadL( x, 2,
"0")) + 1]}
dbCreate( 'test', {{'OPERATOR', 'C', 3, 0}})
dbUseArea( .t.,, 'TEST', 'TEST', .f.)
dbAppend()
Field->Operator := '106'
? Alias(), Field->operator, ValType( m->operator), Version() // TEST 106 A
Harbour 1.1.0dev (Rev. 11001)
? operator[ 12]:Eval( '04') // Error BASE/1068 Argument error: array access
// Called from MAIN(27)
inKey( 0)
Return Nil
*--------------------------------------------------
Regards,
Marek Horodyski
----------------------------------------------------------------------
Zrob sobie prezent. Wygraj nagrode!
Sprawdz >> http://link.interia.pl/f2176
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
