教程 – 第 2 页 – QDAC数据访问组件网站

[QLog]使用 CalcPerf 来查询函数性能瓶径

2019-03-07 • C++ Builder、Delphi、QDAC、QLog、教程 • 暂无评论 • swish •浏览 1,516 次

QLog 最新的变动修改了 CalcPerf 函数的返回值类型，改为返回 IPerfCounter（将来可能改名为 IQPerfCounter ）接口，与以前的相比，这个接口多了一个名为 MarkEscape 的函数，用于记录两次记录之间的时间间隔，以便进行性能计数。第一步：声明一个用于统计性能的变量，并为其初始化

[QMathExpr]为 QJson 增加 QMathExpr 支持

2019-03-062019-03-06 • C++ Builder、Delphi、QDAC、QJSON、QMathExpr、教程 • 暂无评论 • swish •浏览 1,446 次

QMathExpr 可以方便的实现表达式的计算，将它与 QJson 结合在一起，就可以对内容进行加工处理，为程序的实现提供更大的灵活性。同样的，你可以同样将 QXML/QMsgPack 一样封装下，为其加上 QMathExpr 的支持。调用示例：

[教程]使用泛型为 Delphi 提供一个位运算的模板支持

2018-11-212018-11-21 • Delphi、教程 • 暂无评论 • swish •浏览 2,556 次

说起来，Delphi 自 2009 引和泛型已经很长时间了，而 Delphi 缺少位域也已经更久远了，早在远古之前……，扯远了:) 新版的 Delphi 提供了一个类，名字叫 TBits，好吧，顾名思意，可是为什么是类呀？这意味着我们没法像C++一样将它嵌入到结构体里，如果你能，你就上天了@ 好吧，为了实现这一目的，本

[教程]Delphi 10.3 新特性：内联变量

2018-10-29 • Delphi、教程 • 暂无评论 • swish •浏览 5,715 次

简译自 Macro 技术博客简单一句话：Delphi 终于不用非将变量定义在函数的开头位置了。拓展开来： 1、您可以在代码中使用变量时，通过下面的格式来定义变量： var 变量名[:变量类型][:=变量值] 示例一：

procedure Test;
begin
  var I, J: Integer;
  I := 22;
  j := I + 20;
  ShowMessage (J.ToString);
end;

procedure Test;

begin

var I, J: Integer;

I := 22;

j := I + 20;

ShowMessage (J.ToString);

end;

