From 8c2e9fadc8ec9e9db98d219b6de966a39fd26b7d Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Sat, 25 Mar 2017 16:23:19 +0100
Subject: mystringlistunit: addWithLineBreaks neu

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

(limited to 'mystringlistunit.pas')

diff --git a/mystringlistunit.pas b/mystringlistunit.pas
index 7d63462..e3c54fe 100644
--- a/mystringlistunit.pas
+++ b/mystringlistunit.pas
@@ -41,6 +41,7 @@ type
     procedure subst(regex,ersatz: string);
     procedure dump(pro: tProtokollant; prefix: string);
     procedure nichtInSubRoutine(s: string);
+    procedure addWithLineBreaks(s: string);
   end;
 
 procedure _del(var s: string; p,c: longint); inline;  // identisch zu delete(s,p,c) -- lediglich um delete innerhalb von tMyStringlist verfügbar zu haben
@@ -611,6 +612,12 @@ begin
   srNoGo.add(s);
 end;
 
+procedure tMyStringList.addWithLineBreaks(s: string);
+begin
+  while s<>'' do
+    add(erstesArgument(s,#13,false));
+end;
+
 // allgemeine Funktionen *******************************************************
 
 procedure _del(var s: string; p,c: longint);
-- 
cgit v1.2.3-70-g09d2