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

hxs111

制作记事本时遇到的问题

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

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

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


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

最佳答案

月排行榜 / 总排行榜

comeheres

2020-7-20 15:44:35

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

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

跳转到最佳答案楼层

comeheres

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

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