diff options
| -rw-r--r-- | mystringlistunit.pas | 9 |
1 files changed, 9 insertions, 0 deletions
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; |