Przeglądaj źródła

* Fix Contains signaturen remove double

Michaël Van Canneyt 3 dni temu
rodzic
commit
cab717ae28
1 zmienionych plików z 1 dodań i 6 usunięć
  1. 1 6
      rtl/objpas/sysutils/syshelps.inc

+ 1 - 6
rtl/objpas/sysutils/syshelps.inc

@@ -419,12 +419,7 @@ begin
     end;
     end;
 end;
 end;
 
 
-function TStringHelper.Contains(const AValue: TStringType): Boolean; overload;
-begin
-    Result:=Pos(AValue,Self)>0;
-end;
-
-function TStringHelper.Contains(const AValue: TStringType; IgnoreCase: Boolean): Boolean; overload;
+function TStringHelper.Contains(const AValue: TStringType; IgnoreCase: Boolean = False): Boolean; 
 begin
 begin
   if IgnoreCase then
   if IgnoreCase then
     Result:=Pos(LowerCase(AValue),LowerCase(Self))>0
     Result:=Pos(LowerCase(AValue),LowerCase(Self))>0