小编phi*_*ext的帖子

我在Python中使用以下代码(pyodbc用于MS-Access基础).

cursor.execute("select a from tbl where b=? and c=?", (x, y))

没关系,但是出于维护目的,我需要知道发送到数据库的完整而准确的SQL字符串.
有可能吗？怎么样？

在XE2中有一个新功能:'styles',用于VCL(.vsf)和Firemonkey( .styles),还有一些在C:\ Program Files\Embarcadero\RAD Studio\9.0\Redist\styles目录中提供.

由于创建新样式似乎很容易,有没有"样式库"网站或博客？

是否有一个很好的VCL样式教程,我们看到如何动态(在运行时)加载/更改样式？

这应该适用于Delphi XE2及更高版本,因为XE2是第一个带有VCL样式的版本.

在Python(> 2.7)中执行代码:

open('tick.001', 'w').write('test')

结果与:

ftest  = open('tick.001', 'w')
ftest.write('test')
ftest.close()

哪里可以找到有关此内联函数的'close'的文档？

我会在我的应用程序中有一个TPanel,但另外看一下.
对于它我想要一个彩色的标题栏和向上的角落就像在一些用户界面,如它 你知道任何组件或库吗？(首选开源但不仅仅是).
我试过TJVCaptionPanel它没关系,但需要四舍五入.

TDateTime选择器是一个ComboBox,下拉列表将替换为日历.我使用XE2 VCL样式,更改样式不会影响TDateTimePicker颜色和字体颜色.我已经用这个问题更改了日历样式但是对于ComboBox来说解决方案不行,任何想法？现在我计划继承TComboBox以用于TMonthCalendar,但我知道是否有人有更好的解决方案.

我必须使用许多TEdit显示(使用showModal)一个Form,但是我想强制关注TEdit,但并不总是相同,具体取决于上下文.

我无法在ShowModal之前使用SetFocus(因为Form未激活)并且在我的应用程序中使用组件名称或标签不方便.你有好主意吗 ？

我在Delphi 7的应用程序中嵌入了一个(非常简单的)自制REST服务器(带有ICS +一些stuf),它可以工作但不易维护和扩展.现在我使用Delphi XE2 Pro(没有DataSnap),我会改变更标准的解决方案,但又简单.

这样做容易吗？

我必须在VCL TDBGrid(Delphi XE2)中显示一些修改后的'masked'值,即:将'password'更改为'xxxxxxxx'或将大写'pass'更改为'PASS'或其他.因为我的字段是动态创建的(但名称是编码所以我知道如何以及何时屏蔽它们,即:xxxx_PASSW用于密码字段)我不能使用(我认为)OnGetText事件.

那么最有效的方法是什么(因为我还使用OnDrawColumnCell进行一些演示修改,我会优先使用它)？

我使用FastReport,我需要预览/打印超过1000行的网格,我有一些性能问题.通常我使用TfrxCrossObject来准备我的网格,因为最终用户可能会更改网格显示(使用的列,列的名称,大小),所以我需要有一个动态打印.我测试了一个简单的网格(16列x2000行),它需要超过10秒才能显示第一个预览页面.有什么想提高表现吗？

编辑: 正如在一些答案中所说,问题是:如何在FastReport中创建'dynamicaly'网格(在屏幕上具有相同的列名称和大小),而不使用TFrxCrossObject,这似乎不是很有效.我可能会承认所有解决方案,比如使用DataSet或增强TfrxCrossObject.

测试代码:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  frxClass, StdCtrls, Grids, frxCross;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    frxCrossObject1: TfrxCrossObject;
    frxReport1: TfrxReport;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure frxReport1BeforePrint(c: TfrxReportComponent);
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  i, j: Integer;
begin
  for i := 1 to 16 do
    for j := 1 to 2000 do
      StringGrid1.Cells[i - 1, j - 1] := IntToStr(i * j); …