转帖：DELPHI用const来提高应用程序在多核多线程下的性能

最新推荐文章于 2020-11-04 13:13:09 发布
最新推荐文章于 2020-11-04 13:13:09 发布
阅读量721 收藏
点赞数
分类专栏： VB与Delphi 文章标签： delphi 多线程 integer function string pascal

原帖地址：http://hi.baidu.com/sqldebug/blog/item/07f436104f53ea5af819b8be.html

我们经常在DELPHI中用const来定义常量，用const来保护函数参数，其实在用const保护函数参数还有另一个更为重要的作用，提高应用程序的执行效率，尤其是在多线程多核下效果更明显。原因是：普通的函数参数如Add(AValue: string)，编译器在传入参数的时候先把变量复制一份，然后当成AValue传入Add，函数结束的时候进行销毁，你在参数上加了const，编译器在传入参数的时候不会进行复制，而是直接传地址，并在编译期间检查不能修改AValue值，我们知道DELPHI的内存管理在申请内存的时候是会加锁的，因此如果调用函数频繁，而且没有加const，这样会造成线程排队等候，性能会不如单线程，const只是对string、结构体等非基本类型有提高效率的作用，对Integer等基本类型（栈变量）不起作用。

1、const的类型检查，以下代码可以修改const参数的值

Delphi(Pascal) code 
   
   

    
    
    
    

    
    procedure
    
     TFmMain.EditConstParameter(
    
    const
    
     ARecordTest: TRecordTest);

    
    var
    
    
  pPoint: PRecordTest;

    
    begin
    
    
  pPoint :
    
    =
    
     @ARecordTest;
  pPoint.A :
    
    =
    
     
    
    1
    
    ;
  ShowMessage(IntToStr(ARecordTest.A));

    
    end
    
    ;


    
    procedure
    
     TFmMain.btnEditConstClick(Sender: TObject);

    
    var
    
    
  ARecordTest: TRecordTest;

    
    begin
    
    
  ARecordTest.A :
    
    =
    
     
    
    0
    
    ;
  EditConstParameter(ARecordTest);
  Inc(ARecordTest.A);
  ShowMessage(IntToStr(ARecordTest.A));

    
    end
    
    ;



2、const提高代码性能，使用const提高代码性能，大家可以把以下例子在自己电脑上测试。

Delphi(Pascal) code 
   
   

    
    
    
    
unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DateUtils;


    
    const
    
    
  WM_Complete 
    
    =
    
     WM_USER 
    
    +
    
     
    
    1001
    
    ;

    
    type
    
    
  TRecordTest 
    
    =
    
     
    
    record
    
    
    A: Integer;
    B: Integer;
    C: Integer;
    D: Integer;
    E: Integer;
    F: Integer;
    AStr: string;
    BStr: string;
    CStr: string;
    DStr: string;
    EStr: string;
    FStr: string;
    FCommit: 
    
    array
    
    [
    
    0
    
    ..
    
    15
    
    *
    
    1024
    
    *
    
    4
    
    ] 
    
    of
    
     Char;
  
    
    end
    
    ;
  PRecordTest 
    
    =
    
     ^TRecordTest;

  TTestThread 
    
    =
    
     class;

  TFmMain 
    
    =
    
     class(TForm)
    grpConst: TGroupBox;
    cbbConstThreadNum: TComboBox;
    lblThreadConst: TLabel;
    btnConstStart: TButton;
    btnConstStop: TButton;
    grp1: TGroupBox;
    lbl1: TLabel;
    cbbUnConstThreadNum: TComboBox;
    btnUnConstStart: TButton;
    btnUnConstStop: TButton;
    mmoText: TMemo;
    btnEditConst: TButton;
    
    
    procedure
    
     btnConstStartClick(Sender: TObject);
    
    
    procedure
    
     btnConstStopClick(Sender: TObject);
    
    
    procedure
    
     btnUnConstStartClick(Sender: TObject);
    
    
    procedure
    
     btnUnConstStopClick(Sender: TObject);
    
    
    procedure
    
     btnEditConstClick(Sender: TObject);
  private
    
    
    {
    
     Private declarations 
    
    }
    
    
    FStartTime, FEndTime: TDateTime;
    FConstThread, FUnConstThread: 
    
    array
    
     
    
    of
    
     TTestThread;
  protected
    
    
    procedure
    
     WMComplete(
    
    var
    
     Msg: TMessage); message WM_Complete;
  public
    
    
    {
    
    * 修改const函数变量 *
    
    }
    
    
    
    
    procedure
    
     EditConstParameter(
    
    const
    
     ARecordTest: TRecordTest);
    
    
    {
    
    * 线程测试函数 *
    
    }
    
    
    
    
    function
    
     ConstTestA(
    
    const
    
     ARecordTest: TRecordTest): Integer;
    
    
    function
    
     ConstTestB(
    
    const
    
     ARecordTest: TRecordTest): Integer;
    
    
    function
    
     ConstTestC(
    
    const
    
     ARecordTest: TRecordTest): Integer;
    
    
    function
    
     ConstTestD(
    
    const
    
     ARecordTest: TRecordTest): Integer;
    
    
    function
    
     ConstTestE(
    
    const
    
     ARecordTest: TRecordTest): Integer;
    
    
    function
    
     ConstTestF(
    
    const
    
     ARecordTest: TRecordTest): Integer;
    
    
    function
    
     UnConstTestA(ARecordTest: TRecordTest): Integer;
    
    
    function
    
     UnConstTestB(ARecordTest: TRecordTest): Integer;
    
    
    function
    
     UnConstTestC(ARecordTest: TRecordTest): Integer;
    
    
    function
    
     UnConstTestD(ARecordTest: TRecordTest): Integer;
    
    
    function
    
     UnConstTestE(ARecordTest: TRecordTest): Integer;
    
    
    function
    
     UnConstTestF(ARecordTest: TRecordTest): Integer;
  
    
    end
    
    ;

  TTestThread 
    
    =
    
     class(TThread)
  private
    FConst: Boolean;
  protected
    
    
    procedure
    
     Execute; override;
  
    
    end
    
    ;


    
    var
    
    
  FmMain: TFmMain;

