软件的基本是要处理好”算法“及其基础（二）delphi系统原子函数及方法

最新推荐文章于 2023-04-18 18:03:09 发布
原创 最新推荐文章于 2023-04-18 18:03:09 发布 · 632 阅读 · 1 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#delphi #算法 #delphi XE10

本文深入解析Delphi系统中的原子函数与方法，涵盖序数相关操作、字符串处理、事件类型定义、常量集合赋值等内容，为Delphi开发者提供全面的底层技术指导。

软件的基本是要处理好”算法“及其基础（二）delphi系统原子函数及方法

 

        如果你没有深入到delphi的内心深处，可能你不常触及这些内容。本文将不断更新增加内容，敬请关注收藏......

序号函数、方法或记录作用引用单元
001Trunc(ADouble:Double)提取浮点类型的整数部分System.pas
 Frac(ADouble:Double)提取浮点类型的小数部分 
 Round(X: Single):Longint;返回：四舍六入五留双的序数 
002 序数相关System.pas
 Ord(var X):LongInt; 返回有序的数据类型参数对应的值的集合中的序数，不用Int64参数,返回值范围(0..MaxInt) 
 Low(var X):LongInt; 返回有序的数据类型参数对应的值的集合中的最小序数:(0..MaxInt) 
 High(var X):LongInt; 返回有序的数据类型参数对应的值的集合中的最大序数:(0..MaxInt) 
 Pred(var X):LongInt;  返回有序的数据类型参数对应的值的集合中的当前序数的前一个序数:(0..High(var X)-1) 
 Succ(var X):LongInt;   返回有序的数据类型参数对应的值的集合中的当前序数的后一个序数:(0..High(var X)-1) 
 Odd(AInt:Integer):Boolean;若参数为奇数返回真System.pas
 Sizeof(var X):MaxInt;类型或对象所占的内存字节数System.pas
003Inc(AInt:Integer; Incre:Integer)将整数AInt原子增加IncreSystem.pas
004Dec(AInt:Integer; Decre:Integer)将整数AInt原子减少DecreSystem.pas
005TGUID记录全局唯一标识符,可由记录类方法产生或其类操作进行比较System.pas
 UpCase(AString:String):String将字符串AString大写后返回 
 LowerCase(AString:String):String将字符串AString小写后返回 
 Copy ( Source : string; StartChar, Count : Integer ) : string;因涉及多字节字符可能返回乱码，请慎用，请用System.SysUtils.TStringHelper 
 Chr(X: Byte): Char;返回字节X( (0..255)，即UInt8)对应的ASCii码表的码值 
    
006TNotifyEvent标准事件Type TNotifyEvent = procedure(Sender: TObject) of object;System.Classes.pas
007TGetStrProc标准事件Type TGetStrProc = procedure(const S: string) of object;System.Classes.pas
008

  TProc

  TProc<T>

  TProc<T1,T2>

  TProc<T1,T2,T3>

  TProc<T1,T2,T3,T4>

 

  TFunc<TResult>

  TFunc<T,TResult>

  TFunc<T1,T2,TResult>

  TFunc<T1,T2,T3,TResult>

  TFunc<T1,T2,T3,T4,TResult>

 

  TPredicate<T>

 

 

 

通用匿名方法描述句法：

type
  TProc = reference to procedure;
  TProc<T> = reference to procedure (Arg1: T);
  TProc<T1,T2> = reference to procedure (Arg1: T1; Arg2: T2);
  TProc<T1,T2,T3> = reference to procedure (Arg1: T1; Arg2: T2; Arg3: T3);
  TProc<T1,T2,T3,T4> = reference to procedure (Arg1: T1; Arg2: T2; Arg3: T3; Arg4: T4);

  TFunc<TResult> = reference to function: TResult;
  TFunc<T,TResult> = reference to function (Arg1: T): TResult;
  TFunc<T1,T2,TResult> = reference to function (Arg1: T1; Arg2: T2): TResult;
  TFunc<T1,T2,T3,TResult> = reference to function (Arg1: T1; Arg2: T2; Arg3: T3): TResult;
  TFunc<T1,T2,T3,T4,TResult> = reference to function (Arg1: T1; Arg2: T2; Arg3: T3; Arg4: T4): TResult;

  TPredicate<T> = reference to function (Arg1: T): Boolean;

 

