Can be a crlf problem by posting from different os ? cMsg RETURN -----Messaggio originale----- Da: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Per conto di [email protected] Inviato: mercoledì 12 novembre 2008 23.26 A: [email protected] Oggetto: [Harbour-users] Re: Harbour-users Digest, Vol 6, Issue 6
All looks OK to me except the last line ? cMsg RETURN should this not be ? cMsg ; RETURN [EMAIL PROTECTED] wrote: > Send Harbour-users mailing list submissions to > [email protected] > > To subscribe or unsubscribe via the World Wide Web, visit > http://lists.harbour-project.org/mailman/listinfo/harbour-users > or, via email, send a message with subject or body 'help' to > [EMAIL PROTECTED] > > You can reach the person managing the list at > [EMAIL PROTECTED] > > When replying, please edit your Subject line so it is more specific > than "Re: Contents of Harbour-users digest..." > > > ------------------------------------------------------------------------ > > Today's Topics: > > 1. Switch ([email protected]) > > > ------------------------------------------------------------------------ > > Subject: > [Harbour-users] Switch > From: > [email protected] > Date: > Wed, 12 Nov 2008 09:31:50 -0300 > To: > [email protected] > > To: > [email protected] > > > Hi! > This exemple fail. > E0020 Incomplete statement or unbalanced delimiters > Because (DEFAULT) flag. > Harbour CVS * $Id: ChangeLog 9912 2008-11-12 11:34:50Z vszakats $ > > // The example prints a file in RAW mode and demonstrates > // the possible return values of PrintFileRaw(). > PROCEDURE Main() > LOCAL cPrinter := GetDefaultPrinter() > LOCAL cFile := "MyFile.Txt" > LOCAL nResult := -1 > LOCAL cMsg := "PrintFileRaw(): " > > CLS > IF Empty( cPrinter ) > ? "No default printer found" > QUIT > ENDIF > nResult := PrintFileRaw( cPrinter, cFile, "Test for PrintFileRaw()" ) > SWITCH nResult > CASE -1 cMsg += "Invalid parameters passed to function" ; EXIT > CASE -2 cMsg += "WinAPI OpenPrinter() call failed" ; EXIT > CASE -3 cMsg += "WinAPI StartDocPrinter() call failed" ; EXIT > CASE -4 cMsg += "WinAPI StartPagePrinter() call failed" ; EXIT > CASE -5 cMsg += "WinAPI malloc() of memory failed" ; EXIT > CASE -6 cMsg += "File " + cFile + " not found" ; EXIT > DEFAULT //Fail here > cMsg += cFile + " PRINTED OK!!!" > END > ? cMsg RETURN > > > Tks, > Itamar M. Lins Jr. > > > > ------------------------------------------------------------------------ > > _______________________________________________ > Harbour-users mailing list > [email protected] > http://lists.harbour-project.org/mailman/listinfo/harbour-users _______________________________________________ Harbour-users mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour-users _______________________________________________ Harbour-users mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour-users
