mystringlistunit.pas: last neu

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