请教！Delphi调用OpenFile.Execute后的写文件问题??

CsdnKey 2002-02-01 12:31:04

//一个写文件的错误：
//当打开文件对话框(点击确定)后写文件总是失败！！！
//D5,D6都用过了,一样!
//该如何解决那？？
//看下面例子：
var
TxtFile:Textfile;
OpenFile:TOpenDialog;
WriteInfo:String;
begin
OpenFile:=TOpenDialog.Create(nil);
if OpenFile.Execute then WriteInfo:='失败'
else WriteInfo:='成功';
//失败一次后只有重启程序才能正常写入
//在没有失败的前提下是写文件是成功的
Showmessage(WriteInfo);
OpenFile.Free;
//写文件操作：
AssignFile(TxtFile,'Temp~1.txt');
Append(TxtFile);
Writeln(TxtFile,WriteInfo);
CloseFile(TxtFile);
end;

...全文

121 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

nanlaiyan 2002-02-01

打赏
举报

var
TxtFile:Textfile;
OpenFile:TOpenDialog;
WriteInfo:String;
begin
OpenFile:=TOpenDialog.Create(nil);
if OpenFile.Execute then WriteInfo:='失败'
else WriteInfo:='成功';
//失败一次后只有重启程序才能正常写入
//在没有失败的前提下是写文件是成功的
Showmessage(WriteInfo);

//写文件操作：
AssignFile(TxtFile,OpenFile.filename);
Append(TxtFile);
Writeln(TxtFile,WriteInfo);
CloseFile(TxtFile);
OpenFile.Free;

CsdnKey 2002-02-01

打赏
举报

哈哈！
恍然大悟,明白了！
OK!!!解决！！！！

谢谢 genphone_ru(票票)　

谢谢各位

票票飞扬 2002-02-01

打赏
举报

调用后，路径发生变化。
Append由于文件不存在，错误。

zwjchina 2002-02-01

打赏
举报

把对文件的操做放在中try...except...end
try
Do your file operation
finally
Close File.
end;

CsdnKey 2002-02-01

打赏
举报

我是说写任何文件都是失败的！！！！
而不调用OpenFile.Execute 则一切正常

superdev 2002-02-01

打赏
举报

你的写文件操作应放在if opendialog.execute then里边
另外assignfile的第二个参数应是opendialog.filename

票票飞扬 2002-02-01

打赏
举报

var
TxtFile:Textfile;
OpenFile:TOpenDialog;
WriteInfo:String;
begin
OpenFile:=TOpenDialog.Create(nil);
if OpenFile.Execute then
begin
WriteInfo:='失败'
//写文件操作：
AssignFile(TxtFile,OpenFile.FileName);
Append(TxtFile);
Writeln(TxtFile,WriteInfo);
CloseFile(TxtFile);
end;
end;

PXE的全程是Preboot eXecute Environment，是Intel提出来的一项用于通过网络引导系统的标准。之后在该标准之上，出现了gPXE这类免费开源的PXE扩展增强版软件，在gPXE停止开发后，iPXE作为其中一个分支继续扛起了增强...

例子中使用了开源代码d7zip,项目地址为http://code.google.com/p/d7zip/ 其中源码只包含sevenzip.pas一个单元，源码中readme.htm给出了简单示例。主要代码如下，在Win7+Delphi XE 3 下调试通过： unit Form_Main; interface uses Winapi.Windows, Winapi.Mes

Delphi中的所有对话框使用一个公用方法:Execute方法来调用显示对话框。如: 　　if openDialog1.Execute then 　　begin 　　{如果在对话框中按确定返回时执行部分} 　　end; 　　在这些对话框中除了Find与Replace对话框是非模式对话框，其余的都是模

delphi问题集锦1、怎么样在delphi中调动其它*.exe文件？例如：winexec(d:/郑洽/Project1.exe,sw_show);==============================================================================2、如何让工程运行时主窗体就是最大化的？答：设置主窗体的WindowsState属

下面这段程序将一个文件(文本文件，doc文件，图象文件等)保存到数据库中，并可以将其从数据库读出。需要两个commandbuttoncmd1 名称 cmdsave caption 保存cmd2 名称 cmdread caption 读取一个cmddialog控件Option ExplicitDim rn As ADODB.ConnectionPublic Function CreateDataSo...