Quellcode durchsuchen

* Added ReplaceStr and ReplaceText functions, for Delphi compatibility

git-svn-id: trunk@21810 -
joost vor 13 Jahren
Ursprung
Commit
025f840dd5
1 geänderte Dateien mit 21 neuen und 0 gelöschten Zeilen
  1. 21 0
      rtl/objpas/strutils.pp

+ 21 - 0
rtl/objpas/strutils.pp

@@ -96,6 +96,13 @@ Function PosEx(const SubStr, S: string): Integer;inline; // Offset: Cardinal = 1
 Function PosEx(c:char; const S: string; Offset: Cardinal): Integer;
 function StringsReplace(const S: string; OldPattern, NewPattern: array of string;  Flags: TReplaceFlags): string;
 
+{ ---------------------------------------------------------------------
+    Delphi compat
+  ---------------------------------------------------------------------}
+
+Function ReplaceStr(const AText, AFromText, AToText: string): string;inline;
+Function ReplaceText(const AText, AFromText, AToText: string): string;inline;
+
 { ---------------------------------------------------------------------
     Soundex Functions.
   ---------------------------------------------------------------------}
@@ -744,6 +751,20 @@ begin
   Result := ResStr;
 end;
 
+{ ---------------------------------------------------------------------
+    Delphi compat
+  ---------------------------------------------------------------------}
+
+Function ReplaceStr(const AText, AFromText, AToText: string): string;inline;
+begin
+  AnsiReplaceStr(AText, AFromText, AToText);
+end;
+
+Function ReplaceText(const AText, AFromText, AToText: string): string;inline;
+begin
+  AnsiReplaceText(AText, AFromText, AToText);
+end;
+
 { ---------------------------------------------------------------------
     Soundex Functions.
   ---------------------------------------------------------------------}