delphi help中关于string list的一个简单例子，我执行后找不到log文件，而且。。。。

Question

代码是没问题，可是在你的系统里生成log文件了吗？

Answer 1

Log文件在系统的当前目录里
mousedown的帮助可以在Object Inspector的Event栏选中Onmousedown后按F1。ClickList.SaveToFile(ChangeFileExt(Application.ExeName, '.LOG')); { save the 
list }测试时你可以这样写
ClickList.SaveToFile('D:\xxx\xxx\'+ChangeFileExt(Application.ExeName, '.LOG'));
 { save the list } 直接给定目录。
另外，你的这条语句很有点吓人：第一感觉是要覆盖Exe文件。

Answer 2

ChangeFileExt does not rename the actual file, it just creates a new file name string.
幸亏有这句话。

Answer 3

我试过了，代码完全可以。
不过我把OnDestroy 的事件放到OnClose去了：）

Answer 4

各位，在你们的系统里生成log文件了吗？ 我查找了*.log，没有应该生成的*.log文件，这是怎么回事，另外，我用过vb\vc，我是刚学delphi的，
procedure FormDestroy(Sender: TObject);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  上面这两个procedure除了手工添加外，能否直接添加，
还有，为什么procedure不叫destroy,和mousedown,而要叫formdestroy/formmousedown呢？
又加了10分，谢谢。

Answer 5

回复人：　whlxy(651电台)　(2001-9-19 19:36:09)  得0分 
各位，在你们的系统里生成log文件了吗？——生成了。 这两个procedure除了手工添加外，能否直接添加，
 
双击相应事件的空白处就可以了。