aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authork-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-05-24 08:37:23 +0000
committerk-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-05-24 08:37:23 +0000
commite2bc0187b7d24e33191e286048d23a677810a412 (patch)
treecf7184cab1a094b124e2a52e852e744427fba199
parent67e09f05a666cceab6fcaadf3b23d23acd423831 (diff)
downloadusdx-e2bc0187b7d24e33191e286048d23a677810a412.tar.gz
usdx-e2bc0187b7d24e33191e286048d23a677810a412.tar.xz
usdx-e2bc0187b7d24e33191e286048d23a677810a412.zip
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
-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;