案例：匿名函数的定义与赋值：constructor TStringList.Create;  //其中：

var
  CompareStringsP: function (const S1, S2: string): Integer of object;
  GetObjectP: function (Index: Integer): TObject of object;

  CompareStringsP := CompareStrings;

  GetObjectP := GetObject;  //其中：

function TStringList.CompareStrings(const S1, S2: string): Integer;
begin
  if UseLocale then
    if CaseSensitive then
      Result := AnsiCompareStr(S1, S2)
    else
      Result := AnsiCompareText(S1, S2)
  else
    if CaseSensitive then
      Result := CompareStr(S1, S2)
    else
      Result := CompareText(S1, S2);
end;

function TStringList.GetObject(Index: Integer): TObject;
begin
  if Cardinal(Index) >= Cardinal(FCount) then
    Error(@SListIndexError, Index);
  Result := FList[Index].FObject;
end;

案例：匿名过程的定义与赋值：

var LProc :TProc;   //:匿名过程的声明

LProc := Procedure

  var LProc_1:string; LProc_2:Integer; //:匿名过程内部的变量......

begin

    //......

end;       //:匿名过程的定义与赋值

//又如:

var LStr:string; LInt:Integer;
      LProc:TProc<string,Integer>;   //:匿名过程的声明

begin

  LStr:=''; LInt:=-1;
  LProc:=Procedure(AStr:string; AInt:Integer)  
    var LProc_1:string; LProc_2:Integer;//:匿名过程内部的变量......
  begin
      LProc_1:=AStr;  LProc_2:=AInt;
      ShowMessage(LProc_1 + LProc_2.toString);  //:UI输出结果
  end;     //:匿名过程的定义与赋值
  LProc(LStr,LInt);  //:传参（虚实替换）并执行上面赋值的匿名过程

end;

System.SysUtils.pas
009Include

常量集合（常量数组）的赋值：案例：constructor TStringList.Create;

Include(FOverridden, sloCompareStrings);  //其中：

FOverridden: TOverridden = set of (sloCompareStrings, sloGetObject);

System.Classes.pas
010TMethod

方法记录（代码、返回数据）  及方法记录间的比较：

PMethod = ^TMethod;
  TMethod = record
    Code, Data: Pointer;
  public
    class operator Equal(const Left, Right: TMethod): Boolean; inline;
    class operator NotEqual(const Left, Right: TMethod): Boolean; inline;
    class operator GreaterThan(const Left, Right: TMethod): Boolean; inline;
    class operator GreaterThanOrEqual(const Left, Right: TMethod): Boolean; inline;
    class operator LessThan(const Left, Right: TMethod): Boolean; inline;
    class operator LessThanOrEqual(const Left, Right: TMethod): Boolean; inline;
  end;

案例：constructor TStringList.Create;

var
  CompareStringsP: function (const S1, S2: string): Integer of object;
  GetObjectP: function (Index: Integer): TObject of object;

  if TMethod(CompareStringsP).Code <> @TStringList.CompareStrings then
    Include(FOverridden, sloCompareStrings);

  if TMethod(GetObjectP).Code <> @TStringList.GetObject then
    Include(FOverridden, sloGetObject);  //其中:

function TStringList.CompareStrings(const S1, S2: string): Integer;
begin
  if UseLocale then
    if CaseSensitive then
      Result := AnsiCompareStr(S1, S2)
    else
      Result := AnsiCompareText(S1, S2)
  else
    if CaseSensitive then
      Result := CompareStr(S1, S2)
    else
      Result := CompareText(S1, S2);
end;

function TStringList.GetObject(Index: Integer): TObject;
begin
  if Cardinal(Index) >= Cardinal(FCount) then
    Error(@SListIndexError, Index);
  Result := FList[Index].FObject;
end;

System.pas
011CompareStr等各类型比较

