提示 delphi xe 下专家包的 BUG

[size=6][color=Red]刚下的新版本。。

还是有这样的错误；


如图1


[img]http://bbs.cnpack.org/attachment.php?aid=811[/img]
我修改了默认的 输出路径

如图2
[img]http://bbs.cnpack.org/attachment.php?aid=812[/img]
[/color][/size]

[[i] 本帖最后由 inbreak 于 2011-1-27 16:22 编辑 [/i]]

可否将出错的脚本上传至论坛供我们查查？

[code]{*******************************************************}

{                                                       }

{       Pascal Script Source File                       }

{       Run by RemObjects Pascal Script in CnWizards    }

{                                                       }

{       Generated by CnPack IDE Wizards                 }

{                                                       }

{*******************************************************}

program AutoInsertCompileTime;

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

var

  CurPath: string;

  Lines: TStringList;

begin

    CurPath := ExtractFilePath(CnOtaGetCurrentProjectFileName)+'my.inc';

    Lines:= TStringList.Create;

    try

      Lines.Add('const FCompileDate = ''' + FormatDatetime('yyyy-mm-dd', Date()) + ''';');

      Lines.Add('const FCompileTime = ''' + FormatDatetime('hh:nn:ss', Time()) + ''';');

      Lines.Add('const FCompileDateTime = ''' + FormatDatetime('yymmdd.hhnnss', Now) + ''';');

      Lines.SaveToFile(CurPath);

    finally

      Lines.Free;

    end;

end.[/code]

[[i] 本帖最后由 inbreak 于 2011-2-8 00:32 编辑 [/i]]

比较奇怪，我这儿是SaveToFile出错，似乎和当前工程的设置没什么关系。