lowlevelunit.pas: unterVerzeichnisRegex entfernt

1 files changed, 0 insertions, 35 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index 2bf7d91..1ab6851 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -151,7 +151,6 @@ procedure readAnAndorString(var f: file; out s: string; const len: int64; checkE
 procedure readAnAndorString(var f: file; out s: string; checkEOL: boolean); overload;
 
 procedure splitStrToInt(s: string; out ia: tLongintArray);
-function unterVerzeichnisRegex(dateien: array of const): string;
 
 var
   base64Chars: array[0..63] of char;
@@ -1281,40 +1280,6 @@ begin
   end;
 end;
 
-function unterVerzeichnisRegex(dateien: array of const): string;
-var
-  i: longint;
-  s: string;
-begin
-  result:='';
-  for i:=0 to length(dateien)-1 do begin
-    case dateien[i].vType of
-      vtChar:
-        s:=dateien[i].vChar;
-      vtWideChar:
-        s:=string(dateien[i].vWideChar);
-      vtString:
-        s:=string(dateien[i].vString);
-      vtPChar:
-        s:=dateien[i].vPChar;
-      vtPWideChar:
-        s:=dateien[i].vPWideChar;
-      vtAnsiString:
-        s:=string(dateien[i].vAnsiString);
-      vtWideString:
-        s:=string(dateien[i].vWideString);
-      else
-        fehler('unterVerzeichnisRegex Argument Nummer '+intToStr(i)+' ist kein String!');
-    end{of case};
-    s:=extractFilePath(s);
-    while rightStr(s,1)='/' do
-      delete(s,length(s),1);
-    result:=result+'|'+s;
-  end;
-  delete(result,1,1);
-  result:='('+result+')(/|$)';
-end;
-
 var
   b: byte;