字符串比较函数：//其它自己去看

function CompareStr(const S1, S2: string): Integer;

System.SysUtils

//运行时刻库

//非原子单元，

//但很有用

//顺便提及

012TComparer

其中泛型比较类及其接口：//下面是常见的简单的，其它Singleton及其子类客制化的自己去看

//uses System.SysUtils, System.TypInfo;

type
  IComparer<T> = interface
    function Compare(const Left, Right: T): Integer;
  end;

  IEqualityComparer<T> = interface
    function Equals(const Left, Right: T): Boolean;
    function GetHashCode(const Value: T): Integer;
  end;

  TComparison<T> = reference to function(const Left, Right: T): Integer;

  // Abstract base class for IComparer<T> implementations, and a provider
  // of default IComparer<T> implementations.
  TComparer<T> = class(TInterfacedObject, IComparer<T>)
  public
    class function Default: IComparer<T>;
    class function Construct(const Comparison: TComparison<T>): IComparer<T>;
    function Compare(const Left, Right: T): Integer; virtual; abstract;
  end;

  TEqualityComparison<T> = reference to function(const Left, Right: T): Boolean;
  THasher<T> = reference to function(const Value: T): Integer;

  // Abstract base class for IEqualityComparer<T> implementations, and a provider
  // of default IEqualityComparer<T> implementations.
  TEqualityComparer<T> = class(TInterfacedObject, IEqualityComparer<T>)
  public
    class function Default: IEqualityComparer<T>; static;

    class function Construct(const EqualityComparison: TEqualityComparison<T>;
      const Hasher: THasher<T>): IEqualityComparer<T>;

    function Equals(const Left, Right: T): Boolean;
      reintroduce; overload; virtual; abstract;
    function GetHashCode(const Value: T): Integer;
      reintroduce; overload; virtual; abstract;
  end;

案例：

while TComparer<TBitMap>.Construct(
                 function (const Left, Right: TBitMap): Integer
                 begin
                     Result := (Left.Handle - Right.Handle);//FMX.Graphics.pas
                end).Compare( LBitMapCompared,LBitMapComparing)
   = 0 do
                 begin
                         TThread.Synchronize(nil,
                           procedure
                           begin
                               ShowMessage('请先选择图片');
                           end); 
                         exit; //:不往下执行:但不能等待
                 end;//:确保被选赋值项和选择项，两者完美吻合

System.Generics.Defaults

系统泛型的默认单元

........................
099Power(const Base, Exponent: Extended): Extended;

返回任意Base>0的实数的Exponent指数的数值

请参考网友的数学库翻译:

https://blog.youkuaiyun.com/weixin_30664539/article/details/95452703

System.Math.pas
 (AInt div BInt):Integer;对2个整数进行除，取商，返回Integer 
 (AInt mod BInt):Integer;取2个整数相除的余数，返回Integer 
 (AReal / BReal):real;2个实数或整数相除的结果，返回实数real 
........................

本博客相关：

  《软件的基本是要处理好”算法“及其基础（一）流-字-字符(包括某个数字、字母、符号和某个汉字等)-字符串-字节动态数组-字节-整数之间的转化关系和算法》https://blog.youkuaiyun.com/pulledup/article/details/104353336

 

喜欢的话，就在下面点个赞、收藏就好了，方便看下次的分享：

 

 

