Sorry for my previons post in html. I send it from www, and no't can change
format.
Sample code is :
FUNCTION Main()
LOCAL b, y, oErr
begin sequence
? 'Hello world'
InKey( 1)
b := { |n, x|
y := valtype( n)
SWITCH y
CASE 'N'
x := Str( n)
Break
CASE 'D'
x := DTOC( n)
BREAK
otherwise
x := n
END
RETURN x
}
? 'Blok zrobiony'
InKey( 1)
? b:Eval( date())
inKey( 1)
? 'i jak '
inKey( 5)
? 'no popatrz'
recover using oErr
? 'No i mamy blad'
? oErr:osCode
? oErr:subsystem()
? oErr:severity
? oErr:subCode
? oErr:moduleName
? oErr:description
? oErr:filename
? oErr:operation
? oErr:genCode
? oErr:args
END sequence
InKey( 1)
RETURN Nil
Regards,
Marek Horodyski
----------------------------------------------------------------------
Udar sloneczny prezesa Kaczynskiego... >>> http://link.interia.pl/f2083
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
