tools.pas: tDateienMitDaten.pruefeSortierung neu (wird standardmäßig nicht ausgeführt, da zu langsam)

1 files changed, 11 insertions, 0 deletions

diff --git a/tools.pas b/tools.pas
index 13e5a88..ffcf199 100644
--- a/tools.pas
+++ b/tools.pas
@@ -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;