Delphi异步编程：匿名线程与匿名方法
weixin_30610755的博客
08-21 1240
异步编程，是项目中非常有用的而且常用的一种方法，大多以线程实现。 而Delphi传统方法使用线程略为烦琐，好在其后续版本中，提供一些方法，简化一些操作。 几个概念： 匿名线程：TAnonymousThread，Delphi XE始支持。 匿名方法：reference to procedure|function，Delphi 2009 始支持。 匿名线程 其实只是创建一个线程...
DELPHI的原子世界（转贴）
Qi_jianzhou的资料室
02-27 1060
第1章  uo DELPHI的原子世界“天苍苍，野茫茫，风吹草低见牛羊”在使用DELPHI开发应用软件的过程中，我们就像草原上一群快乐牛羊，无忧无虑地享受着Object Pascal语言为我们带来的温暖阳光和各种VCL控件提供的丰富水草。抬头望望无边无际蔚蓝的天空，低头品尝大地上茂密的青草，谁会去想天有多高？地有多大？阳光和水草又是从何而来？那是大师关心的事。而大师此时正坐在高高的山顶上，仰望宇宙
多线程程序中的原子操作
03-26
多线程程序中的原子操作
Delphi XE10.2.3多线程大量读和少量写公共资源时，用原子自旋读写锁代替互斥锁提高效率
04-12
对于一个高性能服务器在处理多数读取，少量写入的场景时，如果还是使用常规的互斥锁方式，显然就不明智了，这种读多写少的场景最适合使用读写锁方式，读取时不加锁，多线程并发读取，效率是最高的，要写入数据时堵塞所有后面进来的读写线程，写完释放锁，所有读取线程又并发读取，详细内容请见：https://blog.youkuaiyun.com/u013420701/article/details/79912242
DELPHI的原子世界(1)
freewizard的专栏
07-15 830
DELPHI的原子世界(1)by Jie在使用DELPHI开发软件的过程中，我们就像草原上一群快乐牛羊，无忧无虑地享受着Object Pascal语言为我们带来的阳光和各种VCL控件提供的丰富的水草。抬头望望无边无际蔚蓝的天空，低头品尝大地上茂密的青草，谁会去想宇宙有多大，比分子和原子更小的东西是什么？那是哲学家的事。而哲学家此时正坐在高高的山顶上，仰望宇宙星云变换，凝视地上小虫的爬行，蓦
DelphiXE10.2.3实现线程安全访问数据和对象（一）——Delphi原子操作函数介绍
晴空无彩虹的博客
05-29 3601
     之前写《原子自旋锁》时，也是第一次研究原子操作方法，看着测试结果出来时，自己兴奋了很久，后来在实际改造项目时，由于需要解决单链表、HASH、对象池这三种常用数据存储方式，索性一鼓作气将这三种一起实现了，相关源代码会放到优快云上，这里先将Delphi原子操作函数介绍清楚，以便对源码进行改造时，能够避免问题的发生。一、Delphi的原子操作函数    在System.SyncObjs单元中...
