小编Bha*_*rat的帖子

Free和FreeAndNil之间的基本区别是什么？

FreeAndNil = Free + Nil？

我什么时候应该使用Free,什么时候应该使用FreeAndNil？

当有人帮助我时,我没有得到这些.

提前致谢.

我想自动调整TListView中的所有列.我正在使用下面的代码,但它没有做任何事情.

ListView1.Columns.Add.Caption := 'Field Name';
ListView1.Columns.Items[0].Autosize := True;

如何在Delphi中自动调整TListView的列.

我设定了我的ViewStyle to vsReport.

提前致谢

我想将字符串中的内容复制到char数组.

我可以使用这段代码吗？ StrLCopy(C, pChar(@S[1]), high(C));

我目前正在使用Delphi 2006.如果因为新版本中提供的Unicode支持而升级我的Delphi版本会有任何问题吗？

如果没有,这个转换的代码是什么？

在delphi 2009中,我引用了一个IInterface我想要转换为底层的东西TObject

使用TObject(IInterface)显然在Delphi 2009中不起作用(它应该在Delphi 2010中工作)

我的搜索引导我找到一个应该做的技巧,但它对我不起作用,当我尝试在返回的对象上调用方法时,我得到了AV.

^{我无法真正修改类,我知道这打破了OOP}

在工作中,我使用Delphi 6&7 Enterprise已有好几年了.几年前,我买了Turbo Delphi Professional的个人副本.因此我有资格获得Delphi 2010 Professional升级.但是我没有资格获得Delphi 2010 Enterprise升级.

是否值得购买Delphi 2010 Professional Upgrade或者我应该寻找Delphi 7 Enterprise？

我试图购买Delphi的目的包括编写用于学习目的的多层数据库应用程序.

任何建议将不胜感激.

TIA!

我有一个LOGFONT结构.现在我要做的就是从LOGFONT高度获得相关的字体大小.

我想限制受保护方法对某些继承类的访问.

例如,有一个基类

TBase = Class
  Protected
    Method1;
    Method2;
    Method3;
    Method4;
End;

我有两个派生自TBase的课程

TDerived1 = Class(TBase)
  //Here i must access only Method1,Method2 and Method3
End;

TDerived2 = Class(TBase)
  //Here i must access only Method3 and Method4
End;

那么是否有可能只访问方法1,方法2和方法3时,我使用的对象TDerived1和 方法3方法4和当我使用的对象TDerived2

有没有办法让控件透明如按钮,编辑,面板等......？我的意思是像form属性中的容量或alpha混合.

我有这样的记录

  TEmf_SrectchDIBits = packed record
    rEMF_STRETCHDI_BITS: TEMRStretchDIBits;
    rBitmapInfo: TBitmapInfo;
    ImageSource: string;
  end;
  ---
  ---
  RecordData: TEmf_SrectchDIBits;

如果我正在使用TStream将数据读入其中,则会发生异常

SetLength(RecordData.ImageSource, pRecordSize);

EMFStream.ReadBuffer(RecordData.ImageSource,pRecordSize) 

但如果我使用下面的代码,它正常工作

SetLength(RecordData.ImageSource, pRecordSize);

EMFStream.ReadBuffer(RecordData.ImageSource[1], pRecordSize);

那么使用String和String有什么区别[1]

代码浏览不适用于我的项目。我将搜索路径设置为我正在使用的所有源单元。我也删除了.local和.identcache文件。我的项目编译没有问题。我该怎么做才能ctrl + click工作。

谢谢

作品

select payeeid, EXTRACT(WEEKDAY FROM checkdate) as DOW, 
(bankcleared - checkdate) as DateDiff  
from Master  
where (bankcleared is not null)  
order by payeeid, DOW, DateDiff  

添加DateDiff到Where- 不起作用

select payeeid, EXTRACT(WEEKDAY FROM checkdate) as DOW, 
(bankcleared - checkdate) as DateDiff  
from Master  
where (bankcleared is not null)  AND (DateDiff >= 1)  
order by payeeid, DOW, DateDiff  

我正在寻找一个函数,它应该将参数作为字体名称,样本字符,宽度,样本字符的高度,并应返回字体大小.

它必须如下所示:

    GetFontSize(<Font Name>, <Sample Character>, <Sample Character Width>,
                <Sample Character Height>)

必须返回字体大小,

在delphi中这可能吗？

这是我之前问题的延续。

当使用方法将数据保存在 ClientDataSet 中时，我不希望 XML 文件中包含 PARAMS CHANGE_LOG 数据ClientDataSet1.SaveToFile()。

我的代码如下所示：

ClientDataSet1.Insert;
ClientDataSet1.FieldByName('Name').AsString:= 'AAA';
ClientDataSet1.Append;
ClientDataSet1.SaveToFile('c:\Test.xml',dfxml);

我怎样才能做到这一点。