to : whlxy(651电台) 你的现象很奇怪,我敢说凡作过你第一个程序的人都生成了.Log,所以问题没有了下文。我在上一次建议你改个函数 如ClickList.SaveToFile(Delete(Application.ExeName,Pos('.',Application.ExeName)-1 ,4)+'.LOG'));
在 procedure TForm1.FormDestroy(Sender: TObject); begin ClickList.SaveToFile(ChangeFileExt(Application.ExeName, '.LOG'));{ save the list } ClickList.Free;{ destroy the list object } end;中 "ClickList.SaveToFile(ChangeFileExt(Application.ExeName, '.LOG'));{ save the list }"应为 "ClickList.SaveToFile(Application.ExeName+'.LOG');"
你的现象很奇怪,我敢说凡作过你第一个程序的人都生成了.Log,所以问题没有了下文。我在上一次建议你改个函数
如ClickList.SaveToFile(Delete(Application.ExeName,Pos('.',Application.ExeName)-1 ,4)+'.LOG'));
procedure TForm1.FormDestroy(Sender: TObject);
begin
ClickList.SaveToFile(ChangeFileExt(Application.ExeName, '.LOG'));{ save the list }
ClickList.Free;{ destroy the list object }
end;中
"ClickList.SaveToFile(ChangeFileExt(Application.ExeName, '.LOG'));{ save the list }"应为
"ClickList.SaveToFile(Application.ExeName+'.LOG');"
liuyb() 及各位大侠,程序执行后,我用鼠标在窗体上点了几下,然后关闭窗体,再查找log文件,这样做没有错吧?另外,修改程序也一样看不见log文件。