implementation


    
    {
    
    $R *.dfm
    
    }
    
    


    
    {
    
     TFmMain 
    
    }
    
    


    
    procedure
    
     TFmMain.EditConstParameter(
    
    const
    
     ARecordTest: TRecordTest);

    
    var
    
    
  pPoint: PRecordTest;

    
    begin
    
    
  pPoint :
    
    =
    
     @ARecordTest;
  pPoint.A :
    
    =
    
     
    
    1
    
    ;
  ShowMessage(IntToStr(ARecordTest.A));

    
    end
    
    ;


    
    procedure
    
     TFmMain.btnEditConstClick(Sender: TObject);

    
    var
    
    
  ARecordTest: TRecordTest;

    
    begin
    
    
  ARecordTest.A :
    
    =
    
     
    
    0
    
    ;
  EditConstParameter(ARecordTest);
  Inc(ARecordTest.A);
  ShowMessage(IntToStr(ARecordTest.A));

    
    end
    
    ;


    
    function
    
     TFmMain.ConstTestA(
    
    const
    
     ARecordTest: TRecordTest): Integer;

    
    var
    
    
  i, j: Integer;

    
    begin
    
    
  j :
    
    =
    
     ARecordTest.A;
  
    
    for
    
     i :
    
    =
    
     
    
    0
    
     
    
    to
    
     
    
    5
    
     
    
    do
    
    
  
    
    begin
    
    
    j :
    
    =
    
     j 
    
    +
    
     
    
    1
    
    ;
  
    
    end
    
    ;
  Result :
    
    =
    
     j;
  ConstTestB(ARecordTest);

    
    end
    
    ;


    
    function
    
     TFmMain.ConstTestB(
    
    const
    
     ARecordTest: TRecordTest): Integer;

    
    var
    
    
  i, j: Integer;

    
    begin
    
    
  j :
    
    =
    
     ARecordTest.A;
  
    
    for
    
     i :
    
    =
    
     
    
    0
    
     
    
    to
    
     
    
    5
    
     
    
    do
    
    
  
    
    begin
    
    
    j :
    
    =
    
     j 
    
    +
    
     
    
    1
    
    ;
  
    
    end
    
    ;
  Result :
    
    =
    
     j;
  ConstTestC(ARecordTest);

    
    end
    
    ;


    
    function
    
     TFmMain.ConstTestC(
    
    const
    
     ARecordTest: TRecordTest): Integer;

    
    var
    
    
  i, j: Integer;

    
    begin
    
    
  j :
    
    =
    
     ARecordTest.A;
  
    
    for
    
     i :
    
    =
    
     
    
    0
    
     
    
    to
    
     
    
    5
    
     
    
    do
    
    
  
    
    begin
    
    
    j :
    
    =
    
     j 
    
    +
    
     
    
    1
    
    ;
  
    
    end
    
    ;
  Result :
    
    =
    
     j;
  ConstTestD(ARecordTest);

    
    end
    
    ;


    
    function
    
     TFmMain.ConstTestD(
    
    const
    
     ARecordTest: TRecordTest): Integer;

    
    var
    
    
  i, j: Integer;

    
    begin
    
    
  j :
    
    =
    
     ARecordTest.A;
  
    
    for
    
     i :
    
    =
    
     
    
    0
    
     
    
    to
    
     
    
    5
    
     
    
    do
    
    
  
    
    begin
    
    
    j :
    
    =
    
     j 
    
    +
    
     
    
    1
    
    ;
  
    
    end
    
    ;
  Result :
    
    =
    
     j;
  ConstTestE(ARecordTest);

    
    end
    
    ;


    
    function
    
     TFmMain.ConstTestE(
    
    const
    
     ARecordTest: TRecordTest): Integer;

    
    var
    
    
  i, j: Integer;

    
    begin
    
    
  j :
    
    =
    
     ARecordTest.A;
  
    
    for
    
     i :
    
    =
    
     
    
    0
    
     
    
    to
    
     
    
    5
    
     
    
    do
    
    
  
    
    begin
    
    
    j :
    
    =
    
     j 
    
    +
    
     
    
    1
    
    ;
  
    
    end
    
    ;
  Result :
    
    =
    
     j;
  ConstTestF(ARecordTest);

    
    end
    
    ;


    
    function
    
     TFmMain.ConstTestF(
    
    const
    
     ARecordTest: TRecordTest): Integer;

    
    var
    
    
  i, j: Integer;

    
    begin
    
    
  j :
    
    =
    
     ARecordTest.A;
  
    
    for
    
     i :
    
    =
    
     
    
    0
    
     
    
    to
    
     
    
    5
    
     
    
    do
    
    
  
    
    begin
    
    
    j :
    
    =
    
     j 
    
    +
    
     
    
    1
    
    ;
  
    
    end
    
    ;
  Result :
    
    =
    
     j;

    
    end
    
    ;


    
    function
    
     TFmMain.UnConstTestA(ARecordTest: TRecordTest): Integer;

    
    var
    
    
  i, j: Integer;

    
    begin
    
    
  j :
    
    =
    
     ARecordTest.A;
  
    
    for
    
     i :
    
    =
    
     
    
    0
    
     
    
    to
    
     
    
    5
    
     
    
    do
    
    
  
    
    begin
    
    
    j :
    
    =
    
     j 
    
    +
    
     
    
    1
    
    ;
  
    
    end
    
    ;
  Result :
    
    =
    
     j;
  UnConstTestB(ARecordTest);

    
    end
    
    ;


    
    function
    
     TFmMain.UnConstTestB(ARecordTest: TRecordTest): Integer;

    
    var
    
    
  i, j: Integer;

    
    begin
    
    
  j :
    
    =
    
     ARecordTest.A;
  
    
    for
    
     i :
    
    =
    
     
    
    0
    
     
    
    to
    
     
    
    5
    
     
    
    do
    
    
  
    
    begin
    
    
    j :
    
    =
    
     j 
    
    +
    
     
    
    1
    
    ;
  
    
    end
    
    ;
  Result :
    
    =
    
     j;
  UnConstTestC(ARecordTest);

    
    end
    
    ;


    
    function
    
     TFmMain.UnConstTestC(ARecordTest: TRecordTest): Integer;

    
    var
    
    
  i, j: Integer;

    
    begin
    
    
  j :
    
    =
    
     ARecordTest.A;
  
    
    for
    
     i :
    
    =
    
     
    
    0
    
     
    
    to
    
     
    
    5
    
     
    
    do
    
    
  
    
    begin
    
    
    j :
    
    =
    
     j 
    
    +
    
     
    
    1
    
    ;
  
    
    end
    
    ;
  Result :
    
    =
    
     j;
  UnConstTestD(ARecordTest);

    
    end
    
    ;


    
    function
    
     TFmMain.UnConstTestD(ARecordTest: TRecordTest): Integer;

    
    var
    
    
  i, j: Integer;

    
    begin
    
    
  j :
    
    =
    
     ARecordTest.A;
  
    
    for
    
     i :
    
    =
    
     
    
    0
    
     
    
    to
    
     
    
    5
    
     
    
    do
    
    
  
    
    begin
    
    
    j :
    
    =
    
     j 
    
    +
    
     
    
    1
    
    ;
  
    
    end
    
    ;
  Result :
    
    =
    
     j;
  UnConstTestE(ARecordTest);

    
    end
    
    ;


    
    function
    
     TFmMain.UnConstTestE(ARecordTest: TRecordTest): Integer;

    
    var
    
    
  i, j: Integer;

    
    begin
    
    
  j :
    
    =
    
     ARecordTest.A;
  
    
    for
    
     i :
    
    =
    
     
    
    0
    
     
    
    to
    
     
    
    5
    
     
    
    do
    
    
  
    
    begin
    
    
    j :
    
    =
    
     j 
    
    +
    
     
    
    1
    
    ;
  
    
    end
    
    ;
  Result :
    
    =
    
     j;
  UnConstTestF(ARecordTest);

    
    end
    
    ;


    
    function
    
     TFmMain.UnConstTestF(ARecordTest: TRecordTest): Integer;

    
    var
    
    
  i, j: Integer;

    
    begin
    
    
  j :
    
    =
    
     ARecordTest.A;
  
    
    for
    
     i :
    
    =
    
     
    
    0
    
     
    
    to
    
     
    
    5
    
     
    
    do
    
    
  
    
    begin
    
    
    j :
    
    =
    
     j 
    
    +
    
     
    
    1
    
    ;
  
    
    end
    
    ;
  Result :
    
    =
    
     j;

    
    end
    
    ;


    
    procedure
    
     TFmMain.WMComplete(
    
    var
    
     Msg: TMessage);

    
    begin
    
    
  FEndTime :
    
    =
    
     Now;
  mmoText.Lines.Add(
    
    '
    
    Spend Time: 
    
    '
    
     
    
    +
    
     IntToStr(MilliSecondsBetween(FStartTime, FEndTime)));

    
    end
    
    ;


    
    {
    
     TTestThread 
    
    }
    
    


    
    procedure
    
     TTestThread.Execute;

    
    var
    
    
  ARecordTest: TRecordTest;

    
    begin
    
    
  inherited;
  ARecordTest.A :
    
    =
    
     
    
    0
    
    ;
  
    
    while
    
     ARecordTest.A 
    
    <
    
     
    
    1000000
    
     
    
    do
    
    
  
    
    begin
    
    
    
    
    if
    
     FConst 
    
    then
    
    
    
    
    begin
    
    
      Inc(ARecordTest.A);
      FmMain.ConstTestA(ARecordTest);
    
    
    end
    
    
    
    
    else
    
    
    
    
    begin
    
    
      Inc(ARecordTest.A);
      FmMain.UnConstTestA(ARecordTest);
    
    
    end
    
    ;
  
    
    end
    
    ;
  SendMessage(FmMain.Handle, WM_Complete, 
    
    0
    
    , 
    
    0
    
    );

    
    end
    
    ;


    
    procedure
    
     TFmMain.btnConstStartClick(Sender: TObject);

    
    var
    
    
  i: Integer;

    
    begin
    
    
  FStartTime :
    
    =
    
     Now;
  SetLength(FConstThread, StrToInt(cbbConstThreadNum.Text));
  
    
    for
    
     i :
    
    =
    
     Low(FConstThread) 
    
    to
    
     High(FConstThread) 
    
    do
    
    
  
    
    begin
    
    
    FConstThread[i] :
    
    =
    
     TTestThread.Create(True);
    FConstThread[i].FreeOnTerminate :
    
    =
    
     True;
    FConstThread[i].FConst :
    
    =
    
     True;
  
    
    end
    
    ;
  
    
    for
    
     i :
    
    =
    
     Low(FConstThread) 
    
    to
    
     High(FConstThread) 
    
    do
    
    
  
    
    begin
    
    
    FConstThread[i].Resume;
  
    
    end
    
    ;
  btnConstStart.Enabled :
    
    =
    
     False;
  btnConstStop.Enabled :
    
    =
    
     True;

    
    end
    
    ;


    
    procedure
    
     TFmMain.btnConstStopClick(Sender: TObject);

    
    var
    
    
  i: Integer;

    
    begin
    
    
  
    
    if
    
     Length(FConstThread) 
    
    =
    
     
    
    0
    
     
    
    then
    
     Exit;
  
    
    for
    
     i :
    
    =
    
     Low(FConstThread) 
    
    to
    
     High(FConstThread) 
    
    do
    
    
  
    
    begin
    
    
    FConstThread[i].Terminate;
  
    
    end
    
    ;
  SetLength(FConstThread, 
    
    0
    
    );
  btnConstStart.Enabled :
    
    =
    
     True;
  btnConstStop.Enabled :
    
    =
    
     False;

    
    end
    
    ;


    
    procedure
    
     TFmMain.btnUnConstStartClick(Sender: TObject);

    
    var
    
    
  i: Integer;

    
    begin
    
    
  FStartTime :
    
    =
    
     Now;
  SetLength(FUnConstThread, StrToInt(cbbUnConstThreadNum.Text));
  
    
    for
    
     i :
    
    =
    
     Low(FUnConstThread) 
    
    to
    
     High(FUnConstThread) 
    
    do
    
    
  
    
    begin
    
    
    FUnConstThread[i] :
    
    =
    
     TTestThread.Create(True);
    FUnConstThread[i].FreeOnTerminate :
    
    =
    
     True;
    FUnConstThread[i].FConst :
    
    =
    
     False;
  
    
    end
    
    ;
  
    
    for
    
     i :
    
    =
    
     Low(FUnConstThread) 
    
    to
    
     High(FUnConstThread) 
    
    do
    
    
  
    
    begin
    
    
    FUnConstThread[i].Resume;
  
    
    end
    
    ;
  btnUnConstStart.Enabled :
    
    =
    
     False;
  btnUnConstStop.Enabled :
    
    =
    
     True;

    
    end
    
    ;


    
    procedure
    
     TFmMain.btnUnConstStopClick(Sender: TObject);

    
    var
    
    
  i: Integer;

    
    begin
    
    
  
    
    if
    
     Length(FUnConstThread) 
    
    =
    
     
    
    0
    
     
    
    then
    
     Exit;
  
    
    for
    
     i :
    
    =
    
     Low(FUnConstThread) 
    
    to
    
     High(FUnConstThread) 
    
    do
    
    
  
    
    begin
    
    
    FUnConstThread[i].Terminate;
  
    
    end
    
    ;
  SetLength(FUnConstThread, 
    
    0
    
    );
  btnUnConstStart.Enabled :
    
    =
    
     True;
  btnUnConstStop.Enabled :
    
    =
    
     False;

    
    end
    
    ;


    
    end
    
    .
