diff options
-rw-r--r-- | Game/Code/Menu/UMenuText.pas | 35 |
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; |