小编t j*_*t j的帖子

我已经使用Report Builder多年了,但我厌倦了cha-ching,cha-ching.它是"非数据库"报告的绝佳报告工具.

我已经开始玩Fast Reports了,我对此感到非常慌张.对于复杂的"非数据库"报告而言,它似乎是一个很好的数据库报告工具,但却是一个很大 他们的演示和帮助非常糟糕.

希望我能够展示我正在谈论的报告.该报告是一份串行通信报告,其中包含操作系统信息,当然这些信息是单一的.它有4个不同的表,它安装了串行端口和USB串行设备表.它还有一个摘要备忘录.

有没有人在快速报告中成功设计了上述配置的报告？是的,我已经使用快速报告发布了相同的查询.只想要其他意见.

提前致谢.

当您希望创建新应用程序并单击MDI时,Delphi会为您创建基本菜单项和图形的基本MDI应用程序.您可以运行程序并创建子窗口,并使用"窗口"菜单项将子项放置在级联,平铺等布置中.

我的问题是:执行这些操作的代码在哪里？

我很难过.你打开pas文件编辑器,基本上什么都没有.它是如何做到的？

执行搜索时,TListview无法正确重新加载,清除搜索,然后重新加载列表视图.使用XE5.

步骤是:

1. 项目运行后输入文本进入搜索.
2. 清除搜索,单击"清除"按钮或删除搜索文本或单击搜索"X"按钮.
3. 按"重新加载"按钮.什么也没出现.您可以单步执行重新加载过程,并查看是否已添加每个项目.但是,结果列表计数为"0"!!!
4. 但是,如果您添加搜索文本,则会重新显示这些项目.这太疯狂了.然后再次清除搜索并显示所有项目.点击重新加载按钮,它们就会消失.
5. 我已经尝试过所有可以解决这个问题的技巧,并且没有任何结果.即使清除搜索,列表视图也会保留搜索内容.
6. 所以目前listview是一个故障控制.如果进行搜索,则无法清除搜索并重新加载列表视图.
7. 我甚至尝试过TSearchBox并设置"DeleteSelection","ResetSelection"和"ClearSelection"<>这些都不起作用.

这个古怪的事情有什么帮助吗？

代码如下:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  LItem: TListviewItem;
begin
  if Assigned(Listview1) then
    Listview1.Items.Clear;
  for i := 1 to 20 do
  begin
    LItem := Listview1.Items.Add;
    LItem.Text := IntToStr(i);
  end;
end;

procedure TForm1.btnButton1Click(Sender: TObject);  { reload button }
var
  i: integer;
  LItem: TListviewItem;
begin
  btnButton2Click(btnButton2);                <<<<edit add
  if Assigned(Listview1.Items.Filter) then    <<<<edit add
    Listview1.Items.Filter := nil;            <<<<edit add
  if Assigned(Listview1) then
    Listview1.Items.Clear;
  for i := 1 to 20 do
  begin
    LItem := …

当您创建 Delphi 项目并添加组合框并设置ComboBox1.Items.Add('Zebra & Zulu')时，当您下拉列表时，它会显示“Zebra & Zulu”。完美的。

当您创建 Firemonkey 项目并添加组合框或组合编辑并设置ComboBox1.Items.Add('Zebra & Zulu')或ComboEdit1.Items.Add('Zebra & Zulu') 时，它显示“Zebra Zulu”（不显示＆符号）当您下拉列表时。但是，当您使用组合编辑选择它时，文本字段部分显示“Zebra & Zulu”。只是很奇怪。

现在有一个解决办法（某种程度上），但对我来说这是值得怀疑的。添加第二个 & 符号，下拉列表将显示该 & 符号。但是，添加第二个 & 符号会显示在组合编辑文本字段部分。坏的。

我的问题是你能强制这些组合控件下拉列表显示＆符号吗？为什么首先缺少 & 符号？

我需要在Delphi中进行双重操作.

首先是读取目录并将所有文件复制到备份文件夹中.如果当前正在使用任何文件作为写入和/或打开,则绕过该文件.

其次是将文件移动到另一个目录.同样,如果当前正在使用任何文件作为写入和/或打开,则绕过该文件.

我之前使用过文件复制和移动,但我不确定如何检测文件是否被写入和/或打开.

谢谢.

Visual Basic"Space"函数返回由指定数量的空格组成的字符串.

Visual Basic示例:

Property Get Sections() As String
Dim sBuf As String
Dim iSize As String
Dim iRetCode As Integer
    sBuf = Space$(8192)
    iSize = Len(sBuf)
    iRetCode = GetPrivateProfileString(0&, 0&, m_sDefault, sBuf, iSize, m_sPath)
    If (iSize > 0) Then
        Sections = Left$(sBuf, iRetCode)
    Else
        Sections = ""
    End If
End Property

Delphi相当于"Space"的等价物是什么？谢谢.