StringsHelper: +func. LastLine

jackdp · Aug 21, 2020 · 27f5357 · 27f5357
1 parent 3c1437c
commit 27f5357
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/Base/JPL.TStringsHelper.pas b/Base/JPL.TStringsHelper.pas
@@ -10,6 +10,8 @@ interface
 
 type
 
+  { TStringsHelper }
+
   TStringsHelper = class helper for TStrings
     procedure TrimAllLines;
     procedure RemoveEmptyLines;
@@ -18,6 +20,8 @@   TStringsHelper = class helper for TStrings
     // Warning! Use only for lists with a relatively small number of lines (up to several thousand)
     // With larger lists it is very slow!
     procedure RemoveDuplicatesWithoutSorting(IgnoreCase: Boolean = False);
+
+    function LastLine: string;
   end;
 
 
@@ -124,5 +128,12 @@ procedure TStringsHelper.RemoveDuplicatesWithoutSorting(IgnoreCase: Boolean);
   end;
 end;
 
+function TStringsHelper.LastLine: string;
+begin
+  Result := '';
+  if Count = 0 then Exit;
+  Result := Strings[Count - 1];
+end;
+
 
 end.