数组去重并排序，适用文本型，整数型，小数型，长整数...

zxxiaopi

delphi编译出来的dll体积确实比c#大多了，好处是不依赖.net ArrayUtils.rar (213.09 KB, 下载次数: 36)

2024-10-2 15:59 上传

点击文件名下载附件
下载积分: 精币 -2 枚

[Delphi] 纯文本查看 复制代码

library ArrayUtils;
 { Reduce EXE size by disabling as much of RTTI as possible Delphi}

{$IF CompilerVersion >= 21.0}

{$WEAKLINKRTTI ON}

{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}

{$IFEND}
uses
  System.SysUtils,
  System.Variants,
  System.Generics.Collections,
  System.Generics.Defaults;

{$R *.res}

type
  TArrayType = (atInteger, atFloat, atString);

function CompareValue(A, B: Integer): Integer; overload;
begin
  Result := A - B;
end;

function CompareValue(A, B: Double): Integer; overload;
begin
  if A < B then
    Result := -1
  else if A > B then
    Result := 1
  else
    Result := 0;
end;

function GetArrayType(const Arr: OleVariant): TArrayType;
var
  VType: TVarType;
begin
  VType := VarType(Arr[VarArrayLowBound(Arr, 1)]);
  case VType of
    varByte, varShortInt, varSmallInt, varInteger, varInt64: Result := atInteger;
    varSingle, varDouble, varCurrency: Result := atFloat;
    else Result := atString;
  end;
end;

function CompareVariants(const Left, Right: Variant; ArrType: TArrayType; IsAscending: Boolean): Integer;
begin
  case ArrType of
    atInteger:
      Result := CompareValue(Integer(Left), Integer(Right));
    atFloat:
      Result := CompareValue(Double(Left), Double(Right));
    atString:
      Result := AnsiCompareStr(VarToStr(Left), VarToStr(Right));
    else
      Result := 0;
  end;

  if not IsAscending then
    Result := -Result;
end;

function ProcessArray(const InputArr: OleVariant; var OutputArr: OleVariant; SortOrder: Integer): WordBool; stdcall;
var
  List: TList<Variant>;
  I: Integer;
  ArrType: TArrayType;
  IsAscending: Boolean;
begin
  Result := False;
  if VarIsNull(InputArr) or VarIsEmpty(InputArr) then
    Exit;

  IsAscending := SortOrder = 1;

  List := TList<Variant>.Create;
  try
    for I := VarArrayLowBound(InputArr, 1) to VarArrayHighBound(InputArr, 1) do
      if List.IndexOf(InputArr[I]) = -1 then
        List.Add(InputArr[I]);

    ArrType := GetArrayType(InputArr);

    List.Sort(TComparer<Variant>.Construct(
      function(const Left, Right: Variant): Integer
      begin
        Result := CompareVariants(Left, Right, ArrType, IsAscending);
      end));

    OutputArr := VarArrayCreate([0, List.Count - 1], varVariant);
    for I := 0 to List.Count - 1 do
      OutputArr[I] := List[I];

    Result := True;
  finally
    List.Free;
  end;
end;

exports
  ProcessArray;

begin
end.

  

DLL命令名	返回值类型	公开	备 注
ProcessArray	逻辑型		适用文本型，整数型，小数型，长整数型，双精度小数型等
DLL库文件名:
ArrayUtils.dll
在DLL库中对应命令名:
ProcessArray
参数名	类 型	传址	数组	备 注
InputArr	变体型			输入数组
OutputArr	变体型			输出数组
SortOrder	整数型			1 表示升序，0 表示降序

.版本 2<br /> <br /> .DLL命令 ProcessArray, 逻辑型, "ArrayUtils.dll", "ProcessArray", 公开, 适用文本型，整数型，小数型，长整数型，双精度小数型等<br />     .参数 InputArr, 变体型, , 输入数组<br />     .参数 OutputArr, 变体型, , 输出数组<br />     .参数 SortOrder, 整数型, , 1 表示升序，0 表示降序

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
输入数组	变体型
输出数组	变体型
排序顺序	整数型
I	整数型
a	小数型		0
b	文本型		0

a ＝ { 1, 3, 2, 5, 2, 4, 3, 0.2, 0.8, 0.2 }
b ＝ { “我们”, “women”, “121212”, “我们”, “国庆快乐 ” }
输入数组.赋值 (b, )
计次循环首 (输入数组.取数组成员数 (), I)
调试输出 (输入数组.取文本 (I))
计次循环尾 ()
调试输出 (ProcessArray (输入数组, 输出数组, 1))
计次循环首 (输出数组.取数组成员数 (), I)
调试输出 (输出数组.取文本 (I))
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 输入数组, 变体型<br /> .局部变量 输出数组, 变体型<br /> .局部变量 排序顺序, 整数型<br /> .局部变量 I, 整数型<br /> .局部变量 a, 小数型, , "0"<br /> .局部变量 b, 文本型, , "0"<br /> <br /> <br /> a ＝ { 1, 3, 2, 5, 2, 4, 3, 0.2, 0.8, 0.2 }<br /> b ＝ { “我们”, “women”, “121212”, “我们”, “国庆快乐 ” }<br /> 输入数组.赋值 (b, )<br /> .计次循环首 (输入数组.取数组成员数 (), I)<br />     调试输出 (输入数组.取文本 (I))<br /> .计次循环尾 ()<br /> <br /> 调试输出 (ProcessArray (输入数组, 输出数组, 1))<br /> .计次循环首 (输出数组.取数组成员数 (), I)<br />     调试输出 (输出数组.取文本 (I))<br /> .计次循环尾 ()

wlm19820

感谢分享，支持开源！！！

熊不熊

感谢分享，很给力！~

胖子葛格

感谢大神分享~！

胖子葛格

感谢大神分享~！

edwardar

感谢分享

mning

感谢分享

光影魔术

感谢分享源码

chis777780

感谢分享，很给力！~

please

感谢分享，支持开源！！！