[已解决]使用delphi制作记事本时遇到的问题

hxs111

制作记事本时遇到的问题

打开文件 的组件的代码如下：

1. procedure TForm1.N3Click(Sender: TObject);
   
2. begin
   
3.   Form1.dlgOpen1.Execute;
   
4.   form1.mmo1.Lines.LoadFromFile(Form1.dlgOpen1.FileName);
   
5. end;

复制代码

以上代码可以实现打开。txt文件，但是我发现，如果我在打开文件的界面不选择要打开的文件，而是选择“取消”按钮的话，出现如下错误提示


   connot open file"".文件名、目录名或卷标语法不正确

最佳答案

月排行榜 / 总排行榜

comeheres

2020-7-20 15:44:35

1. if Form1.dlgOpen1.Execute then
   
2.   Form1.mmo1.Lines.LoadFromFile(Form1.dlgOpen1.FileName);

复制代码

当然，最好先判断下Form1.dlgOpen1.FileName是否为空，再决定是否载入文本

跳转到最佳答案楼层

comeheres

1. if Form1.dlgOpen1.Execute then
   
2.   Form1.mmo1.Lines.LoadFromFile(Form1.dlgOpen1.FileName);

复制代码

当然，最好先判断下Form1.dlgOpen1.FileName是否为空，再决定是否载入文本