display status

[kenndot]

Hi all

I'm writing an error function and want to use 'display status' to write that information to a text file. What I am wondering is if there is a way to stop the function from prompting you to "Press any key to continue" I would like it to do this without any prompt at all for the user. How can I accomplish this.

Also, I am using the ASSERT function and I get no errors, but the box never shows. Here's what I have... help?

lDebug = .f.
If !lDebug
assert ldebug MESSAGE( cString1 + CHR(13) + ;
cString2 + CHR(13) + ;
cString3 + chr(13) )

endif

I don't really know about this function yet, so any help is appreciated. Thanks.

 

[mcoupal]

Try using "MessageBox(" instead of "Message(" ..

I can't answer the other part of the question.

 

[Neil Toulouse]

Have you issued SET ASSERTS ON?

Also ASSERT is only tested during development and are not tested in the runtime version of your app.

Neil "I like work. It fascinates me. I can sit and look at it for hours..."

 

[kenndot]

Although the syntax in the MSDN calls for only MESSAGE within the ASSERT function, I tried it because sometimes the strangest things work, but to no avail.

Any other ideas?

 

[Neil Toulouse]

Are you are trying to test for a specific scenario, or just trap for VFP errors (eg Error 3: File in use)?

Neil "I like work. It fascinates me. I can sit and look at it for hours..."

 

[DSummZZZ]

You can do a

LIST STATUS TO MyFile.TXT NOCONSOLE

Which will supress the 'Press any key...' message.
Dave S.

 

[Neil Toulouse]

...or another way (useful if you want to add more information in the furture):

SET ALTERNATE TO C:\ERROR.TXT ADDITIVE
SET ALTERNATE ON
SET CONSOLE OFF

? 'Status List'
? '-----------'
LIST STATUS
?
? 'Objects'
? '-------'
?
LIST OBJECTS
?

SET CONSOLE ON
SET ALTERNATE OFF
SET ALTERNATE TO

Neil "I like work. It fascinates me. I can sit and look at it for hours..."

 

[DSummZZZ]

I also use

LIST MEMORY TO MyMemFile.TXT NOCONSOLE
Dave S.

 

[kenndot]

thank you all very much! That was exactly what I was looking for.