From 5a30fe007e3e3e3beccefc377ed7fb5c1aaed4dd Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Thu, 10 Dec 2015 15:23:29 +0100
Subject: belegterSpeicher in systemunit.pas geringfügig beschleunigt
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 systemunit.pas | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/systemunit.pas b/systemunit.pas
index 281df6c..de0e699 100644
--- a/systemunit.pas
+++ b/systemunit.pas
@@ -89,12 +89,8 @@ begin
  reset(f);
  while not eof(f) do begin
    readln(f,s);
-   if (leftStr(s,4)='Rss:') and (rightStr(s,3)=' kB') then begin
-     delete(s,1,4);
-     delete(s,length(s)-2,3);
-     s:=trim(s);
-     result:=result+strtoint(s);
-   end;
+   if (leftStr(s,4)='Rss:') and (rightStr(s,3)=' kB') then
+     result:=result+strtoint(trim(copy(s,5,length(s)-4-3)));
  end;
  closefile(f);
 end;
-- 
cgit v1.2.3-70-g09d2