From b972c8d658f4338d2a030cc1beb05f544e1a45cb Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Wed, 11 May 2016 09:26:50 +0200
Subject: mystringlistunit.pas: stepBack neu

---
 mystringlistunit.pas | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'mystringlistunit.pas')

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;
-- 
cgit v1.2.3-70-g09d2