From 394e27efc7906ec40f960d23095dc5aebee84fd6 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 10 May 2016 11:31:40 +0200
Subject: alles schön in Klassen gepackt
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 tools.pas | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'tools.pas')

diff --git a/tools.pas b/tools.pas
index 3d7c895..0767b25 100644
--- a/tools.pas
+++ b/tools.pas
@@ -20,11 +20,11 @@ type
   end;
   tDateienMitDaten = array of tDateiMitDatum;
 
-function min(a1,a2: tAktualitaet): tAktualitaet; overload;
-function max(a1,a2: tAktualitaet): tAktualitaet; overload;
+function min(a1,a2: tAktualitaet): tAktualitaet; inline; overload;
+function max(a1,a2: tAktualitaet): tAktualitaet; inline; overload;
 function anzCs(c: char; s: string): longint;
 function notQuotedPos(was,worin: string): longint;
-function unescapedpos(was,worin: string): integer;
+function unescapedpos(was,worin: string): longint;
 procedure testeObBefehlLokal(bef, ordner: string; lokTest: tRegExpr);
 function extrahiereAlleDateien(woraus: string): tMyStringList;
 function unescape(s: string): string;
@@ -79,7 +79,7 @@ begin
   until false;
 end;
 
-function unescapedpos(was,worin: string): integer;
+function unescapedpos(was,worin: string): longint;
 var
   ebene: longint;
 begin
@@ -218,8 +218,9 @@ begin
 end;
 
 function escape(s,toe: string; ec: char): string;
-var i,j: longint;
-    b:   boolean;
+var
+  i,j: longint;
+  b:   boolean;
 begin
   result:='';
   for i:=1 to length(s) do begin
-- 
cgit v1.2.3-54-g00ecf