mystringlistunit.pas: stepBack neu

1 files changed, 7 insertions, 0 deletions

diff --git a/mystringlistunit.pas b/mystringlistunit.pas
index b666f81..6526dcb 100644
--- a/mystringlistunit.pas
+++ b/mystringlistunit.pas
@@ -29,6 +29,7 @@ type
     function hatZeile(zeile: string): boolean; // invers zu "grep -c"
     function eof: boolean;
     procedure rewind;
+    procedure stepBack;
     function stillNeed(bez: string): boolean;
     function needInLine(bez: string; lin: longint): boolean;
     procedure insert(index: longint; const s: ansistring); override;
@@ -217,6 +218,12 @@ begin
   line:=0;
 end;
 
+procedure tMyStringlist.stepBack;
+begin
+  dec(line);
+  if line<0 then line:=0;
+end;
+
 function tMyStringlist.stillNeed(bez: string): boolean;
 var
   i:   longint;