diff options
author | Erich Eckner <git@eckner.net> | 2018-02-20 10:37:28 +0100 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2018-02-20 10:37:28 +0100 |
commit | 1382efbb67fa1d3d9b7d008fbcf1ba58ecd8f633 (patch) | |
tree | 60f9f856f4d05cb8130158add25a932d09dd9032 /tools.pas | |
parent | 560518c1f1938f05197dcac2e077d078ecf838f0 (diff) | |
download | Make-1382efbb67fa1d3d9b7d008fbcf1ba58ecd8f633.tar.xz |
tools.pas: tDateienMitDaten.pruefeSortierung neu (wird standardmäßig nicht ausgeführt, da zu langsam)
Diffstat (limited to 'tools.pas')
-rw-r--r-- | tools.pas | 11 |
1 files changed, 11 insertions, 0 deletions
@@ -33,6 +33,7 @@ type function rItem(idx: longint): tDateiMitDatum; inline; procedure wItem(idx: longint; neu: tDateiMitDatum); inline; function rSItem(idx: longint): tDateiMitDatum; inline; + procedure pruefeSortierung; public property items[idx: longint]: tDateiMitDatum read rItem @@ -169,6 +170,16 @@ begin result:=items[sortiert[idx]]; end; +procedure tDateienMitDaten.pruefeSortierung; +var + i: longint; +begin + sortiereNachNamen; + assert(count=length(sortiert),'tDateienMitDaten.pruefeSortierung: length(sortiert) <> count!'); + for i:=1 to count-1 do + assert(vergleicheStrings(sItems[i-1].name,sItems[i].name)<0,'tDateienMitDaten.pruefeSortierung: '''+sItems[i-1].name+'''>='''+sItems[i].name+'''!'); +end; + procedure tDateienMitDaten.mrProper; var i: longint; |