finally removed special version of the function PosEx for darwin. Not needed

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1131 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 0 insertions, 35 deletions

diff --git a/Game/Code/Menu/UMenuText.pas b/Game/Code/Menu/UMenuText.pas
index 2955263a..a9703bf3 100644
--- a/Game/Code/Menu/UMenuText.pas
+++ b/Game/Code/Menu/UMenuText.pas
@@ -64,41 +64,6 @@ implementation
 uses UGraphic,
      StrUtils;
 
-{$IFDEF DARWIN}	 
-{ Why is this needed? Is PosEx from StrUtils different?
-function PosEx(const SubStr, S: string; Offset: Cardinal = 1): integer;
-var
-  I, X: integer;
-  Len, LenSubStr: integer;
-begin
-  if Offset = 1 then
-    Result := Pos(SubStr, S)
-  else
-  begin
-    I := Offset;
-    LenSubStr := Length(SubStr);
-    Len := Length(S) - LenSubStr + 1;
-    while I <= Len do
-    begin
-      if S[I] = SubStr[1] then
-      begin
-        X := 1;
-        while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do
-          Inc(X);
-        if (X = LenSubStr) then
-        begin
-          Result := I;
-          exit;
-        end;
-      end;
-      Inc(I);
-    end;
-    Result := 0;
-  end;
-end;
-}
-{$ENDIF}	 
-
 procedure TText.SetSelect(Value: boolean);
 begin
   SelectBool := Value;