两个问题，一个是使用selectDirectory报错，一个是用delphi写word文件

Question

procedure TForm1.BrowseSourceClick(Sender: TObject);
var
  Dir:string;
begin
  Dir := 'C:\';
  if selectDirectory('请选择一个目录','',Dir) then
    LEsourceDir.Text := Dir;
end;执行这个代码后，在程序关闭的时候会提示一个错误
runtime error 216 at 0045E158
不知道问题出在哪还有个问题就是可以用delphi写word文件么？

Answer 1

上面的程序没任何问题,查程序的其它部分
delphi当然可以写word,查以前的贴子或在网上搜一下

Answer 2

问题1:procedure TForm1.Button1Click(Sender: TObject);
const
  SELDIRHELP = 1000;var
  Dir: string;
begin
  Dir := 'C:\';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Label1.Caption := Dir;
end;问题二:搜索以前的帖子,关键词"word",你可以找到你需要的答案

Answer 3

是创建一个 TADOConnection 没有释放，多谢