Unit msearrayutils

Description

Uses

Classes, Interfaces, Objects and Records

Functions and Procedures

Types

Constants

Variables

Description

Overview

Functions and Procedures

procedure deleteitem(var value; const typeinfo: pdynarraytypeinfo; const aindex: integer); overload;

procedure arrayaddref(var dynamicarray);

procedure arraydecref(var dynamicarray);

procedure allocuninitedarray(count,itemsize: integer; out dynamicarray);

procedure reallocuninitedarray(count,itemsize: integer; var dynamicarray);

procedure freeuninitedarray(var dynamicarray);

function arrayrefcount(var dynamicarray): sizeint;

function arrayminhigh(arrays: array of pointer): integer;

function dynarrayelesize(const typinfo: pdynarraytypeinfo): sizeint; inline;

function dynarrayhigh(const value: pointer): sizeint; inline;

function dynarraylength(const value: pointer): sizeint; inline;

function incrementarraylength(var value: pointer; typeinfo: pdynarraytypeinfo; increment: integer = 1): sizeint; overload;

function additem(var value; const typeinfo: pdynarraytypeinfo; var count: integer): boolean; overload;

function additemindex(var value; const typeinfo: pdynarraytypeinfo; var count: integer): integer; overload;

function additempo(var value; const typeinfo: pdynarraytypeinfo; var count: integer): pointer; overload;

function firstitem(const source: stringarty): string; overload;

function firstitem(const source: msestringarty): msestring; overload;

function additem(var dest: stringarty; const value: string; var count: integer): boolean; overload;

function additem(var dest: stringararty; const value: stringarty; var count: integer): boolean; overload;

function additem(var dest: msestringarty; const value: msestring; var count: integer): boolean; overload;

function additem(var dest: msestringararty; const value: msestringarty; var count: integer): boolean; overload;

function additem(var dest: lstringarty; const value: lstringty; var count: integer): boolean; overload;

function additem(var dest: lmsestringarty; const value: lmsestringty; var count: integer): boolean; overload;

function additem(var dest: int16arty; const value: int16; var count: integer): boolean; overload;

function additem(var dest: integerarty; const value: integer; var count: integer): boolean; overload;

function additem(var dest: longwordarty; const value: longword; var count: integer): boolean; overload;

function additem(var dest: realarty; const value: real; var count: integer): boolean; overload;

function additem(var dest: pointerarty; const value: pointer; var count: integer): boolean; overload;

function addpointeritem(var dest: pointerarty; const value: pointer; var count: integer): boolean;

function additem(var dest: winidarty; const value: winidty; var count: integer): boolean; overload;

procedure additem(var dest: stringarty; const value: string); overload;

procedure additem(var dest: msestringarty; const value: msestring); overload;

procedure additem(var dest: doublemsestringarty; const valuea,valueb: msestring); overload;

procedure additem(var dest: msestringararty; const value: msestringarty); overload;

procedure additem(var dest: int16arty; const value: int16); overload;

procedure additem(var dest: integerarty; const value: integer); overload;

procedure additem(var dest: int64arty; const value: int64); overload;

procedure additem(var dest: card64arty; const value: card64); overload;

procedure additem(var dest: longwordarty; const value: longword); overload;

procedure additem(var dest: longboolarty; const value: longbool); overload;

procedure additem(var dest: booleanarty; const value: boolean); overload;

procedure additem(var dest: realarty; const value: real); overload;

procedure additem(var dest: pointerarty; const value: pointer); overload;

procedure additem(var dest: winidarty; const value: winidty); overload;

procedure deleteitem(var dest: stringarty; index: integer); overload;

procedure deleteitem(var dest: msestringarty; index: integer); overload;

procedure deleteitem(var dest: integerarty; index: integer); overload;

procedure deleteitem(var dest: int64arty; index: integer); overload;

procedure deleteitem(var dest: card64arty; index: integer); overload;

procedure deleteitem(var dest: booleanarty; index: integer); overload;

procedure deleteitem(var dest: realarty; index: integer); overload;

procedure deleteitem(var dest: complexarty; index: integer); overload;

procedure deleteitem(var dest: pointerarty; index: integer); overload;

procedure deleteitem(var dest: winidarty; index: integer); overload;

procedure insertitem(var dest: integerarty; index: integer; value: integer); overload;

procedure insertitem(var dest: int64arty; index: integer; value: int64); overload;

procedure insertitem(var dest: booleanarty; index: integer; value: boolean); overload;

procedure insertitem(var dest: longwordarty; index: integer; value: longword); overload;

procedure insertitem(var dest: realarty; index: integer; value: realty); overload;

procedure insertitem(var dest: complexarty; index: integer; value: complexty); overload;

procedure insertitem(var dest: pointerarty; index: integer; value: pointer); overload;

procedure insertitem(var dest: winidarty; index: integer; value: winidty); overload;

procedure insertitem(var dest: stringarty; index: integer; value: string); overload;

procedure insertitem(var dest: msestringarty; index: integer; value: msestring); overload;

