mystringlistunit: addWithLineBreaks neu

1 files changed, 7 insertions, 0 deletions

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);