小编use*_*539的帖子

delphi-重写文件实际上做了什么?

请问Rewrite现有文件的明确文件内容或它删除,然后创建一个新的?我的app.exe文件夹中有一个文本文件,我需要清除它.任何例子?

delphi

1
推荐指数
1
解决办法
4270
查看次数

如何在不隐藏cxGrid的内部dbnavigator的情况下禁用它?

在此输入图像描述

我已经在上面显示了导航器TcxGrid.我想在不隐藏它的情况下禁用整个导航器.我怎样才能做到这一点?

delphi devexpress tcxgrid delphi-xe4

0
推荐指数
1
解决办法
740
查看次数

最大化的窗口大于桌面

在一台XP机器上,当它最大化时,我的表格比桌面大.这有什么可以做的Delphi或者有些设置需要在XP中进行调整吗?

编辑; 正如您所看到的,当边框图标到位时,大约15%的窗体被切断,并且正好在窗体最大化时它们应该处于什么位置.没有第二个监视器.在此输入图像描述

delphi windows-xp

0
推荐指数
1
解决办法
1071
查看次数

SQL Server 2014 Express 上的可用空间

由于 Express 版本限制为 10 GB(无法确定它是“每个数据库”还是整体,因为文档令人困惑,至少对我而言),我想知道有没有办法检查这个空间可用性,即到目前为止我使用了多少?我使用了互联网上的一些建议,但不知何故并非我的所有数据库都显示出来。

sql sql-server

-1
推荐指数
1
解决办法
804
查看次数

Delphi - 查询运行缓慢

我的查询,运行大约需要7秒才能完成应该的操作.但是,由于它插入了大约30条记录,我认为它太慢了.现在,要么我运行的查询写得不好,要么实际需要这么多时间.但那会很奇怪.底层数据库是SQLite,查询如下所示:

procedure TForm1.cxButton1Click(Sender: TObject);
begin
with UNIquery2 do begin
  Close;
  SQL.Clear;
UNIQuery1.First;
while Uniquery1.EOF = false do begin
SQL.Text:= 'INSERT INTO MYTABLE (FIELD1,FIELD2,FIELD3,FIELD4) VALUES (:a1,:a2,:a3,:a4)';
         ParamByName('a1').asString := AdvOfficeStatusBar1.Panels[0].Text;
         ParamByName('a2').asString := UniTable1.FieldByName('FIELD2').asString;
         ParamByName('a3').asString := Uniquery1.FieldByName(',FIELD3').asString;
         ParamByName('a4').Value := Uniquery1.FieldByName('FIELD4').Value;//boolean field true/false
         Uniquery1.Next;
         ExecSQL;
end;
end;
end;
Run Code Online (Sandbox Code Playgroud)

那么有人可以告诉我这是否正常或我错过了什么?所有字段都是文本,除了'a4',它是布尔值(true/false).

答案,修改(基于来自LS_dev的提取):

procedure TForm1.cxButton1Click(Sender: TObject);
begin
    with UNIquery2 do begin
        Close;
        SQL.Clear;
        SQL.Add('INSERT INTO MYTABLE (FIELD1,FIELD2,FIELD3,FIELD4) VALUES (:a1,:a2,:a3,:a4)');
        SQL.Prepare;
        UniTransaction.AddConnection(UniConnection2);
        UniTransaction.StartTransaction;
try
        UNIQuery1.First;
        while Uniquery1.EOF = false do begin
            Params[0].asString := AdvOfficeStatusBar1.Panels[0].Text;
            Params[1].asString := UniTable1.FieldByName('FIELD2').asString;
            Params[2].asString …
Run Code Online (Sandbox Code Playgroud)

sql delphi sqlite unidac delphi-xe4

-1
推荐指数
1
解决办法
1921
查看次数

列表框删除新添加的现有内容

打开opendialog multiselect选项后,我添加了文件:

procedure TForm2.cxButton2Click(Sender: TObject); //add files
begin
if OpenDialog1.Execute then
    ListBox1.Items.Assign(OpenDialog1.Files);
end;
Run Code Online (Sandbox Code Playgroud)

但是,如果我想追加一个文件,添加将删除列表框中列出的上一个列表.这可能是设计但是你如何克服这个?

另外,有没有办法可以避免添加重复的条目?

delphi

-2
推荐指数
1
解决办法
115
查看次数