我在调用一些delphi的过程或函数时我定义了一个OleVariant类型的变量作为参数传递,可是在编译的时候却提示我说没有足够的参数,我却在网上看见很多示例都是这么做的.不知道为什么,我用的时delphi6.如有那位大侠知道请指点小弟.谢谢!

将您的代码post 大家帮您看看！

var EmptyParam:OleVariant; ..... ..... WordApp.ActiveDocument.SaveAs('aaa.doc', EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); 以上是我的代码.

var FileName, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter : OleVariant; begin ............. FileName :=abc.doc'; FileFormat := wdFormatEncodedText; LockComments := False; Password := ''; AddToRecentFiles := True; WritePassword := ''; ReadOnlyRecommended := False; EmbedTrueTypeFonts := False; SaveNativePictureFormat := False; SaveFormsData := False; SaveAsAOCELetter := False; WordApplication1.ActiveDocument.SaveAs( Filename, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter ); ........... end;

请问为什么不能用EmptyParam代替

其实您的问题已经说明了这一点：在编译的时候却提示我说没有足够的参数 您所使用的 EmptyParam 并没有任何的值，而 WordApp.ActiveDocument.SaveAs 需要一些参数的设置，比如 FileFormat := wdFormatEncodedText;等 如果参数不全或不对，当然就error!

可是网上有很多例子,都是用EmptyParam来代替参数的.

reebokmonkey 兄： 我没有见到过哦！ 我想您在网上看到好像是excel文件的保存方法哦，并且他们用EmptyParam已经赋予的一个空的出示值吧！

呼叫 Word 的函數一定要宣告變數作為參數，因為 Word 函數的參數都是用 var 的方式宣告的，所以得使用 sos_admin 兄的方法 但是 Excel 的不是，所以可以使用 reebokmonkey 兄的方法 加油喔，喵～

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/