Mega Code Archive
Replace occurences of a substring in a string
<![CDATA[
{
Description:
StringReplace replaces occurrences of the substring specified
by OldPattern with the substring specified by NewPattern.
Beschreibung:
Mit StringReplace ersetzen Sie in dem angegebenen String den im
Parameter OldPattern festgelegten Sub-String mit dem im Parameter
NewPattern übergebenen neuen Sub-String.
type
TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
function StringReplace(const S, OldPattern, NewPattern: string;
Flags: TReplaceFlags): string;
- rfReplaceAll :
If the Flags parameter does not include rfReplaceAll, StringReplace only
replaces the first occurrence of OldPattern in S. Otherwise, all instances
of OldPattern are replaced by NewPattern.
Wenn im Parameter Flags nicht rfReplaceAll enthalten ist, wird nur das erste
Vorkommen von OldPattern im String S ersetzt.
Andernfalls werden alle Instanzen von OldPattern durch NewPattern ersetzt.
- rfIgnoreCase :
If the Flags parameter includes rfIgnoreCase,
The comparison operation is case insensitive.
Wenn der Parameter Flags rfIgnoreCase enthält,
wird die Groß-/Kleinschreibung nicht berücksichtigt.
}
procedure TForm1.Button1Click(Sender: TObject);
var
sNewText: string;
begin
// Replace the first Word "FOX" with "tiger".
// Ersetzt das erste Wort "FOX" durch "tiger".
sNewText := StringReplace('The quick brown fox jumps over the lazy fox.',
'FOX', 'tiger', [rfIgnoreCase]);
ShowMessage(sNewText);
// Remove all Spaces in a string.
// Alle Leerzeichen in einem String ersetzen.
sNewText := StringReplace('This is a Text with Spaces', ' ', '', [rfReplaceAll]);
ShowMessage(sNewText);
// Replace all "True" in a Memo with "False".
// Alle Wörter "True" mit "False" ersetzen in einem Memo.
Memo1.Text := StringReplace(Memo1.Text, 'True', 'False', [rfReplaceAll, rfIgnoreCase]]);
end;
{******************************************************}
{2.}
{
StringReplace is not available for D3/D2/D1 users.
Use the slightly modified StringReplace below.
(from sysutils.pas but without ANSI support)
}
type
TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
function StringReplace(const S, OldPattern, NewPattern: string;
Flags: TReplaceFlags): string;
var
SearchStr, Patt, NewStr: string;
Offset: Integer;
begin
if rfIgnoreCase in Flags then
begin
SearchStr := UpperCase(S);
Patt := UpperCase(OldPattern);
end
else
begin
SearchStr := S;
Patt := OldPattern;
end;
NewStr := S;
Result := '';
while SearchStr <> '' do
begin
Offset := Pos(Patt, SearchStr);
if Offset = 0 then
begin
Result := Result + NewStr;
Break;
end;
Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern;
NewStr := Copy(NewStr, Offset + Length(OldPattern), MaxInt);
if not (rfReplaceAll in Flags) then
begin
Result := Result + NewStr;
Break;
end;
SearchStr := Copy(SearchStr, Offset + Length(Patt), MaxInt);
end;
end;
{******************************************************}
{3.}
{
In S alle OldSubStr mit NewSubStr ersetzen.
Replace all OldSubStr in S with NewSubStr.
}
function ReplaceStr(s, OldSubStr, NewSubStr: string): string;
var
i: integer;
OldSubLen, TotalLength: integer;
begin
Result := '';
if s <> '' then
begin
OldSubLen := Length(OldSubStr); // für die Performance - for performance
TotalLength := Length(s);
i := 1;
while i <= TotalLength do
begin
if (i <= TotalLength - OldSubLen) and (Copy(s, i, OldSubLen) = OldSubStr) then
begin
Result := Result + NewSubStr;
Inc(i, OldSubLen);
end
else
begin
Result := Result + s[i];
Inc(i);
end;
end;
end;
end;
]]>