1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure Str_Replace(var str: String; alt, neu: String);
var
   posi,
   i    : Integer;
   hstr  : String;
begin
   posi := Pos(alt, str);
   if posi > 0 then
   begin
     hstr := '';
     for i := 1 to posi -1 do
        hstr := hstr +str[i];
      hstr := hstr +neu;
      for i := posi +length(alt) to length(str) do
        hstr := hstr +str[i];
      str := hstr;
   end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure Str_Replace(var str: String; alt, neu: String);
var
   posi,
   i      : Integer;
   hstr   : String;
begin
   repeat
     posi := Pos(alt, str);
     if posi > 0 then
     begin
        hstr := '';
        for i := 1 to posi -1 do
           hstr := hstr +str[i];
        hstr := hstr +neu;
        for i := posi +length(alt) to length(str) do
           hstr := hstr +str[i];
        str := hstr;
     end;
   until posi = 0;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

StringReplace gibt einen String mit ersetzten Sub-Strings zurück.

Unit

SysUtils

Kategorie

String-Verarbeitung

type
  TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

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. StringReplace nimmt an, daß der String Multibyte-Zeichen enthalten kann.

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.

Wenn der Parameter Flags rfIgnoreCase enthält, wird die Groß-/Kleinschreibung nicht berücksichtigt.