diff options
| -rw-r--r-- | mystringlistunit.pas | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/mystringlistunit.pas b/mystringlistunit.pas index 381e5dc..da65e29 100644 --- a/mystringlistunit.pas +++ b/mystringlistunit.pas @@ -43,6 +43,7 @@ type procedure dump(pro: tProtokollant; prefix: string); procedure nichtInSubRoutine(s: string); procedure addWithLineBreaks(s: string); + function last: 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 @@ -645,6 +646,11 @@ begin add(erstesArgument(s,#13,false)); end; +function tMyStringList.last: string; +begin + result:=self[count-1]; +end; + // allgemeine Funktionen ******************************************************* procedure _del(var s: string; p,c: longint); |