From e2bc0187b7d24e33191e286048d23a677810a412 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 24 May 2008 08:37:23 +0000
Subject: 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
---
 Game/Code/Menu/UMenuText.pas | 35 -----------------------------------
 1 file changed, 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;
-- 
cgit v1.2.3