diff options
| -rw-r--r-- | mystringlistunit.pas | 7 |
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); |