From 6764564ecf62105f87443b08395aaab2e1b7aec6 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Wed, 8 Nov 2017 16:01:38 +0100
Subject: mystringlistunit.pas: last neu

---
 mystringlistunit.pas | 6 ++++++
 1 file changed, 6 insertions(+)

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);
-- 
cgit v1.2.3-70-g09d2