diff options
Diffstat (limited to 'tools.pas')
-rw-r--r-- | tools.pas | 13 |
1 files changed, 7 insertions, 6 deletions
@@ -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 |