procedure removeitems(var dest: pointerarty; const aitem: pointer);

function removeitem(var dest: pointerarty; const aitem: pointer): integer; overload;

function finditem(const ar: pointerarty; const aitem: pointer): integer; overload;

procedure moveitem(var dest; const sourceindex: integer; destindex: integer; const itemsize: integer); overload;

procedure moveitem(var dest: pointerarty; const sourceindex: integer; destindex: integer); overload;

function removeitem(var dest: stringarty; const aitem: string): integer; overload;

function finditem(const ar: stringarty; const aitem: string): integer; overload;

procedure moveitem(var dest: stringarty; const sourceindex: integer; destindex: integer); overload;

function removeitem(var dest: msestringarty; const aitem: msestring): integer; overload;

function finditem(const ar: msestringarty; const aitem: msestring): integer; overload;

procedure moveitem(var dest: msestringarty; const sourceindex: integer; destindex: integer); overload;

function removeitem(var dest: integerarty; const aitem: integer): integer; overload;

function finditem(const ar: integerarty; const aitem: integer): integer; overload;

procedure moveitem(var dest: integerarty; const sourceindex: integer; destindex: integer); overload;

function adduniqueitem(var dest: pointerarty; const value: pointer): integer;

function addnewitem(var dest: pointerarty; const value: pointer): integer;

function isequalarray(const a: integerarty; const b: integerarty): boolean;

procedure minmax(const ar: realarty; out minval,maxval: realty);

function stackarfunc(const ar1,ar2: integerarty): integerarty;

procedure stackarray(const source: stringarty; var dest: stringarty); overload;

procedure stackarray(const source: msestringarty; var dest: msestringarty); overload;

procedure stackarray(const source: integerarty; var dest: integerarty); overload;

procedure stackarray(const source: longwordarty; var dest: longwordarty); overload;

procedure stackarray(const source: pointerarty; var dest: pointerarty); overload;

procedure stackarray(const source: winidarty; var dest: winidarty); overload;

procedure stackarray(const source: realarty; var dest: realarty); overload;

procedure insertarray(const source: integerarty; var dest: integerarty); overload;

procedure insertarray(const source: realarty; var dest: realarty); overload;

function reversearray(const source: msestringarty): msestringarty; overload;

function reversearray(const source: integerarty): integerarty; overload;

function reversearray(const source: pointerarty): pointerarty; overload;

procedure removearrayduplicates(var value: pointerarty);

function packarray(source: pointerarty): pointerarty; overload;

function packarray(source: msestringarty): msestringarty; overload;

procedure checkarrayindex(const value; const index: integer);

procedure checkarrayindexcount(const count: int32; const index: int32);

procedure splitcomplexar(const acomplex: complexarty; out re,im: realarty);

function comparepointer(const l,r): integer;

function compareinteger(const l,r): integer;

function compareint64(const l,r): integer;

function comparecard64(const l,r): integer;

function comparerealty(const l,r): integer;

function compareasciistring(const l,r): integer;

function compareiasciistring(const l,r): integer;

function compareansistring(const l,r): integer;

function compareiansistring(const l,r): integer;

function comparemsestring(const l,r): integer;

function compareimsestring(const l,r): integer;

function findarrayvalue(const item; const items; const itemsize: integer; const count: integer; const compare: arraysortcomparety; out foundindex: integer): boolean; overload;

function findarrayvalue(const item; const items; const itemsize: integer; const index: integerarty; const compare: arraysortcomparety; out foundindex: integer): boolean; overload;

procedure quicksortpointer(const adata: ppointer; const alength: int32; const acompare: pointercomparefuncty);

procedure mergesortarray(var asortlist; const aitemsize,alength: integer; const acompare: arraysortcomparety; out aindexlist: integerarty; const order: boolean);

procedure mergesort(var adata: pointerarty; const acount: integer; const compare: pointercomparemethodty); overload;

procedure mergesort(var adata: pointer; const aitemsize,acount: integer; const acompare: sortcomparemethodty); overload;

procedure mergesort(const adata: pointer; const aitemsize,acount: integer; const acompare: sortcomparemethodty; out aindexlist: integerarty); overload;

procedure mergesort(const adata: pointer; const asize,acount: integer; const acompare: sortcomparemethodty; out aindexlist: integerarty; var refindex: integer; out moved: boolean); overload;

procedure mergesort(const acount: integer; const acompare: indexsortcomparemethodty; out aindexlist: integerarty); overload;

procedure mergesort(const acount: integer; const acompare: indexsortcomparemethodty; out aindexlist: integerarty; var refindex: integer; out moved: boolean); overload;

procedure mergesortoffset(const adata: pointer; const asize,acount: integer; const acompare: sortcomparemethodty; out aoffsetlist: integerarty); overload;

procedure mergesortpointer(const adata: pointer; const asize,acount: integer; const acompare: sortcomparemethodty; out apointerlist: pointerarty); overload;