春天一叶
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Delphi const
.net成长不容易
06-29 814
Ok, 我想谈谈Object Pascal中关于const的一些事，起因是我发现一方面Object Pascal中关于const的说明很少，另一方面在现实中存在对其的许多误用。当然，我这是杂谈，不可能面面俱到。 1、const是什么？      const是一个修饰词，来源于英文constant，意思是“常量、恒量、不变的” 的意思。注意！const是一个修饰词，代表一种约束（可能是语
CommandBuffer：专为多线程渲染应用程序设计的无锁CommandBuffer实现
02-02
无锁CommandBuffer 专为多线程渲染应用程序设计的无锁CommandBuffer实现。 有助于减少状态切换（例如，材质，着色器），深度排序（用于透明性或硬件Early-Z拒绝），以及用于从多个线程分派命令。产品特点无锁，专为...
~Delphi const 杂谈~
weixin_30376163的博客
02-08 89
来自：http://www.cnblogs.com/tibetwolf/articles/1785744.html ------------------------------------------------------------------------------- {*********************************************}{ Delphi...
delphi const
aldsot0997的博客
06-14 131
//Const关键字用于声明常量, 使用const声明的数据将不能在程序中被改变. //也可以用来声明函数参数, 用const指定的参数不允许在函数中改变. const MyFileName = 'Delphi'; const MyInteger = 100; //用Const声明常量不需要指出其数据类型, 系统会自动判断类型, 并作自动调整. //函数中可以用const声...
巧用Delphi 2010 RTTI 管理常量(const)！
敦格
01-09 1491
巧用Delphi 2010 RTTI 管理常量(const)！
c++11多线程编程之std::async的介绍与实例
12-16
这个特性极大地增强了C++在多线程编程中的能力，尤其是在处理I/O密集型或计算密集型任务时。下面我们将深入探讨`std::async`的工作原理、启动策略以及如何在实际编程中应用。 `std::async`是一个函数模板，它接受一...
DELPHI分级别调试日志类,支持多种类型输出,支持多线程模式.
12-24
* 用 途：分级别调试日志类,支持多种类型输出,支持多线程模式. * 提供类表: TCGL_DebugLogs * 提供函数： procedure DebugLog_Init(LogsFileName: string = ''; LogsPath: string = ''; LogMethod: TLogMethod ...
EDA/PLD中的const在函数声明中的应用
11-07
在EDA/PLD（电子设计自动化/可编程逻辑器件）领域，编程中使用`const`关键字在函数声明中有着重要的作用。`const`主要用于保证代码的稳定性和安全性，避免无意中修改不应修改的数据。本文由陶宁，华清远见嵌入式学院...
QNX环境下多线程编程
08-31
QNX环境下多线程编程是指在QNX实时操作系统中如何使用多线程编程技术来提高系统的性能和效率。QNX是一种多任务、分布式、可嵌入的实时操作系统，它具有轻巧的微内核，可以对进程进行全面的地址保护，具有剪裁、模块...
Delphi常量
01-08
常量就是在第一次赋值后不能改变其值的量. Delphi有两种常量: 直接常量, 声明常量. 1直接常量:数值123 ,字符串’csdn.net’, 十六进制数$12，FALSE 和TRUE 2声明常量: 符号常量, 资源字符串, 类型常量, 数组常量 2.1符号常量 Const   ＝ ；      Const  intA =123; intB=123+ intA; chStr =’abcdef’; 编译器在编译时将根据值的类型推测常量的类型 2.2资源字符串       resourcestring  strUrl = ‘www.csdn.net’; 声明的字符串被编译至资源文件中, 可任
delphi const的用法
weixin_33928137的博客
05-18 712
unit RadKeygen; interface uses Classes,SysUtils,Windows; function fun1():string; implementation const iid:Integer=53; CSIDL_PERSONAL = $0005; byte1:array[0..255] of Byte=($0...
Delphi 中 函数参数中的 const 修饰符的本质以及注意事项
游侠之魂的专栏
06-14 7620
转自：http://blog.csdn.net/wxieyang/article/details/5772456       很多书籍中说函数参数如果是String类型的，如果在函数内部不改变参数的值，使用 const 修饰符会加快程序的执行速度，至于如何加快的？有的人说是因为 const 函数保证了参数字符串不会被复制。以前也没有对这个问题深入研究，但是在不修改函数参数的时候，总是习惯加上 c
DELPHI内存详解(5)－用const来提高应用程序在多核多线程下的性能
yanshi100的专栏
09-16 1034
我们经常在DELPHI中用const来定义常量，用const来保护函数参数，其实在用const保护函数参数还有另一个更为重要的作用，提高应用程序的执行效率，尤其是在多线程多核下效果更明显。原因是：普通的函数参数如Add(AValue: string)，编译器在传入参数的时候先
delphi const常量声明演示
xI4oh4o 's blog
12-29 7176
procedure TForm1.Button1Click(Sender: TObject);const xh:integer=6;  //用const定义一个常量,并赋予整形值6 var x:string;   //用var定义一个变量,类型为字符串beginx:=inttostr(xh);  //吧整形xh 值赋给 xshowmessage (inttostr(xh));result.Text
Delphi的参数修饰const/var/output 与C++的对应关系
rocklee的专栏
05-17 1111
delphi的const/input和默认的没有修饰, C++都是一样的 delphi的var,对应C++那边是指针,  调用方需要管理内存(负责分配内存及销毁)         delphi的output , 对应c++那边也是指针 , 如果是 C++调用Delphi DLL, 而Delphi有个形参是out修饰的话, C++调用方传入的指针可以不需要初始化, 因为初始化已经在dll那边完成
Delphi基础教程图文版之内联变量
舞动的代码
11-04 326
内联变量是Delphi Rio 10.3中引入的功能，这个功能其实在其他语言中并不新鲜，在第一次接触Delphi的时候如果非要让我吐槽点儿什么的话那就是变量的声明 官方文档：http://docwiki.embarcadero.com/RADStudio/Rio/en/Inline_Variable_Declaration 内联变量声明 以前使用局部变量需要以下面的方式进行声明 procedure Test; var I: Integer; begin I := 22; ShowMessag
delphi 函数参数传递 默认参数(传值)、var(传址)、out(输出)、const(常数)四类
热门推荐
rznice的专栏
11-11 1万+
参数可以分为: 默认参数(传值)、var(传址)、out(输出)、const(常数)四类 {默认参数是传值, 不会被改变}function MyF1(x: Integer): Integer;begin  Inc(x);  Result := x;end; {var参数是传址, 会被改变}function MyF2(var x: Integer): Integer;begin  Inc(x);
Delphi6应用开发：集合、常数与类型信息编程技巧
常数的使用可以避免多线程环境下值被意外修改的问题，确保数据的稳定性。此外，经常使用的值应定义为常量，如数学中的Pi，可以在接口部分定义一个常量Pi，给出准确的数值，方便整个程序引用。 Delphi还允许定义类型...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值