delphi原子操作实现简单内存池
hksoobe的专栏
03-16 350
【代码】delphi原子操作实现简单内存池。
简略单纯高效的Delphi原子队列
rocklee的专栏
09-29 4631
本文供给Delphi一个基于原子操纵的无锁队列，简略单纯高效。实用于多线程大吞吐量操纵的队列。 科学是使人精力变得大胆的最好路子。可用于Android体系和32，64位Windows体系。   感激歼10和qsl供给了批改建议！ 有如下题目： 1.必须实现开辟内存 2.队列大小必须是2的幂 3.不克不及压入空指针   unit utAtomFI
Delphi的原子世界
五维思考
10-11 1209
DELPHI的原子世界在使用Delphi开发软件的过程中，我们就像草原上一群快乐牛羊，无忧无虑地享受着Object Pascal语言为我们带来的阳光和各种VCL控件提供的丰富的水草。抬头望望无边无际蔚蓝的天空，低头品尝大地上茂密的青草，谁会去想宇宙有多大，比分子和原子更小的东西是什么？那是哲学家的事。而哲学家此时正坐在高高的山顶上，仰望宇宙星云变换，凝视地上小虫的爬行，蓦然回头，对我们这群吃草
基本原子操作
Dean Chen的专栏
12-15 3682
Table of Contents1. 处理器支持的一系列原子操作1.1. CAS(Compare And Swap/Set)1.1.1. 函数原型1.1.2. 实现逻辑1.1.3. C++11标准库1.2. Fetch And Add1.3. Test And Set1 处理器支持的一系列原子操作1.1 CAS(Compare And Swap/Set)详细内容参考 wiki, 下面是我的理解1
DELPHI的原子世界
jjdelphi的专栏
04-29 894
转贴自：http://www.youkuaiyun.com/expert/topic/108/108956.shtm；       http://www.youkuaiyun.com/expert/topic/109/109010.shtmDELPHI的原子世界关键词：Delphi控件杂项在使用DELPHI开发软件的过程中，我们就像草原上一群快乐牛羊，无忧无虑地享受着Object Pascal语言为我们带来的
Delphi多线程教程
04-06
Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编 程的全部，我写此文的目的在于对此作一个补充。 线程本质上是进程中一段并发运行的代码。一个进程至少有一个线程，即所谓的主线程。同时还可以有多个子线程。 当一个进程中用到超过一个线程时，就是所谓的“多线程”。 那么这个所谓的“一段代码”是如何定义的呢？其实就是一个函数或过程（对Delphi而言）。 如果用Windows API来创建线程的话，是通过一个叫做CreateThread的API函数来实现的，它的定义为： HANDLE CreateThread( LPSECURITY_ATTRIBUTES lpThreadAttributes, DWORD dwStackSize, LPTHREAD_START_ROUTINE lpStartAddress, LPVOID lpParameter, DWORD dwCreationFlags, LPDWORD lpThreadId ); 其各参数如它们的名称所说，分别是：线程属性（用于在NT下进行线程的安全属性设置，在9X下无效），堆栈大小， 起始地址，参数，创建标志（用于设置线程创建时的状态），线程ID，最后返回线程Handle。其中的起始地址就是线 程函数的入口，直至线程函数结束，线程也就结束了。
delphi: reference to(匿名方法)
DRD
08-19 1762
正常函数类型的对象需在外部实现，单reference to可以在函数内实现，有子函数的效果。具体代码示例如下： unit Unit6; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs; type   TYDForm = class
Delphi 2009 中的匿名方法(reference to)
javazhuanzai的专栏
02-01 472
====================================================== 注：本文源代码点此下载 ====================================================== #3楼 2008-09-01 17:44 bincom[未注册用户] 看不出来哪些地方需要这样用 回复 引用 #4楼 2008-09-05
Delphi 2009 中的匿名方法(reference to) 研究
live的专栏
08-28 544
 之前我们可以定义方法类型, 然后通过方法类型的变量来使用方法, 譬如: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm)
Delphi语法（四）函数和过程
ForAnnuus的博客
04-18 1724
Delphi语法 第五章 函数和过程 例程
原子操作InterlockedExchange系列
热门推荐
丰空岛主(Vega Prime,Android,LabWindows,ThreeJS,Python,OpenCV）
08-19 1万+
//本内容只在多线程操作下具有意义 1  循环锁 实现循环锁：  可以用InterlockedExChange来实现循环锁的功能，所谓循环锁，就是在线程1中如果要对变量进行操作，要先查看这个变量（或资源）有没有被其它线程用到，如果是，则一直循环，则到其它线程放弃对该变量（或资源）的控制。如果否，直接可以对该变量（或资源）进行操作。  如：  （使用srwlock也是可以实现的，可读性更强。不用...
关于新版Delphi的并发操作及公共变量并发读写
rocklee的专栏
09-29 3720
传统的编译型语言对多线程访问同一公共变量都会先锁定,旧版的Delphi亦如是,如果不先锁定,多半会有地址操作错误之类的运行时提示． 　　但XE的出现让一切都免了,固定内存占用的数据类型(integer,double,long之类)同时读写没事, 即使变长的String类型亦没事!! 除了公共变量, 连对象的属性都一样，下面是测试代码： type TForm1 = class(TForm)
ATOM全局原子
huangxy10的专栏
07-18 2766
一、什么叫原子表和原子函数？ 　　Win32系统中，为了实现信息共享，系统维护了一张全局原子表，用于保存字符串与之对应的标志符的组合。应用程序在原子表中可以放置字符串,并接收一个16位整数值(叫做原子,即atom),它可以用来提取该字符串.放在原子表中的字符串叫做原子的名字; 二、关于原子表 　　系统提供许多原子表.每个原子表用于不同的目的;例如,动态数据
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

专讲冷知识

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值