alles schön in Klassen gepackt

1 files changed, 7 insertions, 6 deletions

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