示例2： [crayon-61e

[教程]QAnimation 使用教程之一：为 TPageControl 切换加入动画效果

2018-09-022019-06-09 • Delphi、教程 • 暂无评论 • swish •浏览 2,772 次

首先，VCL 的 TPageControl 是没有切入切出动画的，所以，这里要做的是给 VCL 的 TPageControl 做动画支持。当然，虽然咱们说的是 QAnimation 教程，但关注的重点不是 QAnimation，而是如何给 TPageControl 添加动画效果，QAnimation 只是一个动画控制器

【教程】delphi 中如何访问另一个类中到私有成员方法 N 合 1

2018-09-022018-09-02 • Delphi、教程 • 暂无评论 • swish •浏览 2,492 次

此文是参考原文链接和群友及作者自己曾经用过的方法简单总结，感谢群内的朋友和原文作者。另外，此文中所谓的访问另一个类的私有成员，另一个类并不在同一单元，在同一单元内的私有成员 Delphi 也是可以直接访问的，不需要绕圈子。 1、最易用的方法：class helper + with self 创建一个对应类的 cl

[教程] Resource XXX not found 的解决办法

2018-08-31 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 8,214 次

一查路径：查看程序的搜索和库文件路径中是否有重名的文件，如果资源在这些重名的文件中，链接时如果错误链接到了老版本，就有可能造成此问题。二看定义：在 Delphi 中，如果 DFM 定义和 Pas 对应的文件不完全匹配（比如界面上有的控件，但 pas 中由于某些原因被删除了），编译时并不会提示什么问题，但实际链接到程序

[教程]判断两个不同的接口实例是否是同一个对象

2018-08-07 • Delphi、教程 • 暂无评论 • swish •浏览 1,785 次

如果一个对象支持多个接口，当我们获取其支持的不同接口的实例时，就会得到不同的地址，比如：

type
  IA=interface
  ['{CB36F22E-E44C-4842-8198-7487806A3617}']
  ...
  end;
  
  IB=interface
  ['{06949AE4-97F9-48C9-9E47-21E29F396DF7}']
  ...
  end;
  
  TABObject=class(TInterfacedObject,IA,IB)
  ...
  end;

type

IA=interface

['{CB36F22E-E44C-4842-8198-7487806A3617}']

...

end;

IB=interface

['{06949AE4-97F9-48C9-9E47-21E29F396DF7}']

...

end;

TABObject=class(TInterfacedObject,IA,IB)

...

end;

我们假设对象 TABObject 的实例 ab，当我们写下类似于下面的代码时：

var
  A:IA;
  B:IB;
begin
  A:=ab;
  B:=ab;
  if Pointer(A)=Pointer(B) then
    ....
end;

var

A:IA;

B:IB;

begin

A:=ab;

B:=ab;

if Pointer(A)=Pointer(B) then

....

end;

在实际运行中，A

[教程]为 Delphi 剪贴板加入 CF_HTML 数据支持

2018-06-212018-06-21 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 1,921 次

嗯，直接上代码，需要引用 QDAC 的 QString 单元，不支持太老版本的 Delphi，使用古董版的 Delphi 的请自己改写下：

uses clipbrd, qstring;
type
  THTMLClipboardFormatData = class helper for TClipboard
  private
    class procedure RegisterHtmlFormat;
    function GetAsHtml: String;
    procedure SetAsHtml(const Value: String);
  public
    property AsHtml: String read GetAsHtml write SetAsHtml;
  end;

var
  CF_HTML: WORD = 0;
//此处省略一万字
{ THTMLClipboardFormatData }

function THTMLClipboardFormatData.GetAsHtml: String;
var
  AHandle: THandle;
  pData: PQCharA absolute AHandle;
  AText: QStringW;
  p: PWideChar;
begin
  RegisterHtmlFormat;
  if Clipboard.HasFormat(CF_HTML) then
  begin
    AHandle := Clipboard.GetAsHandle(CF_HTML);
    try
      AText := Utf8Decode(pData, -1);
      p := PWideChar(AText);
      while (p^ <> '<') and (p^ <> #0) do
        SkipLineW(p);
      Result := p;
    finally
      GlobalUnlock(AHandle);
    end;
  end;
end;

class procedure THTMLClipboardFormatData.RegisterHtmlFormat;
begin
  if CF_HTML = 0 then
    CF_HTML := RegisterClipboardFormat('HTML Format');
end;

procedure THTMLClipboardFormatData.SetAsHtml(const Value: String);
var
  S: QStringA;
  AText: String;
  AHandle: THandle;
begin
  RegisterHtmlFormat;
  S := QString.Utf8Encode(Value);
  AText := Format('Version:0.9'#13#10 + //
    'StartHTML:%08u'#13#10 + //
    'EndHTML:%08u'#13#10 + //
    'StartFragment:%08u'#13#10 + //
    'EndFragment:%08u'#13#10 + //
    '<html><body>'#13#10 + //
    '<!--StartFragment -->'#13#10 + //
    '%s'#13#10 + //
    '<!--EndFragment-->'#13#10 + '</body></html>', [97, 172 + S.Length, 111,
    136 + S.Length, Value]);
  S := QString.Utf8Encode(AText);
  AHandle := GlobalAlloc(GMEM_DDESHARE, S.Length + 1);
  if AHandle <> 0 then
  begin
    try
      Move(PQCharA(S)^, GlobalLock(AHandle)^, S.Length + 1);
    finally
      GlobalUnlock(AHandle);
      Clipboard.SetAsHandle(CF_HTML, AHandle);
    end;
  end;
end;

uses clipbrd, qstring;

type

THTMLClipboardFormatData = class helper for TClipboard

private

class procedure RegisterHtmlFormat;

function GetAsHtml: String;

procedure SetAsHtml(const Value: String);

public

property AsHtml: String read GetAsHtml write SetAsHtml;

end;

var

CF_HTML: WORD = 0;

//此处省略一万字

{ THTMLClipboardFormatData }

function THTMLClipboardFormatData.GetAsHtml: String;

var

AHandle: THandle;

pData: PQCharA absolute AHandle;

AText: QStringW;

p: PWideChar;

begin

RegisterHtmlFormat;

if Clipboard.HasFormat(CF_HTML) then

begin

AHandle := Clipboard.GetAsHandle(CF_HTML);

try

AText := Utf8Decode(pData, -1);

p := PWideChar(AText);

while (p^ <> '<') and (p^ <> #0) do

SkipLineW(p);

Result := p;

finally

GlobalUnlock(AHandle);

end;

class procedure THTMLClipboardFormatData.RegisterHtmlFormat;

begin

if CF_HTML = 0 then

CF_HTML := RegisterClipboardFormat('HTML Format');

end;

procedure THTMLClipboardFormatData.SetAsHtml(const Value: String);

var

S: QStringA;

AText: String;

AHandle: THandle;

begin

RegisterHtmlFormat;

S := QString.Utf8Encode(Value);

AText := Format('Version:0.9'#13#10 + //

'StartHTML:%08u'#13#10 + //

'EndHTML:%08u'#13#10 + //

'StartFragment:%08u'#13#10 + //

'EndFragment:%08u'#13#10 + //

'<html><body>'#13#10 + //

''#13#10 + //

'%s'#13#10 + //

''#13#10 + '</body></html>', [97, 172 + S.Length, 111,

136 + S.Length, Value]);

S := QString.Utf8Encode(AText);

AHandle := GlobalAlloc(GMEM_DDESHARE, S.Length + 1);

if AHandle <> 0 then

begin

try

Move(PQCharA(S)^, GlobalLock(AHandle)^, S.Length + 1);

finally

GlobalUnlock(AHandle);

Clipboard.SetAsHandle(CF_HTML, AHandle);

end;

用法是直接操作 Clipboard.AsHtml 属性就可以了，例如： [crayon-61ef22cb4b0b

[日积月累]-20180622:前向声明关键字 forward

2018-06-212018-06-22 • 教程 • 暂无评论 • swish •浏览 1,312 次

【格式】函数声明;forward; 【用途】 forward 关键字用于前向声明一个局部函数，比如:

 function Calculate(X, Y: Integer): Real; forward;

1	function Calculate(X, Y: Integer): Real; forward;

声明了一个 Calculate 函数，那么后面必需重新声明并实现这个函数，类似于下面: [crayon-61ef22cb4b25b085395922/

[日积月累]-20180621：[Warning] W1000 Symbol ‘%1’ is deprecated: ‘Use %2’

2018-06-212018-06-21 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 1,714 次

【译】 [警告] W1000 符号 ‘%1′ 已经被废弃：’请使用 %2’ 【问题原因】当前版的 Delphi 已经不再使用名为 %1 的函数/变量/常量，目前的代码仍可以正常运行，但最好改成使用 %2 的替代函数/变量/常量。官方的意思是相应的符号将在后续的某个版本中

[教程]DateTimeFromString 函数的使用说明

2018-04-142018-04-15 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 2,593 次

DateTimeFromString 用于将一个日期时间格式的字符串表达式转换为日期时间类型，用于替代 Delphi 自己的 StrToDate 函数（弱弱的一个函数，我一直忽略它的存在）。在绝大部分场景下，DateTimeFromString 可以正确识别多咱格式的日期时间字符串，但并不代表它的自动识别智能到可以理

[QString]FindSwitchValue 函数使用说明

2018-03-25 • QDAC、教程 • 暂无评论 • swish •浏览 2,047 次

【用途】此函数用于将命令行开关分隔为一个名称-值对，并取出其中值。【声明】

function FindSwitchValue(ASwitch: QStringW; ANameValueSperator: QCharW;
  AIgnoreCase: Boolean; var ASwitchChar: QCharW): QStringW; overload;
function FindSwitchValue(ASwitch: QStringW; ANameValueSperator: QCharW = ':')
  : QStringW;overload;

function FindSwitchValue(ASwitch: QStringW; ANameValueSperator: QCharW;

AIgnoreCase: Boolean; var ASwitchChar: QCharW): QStringW; overload;

function FindSwitchValue(ASwitch: QStringW; ANameValueSperator: QCharW = ':')

: QStringW;overload;

【参数说明】 ASwitch : 要查找的开关 ANameValueSperator : 开关和名称的值的分隔符 AIgnoreCase : 是否忽略大小写 ASwitchC

分类：教程

[QLog]使用 CalcPerf 来查询函数性能瓶径

[QMathExpr]为 QJson 增加 QMathExpr 支持

[教程]使用泛型为 Delphi 提供一个位运算的模板支持

[教程]Delphi 10.3 新特性：内联变量

[教程]QAnimation 使用教程之一：为 TPageControl 切换加入动画效果

【教程】delphi 中如何访问另一个类中到私有成员方法 N 合 1

[教程] Resource XXX not found 的解决办法

[教程]判断两个不同的接口实例是否是同一个对象

[教程]为 Delphi 剪贴板加入 CF_HTML 数据支持

[日积月累]-20180622:前向声明关键字 forward

[日积月累]-20180621：[Warning] W1000 Symbol ‘%1’ is deprecated: ‘Use %2’

[教程]DateTimeFromString 函数的使用说明

[QString]FindSwitchValue 函数使用说明

[教程] Delphi 中的自动引用计数使用规则

[FMX] FMX 动画类的一个辅助增强

[教程]为 TDateTimePicker 增加日期时间类型支持（来自LakeView）

[教程]以管理员身份运行程序的一种方法

[非官方补丁]RSP-19552 10.2.2 的 Android 程序在退出时出错的问题非官方补丁

[FMX] FMX 拖放支持的一处小问题修正

[QSecurity]QSecurity 使用入门指南

登录