With BCB5.0, WinNT and ChangeLog 2008-09-07 01:44 UTC+0200 Viktor Szakats
(r9329)
---tt44.prg---
PROC Test
? "N10N 9N 8N 7N 6N 5N 4N 3N 2N 1 0" // Clipper
? "N10N 9N 8N 7N 6 5" // Harbour
? TAEVSM()
RETURN
STATIC FUNCTION TAEVSM()
LOCAL cString := ""
LOCAL aArray := Array( 10 )
AFill( aArray, 0 )
AEval( aArray, {| x | cString += ValType( x ) + Str( Len( aArray ), 2 ),
ASize( aArray, Len( aArray ) - 1 ) } )
RETURN cString + Str( Len( aArray ) )
--------------
bld_b32 tt44 /w/a/n
tt44
Chen.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
