选择MicrosoftCommonDialogControl部件,并创建一个文本框。OnErrorResumeNextDimsFileAsStringWithCommonDialog1.DialogTitle=”保存”.Filter=”文本文档(*.txt)|*.txt”.ShowSaveIfLen(.FileName)=0ThenExitSubsFile=.FileNameEndWithText1.SaveFilesFile打开时需要用LoadFile,如果用Input则会显示乱码。
选择MicrosoftCommonDialogControl部件,并创建一个文本框。OnErrorResumeNextDimsFileAsStringWithCommonDialog1.DialogTitle=”保存”.Filter=”文本文档(*.txt)|*.txt”.ShowSaveIfLen(.FileName)=0ThenExitSubsFile=.FileNameEndWithText1.SaveFilesFile打开时需要用LoadFile,如果用Input则会显示乱码。