function findarrayitem(const item; const ar; const itemsize: integer; const compare: arraysortcomparety; out foundindex: integer): boolean; overload;

function findarrayitem(const item; const ar: pointerarty; const compare: sortcomparemethodty; out foundindex: integer): boolean; overload;

procedure sortarray(var sortlist; const itemsize: integer; const compare: arraysortcomparety); overload;

procedure sortarray(var sortlist; const itemsize: integer; const compare: arraysortcomparety; out indexlist: integerarty); overload;

procedure sortarray(var dest: pointerarty; const compare: arraysortcomparety); overload;

procedure sortarray(var dest: pointerarty; const compare: arraysortcomparety; out indexlist: integerarty); overload;

procedure sortarray(var dest: pointerarty); overload;

procedure sortarray(var dest: integerarty); overload;

procedure sortarray(var dest: integerarty; out indexlist: integerarty); overload;

procedure sortarray(var dest: longwordarty); overload;

procedure sortarray(var dest: longwordarty; out indexlist: integerarty); overload;

procedure sortarray(var dest: realarty); overload;

procedure sortarray(var dest: realarty; out indexlist: integerarty); overload;

procedure sortarray(var dest: msestringarty; const compare: arraysortcomparety); overload;

procedure sortarray(var dest: msestringarty; const compare: arraysortcomparety; out indexlist: integerarty); overload;

procedure sortarray(var dest: stringarty; const compare: arraysortcomparety); overload;

procedure sortarray(var dest: stringarty; const compare: arraysortcomparety; out indexlist: integerarty); overload;

procedure sortarray(var dest: msestringarty; const sortmode: stringsortmodety = sms_up); overload;

procedure sortarray(var dest: msestringarty; const sortmode: stringsortmodety; out indexlist: integerarty); overload;

procedure sortarray(var dest: stringarty; const sortmode: stringsortmodety = sms_upascii); overload;

procedure sortarray(var dest: stringarty; const sortmode: stringsortmodety; out indexlist: integerarty); overload;

procedure orderarray(const sourceorderlist: integerarty; var sortlist; size: integer); overload;

procedure orderarray(const sourceorderlist: integerarty; var sortlist: pointerarty); overload;

procedure orderarray(const sourceorderlist: integerarty; var sortlist: integerarty); overload;

procedure orderarray(const sourceorderlist: integerarty; var sortlist: msestringarty); overload;

procedure orderarray(const sourceorderlist: integerarty; var sortlist: msestringararty); overload;

procedure orderarray(const sourceorderlist: integerarty; var sortlist: stringarty); overload;

procedure reorderarray(const destorderlist: integerarty; var sortlist; size: integer); overload;

procedure reorderarray(const destorderlist: integerarty; var sortlist: pointerarty); overload;

procedure reorderarray(const destorderlist: integerarty; var sortlist: integerarty); overload;

procedure reorderarray(const destorderlist: integerarty; var sortlist: msestringarty); overload;

procedure reorderarray(const destorderlist: integerarty; var sortlist: stringarty); overload;

function cmparray(const a,b: msestringarty): boolean;

function opentodynarraym(const items: array of msestring): msestringarty;

function opentodynarrays(const items: array of string): stringarty;

function opentodynarrayi(const items: array of integer): integerarty;

function opentodynarrayr(const items: array of realty): realarty;

function opentodynarraybo(const items: array of boolean): booleanarty;

function opentodynarrayby(const items: array of byte): bytearty;

function dynarraytovararray(const avalue: int64arty): tvarrecarty;

procedure copytore(const source: realarty; var dest: complexarty);

procedure copytoim(const source: realarty; var dest: complexarty);

Types

stringsortmodety = (...);

pointercomparemethodty = function(l,r:pointer): integer of object;

pointercomparefuncty = function(l,r:pointer): integer;

arraysortcomparety = function (const l,r): integer;

sortcomparemethodty = function (const l,r): integer of object;

sortcomparemethodarty = array of sortcomparemethodty;

indexsortcomparemethodty = function (const l,r: integer): integer of object;

tvarrecarty = array of tvarrec;

Constants

arrayminlenghtstep = 32;

Description

Functions and Procedures

procedure deleteitem(var value; const typeinfo: pdynarraytypeinfo; const aindex: integer); overload;

procedure arrayaddref(var dynamicarray);

procedure arraydecref(var dynamicarray);

procedure allocuninitedarray(count,itemsize: integer; out dynamicarray);

procedure reallocuninitedarray(count,itemsize: integer; var dynamicarray);

procedure freeuninitedarray(var dynamicarray);

function arrayrefcount(var dynamicarray): sizeint;

function arrayminhigh(arrays: array of pointer): integer;

function dynarrayelesize(const typinfo: pdynarraytypeinfo): sizeint; inline;

function dynarrayhigh(const value: pointer): sizeint; inline;

function dynarraylength(const value: pointer): sizeint; inline;

function incrementarraylength(var value: pointer; typeinfo: pdynarraytypeinfo; increment: integer = 1): sizeint; overload;