From f3b592b228a1d0c40fafc1347c8254f35cf56a79 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Fri, 20 May 2016 10:20:36 +0200
Subject: append kann nun auch tMyStringList anhängen in mystringlistunit.pas
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/mystringlistunit.pas b/mystringlistunit.pas
index 31f9af5..e01abff 100644
--- a/mystringlistunit.pas
+++ b/mystringlistunit.pas
@@ -27,6 +27,7 @@ type
     function metaReadln(out s: string; subRoutine: boolean): boolean; inline;
     procedure grep(expr: string; invert: boolean = false);
     function grepFirst(expr: string): string;
+    procedure append(sl: tMyStringList); overload;
     function hatZeile(zeile: string): boolean; // invers zu "grep -c"
     function eof: boolean;
     procedure rewind;
@@ -215,6 +216,14 @@ begin
   result:='';
 end;
 
+procedure tMyStringlist.append(sl: tMyStringList);
+var
+  i: longint;
+begin
+  for i:=0 to sl.count-1 do
+    add(sl[i]);
+end;
+
 function tMyStringlist.hatZeile(zeile: string): boolean;
 var
   re: tRegExpr;
-- 
cgit v1.2.3-70-g09d2