From 1382efbb67fa1d3d9b7d008fbcf1ba58ecd8f633 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 20 Feb 2018 10:37:28 +0100
Subject: tools.pas: tDateienMitDaten.pruefeSortierung neu (wird standardmäßig
 nicht ausgeführt, da zu langsam)
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 tools.pas | 11 +++++++++++
 1 file changed, 11 insertions(+)

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;
-- 
cgit v1.2.3-54-g00ecf