小编Chu*_*ckO的帖子

我在Delphi Win32中使用FastReport.

调用FastReport时,会在打印之前预览它.

用户有时需要打印一系列报告.这是一个PITA预览,然后分别打印每个.

如何将报告排队并将其直接发送到默认打印机？

CheckBox组件在选中时显示复选标记.

我想改为显示'X'.

我正在尝试从用户输入记录的表中获取最后7条记录

这是我的查询:

$database->setQuery("SELECT * FROM #__mytable WHERE (user_id = '$uid')");
$dberr="";
if (!$database->query()) {
    $dberr = $database->getErrorMsg();
}

if(!$dberr==""){
   echo($dberr."<br>");
}else{
   $rows = $database->loadObjectList();

如何通过$行循环以获得最后7行？

我使用以下代码将dbf/mdx文件从一个文件夹复制到另一个文件夹:

procedure TfrmMain.MyCopyFile(S1, S2: string);
begin
   if not FileExists(S2) then
      CopyFile(PCHAR(S1), PCHAR(S2), true)
   else
      if Application.MessageBox(PCHAR('Overwrite existing file ' + S2 + '?'), 'File exists in folder',MB_YESNO + MB_DEFBUTTON1) = IDYES
          then CopyFile(PCHAR(S1), PCHAR(S2), false)
end;

当表名保持不变时,代码工作正常.

如果我更改表的名称:

    MyCopyFile(CurPath + '\orders.dbf', NewPath + '\ordly.dbf');
    MyCopyFile(CurPath + '\orders.mdx', NewPath + '\ordly.mdx');

当我尝试打开ordly.dbf时收到错误消息:

损坏的表/索引标题.
文件:C:\ DATA\2011\ORDLY.MDX