aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Game/Code/Menu/UMenuText.pas35
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;