StringReplace/de

From Free Pascal wiki
Revision as of 15:44, 8 April 2020 by Mathias (talk | contribs) (→‎Anwendungsbeispiele)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search

Deutsch (de)

StringReplace

Flags:

Flag Wert
rfReplaceAll 0
rfIgnoreCase 1

Syntax:

 Neuerstring := StringReplace(Originalstring,
                              String oder Zeichen das ersetzt werden soll,
                              String oder Zeichen, das stattdessen eingefügt werden soll,
                              Ein Flag oder beide Flags in eckigen Klammern);

Anwendungsbeispiele

Beispiel 1

Entfernt alle Steuerzeichen aus einem String:

function funAlleSteuerzeichenEntfernen(strUebergabe: string): string;
var
  wrdI: word;

begin

  Result := strUebergabe;

  for wrdI := 0 to 31 do
    Result := StringReplace(Result, Chr(wrdI), '', [rfReplaceAll]);

end;

Beispiel 2

Entfernt alle Steuerzeichen außer dem Steuerzeichen Tab aus einem String:

function funAlleSteuerzeichenAusserTabEntfernen(strUebergabe: string): string;
var
  wrdI: word;

begin

  Result := strUebergabe;

  for wrdI := 0 to 31 do
  begin
    if wrdI = 9 then // filtert auf das Tabzeichen #9
      continue; // springt direkt zum Schleifenkopf
    Result := StringReplace(Result, Chr(wrdI), '', [rfReplaceAll]);
  end;

end;

Beispiel 3

Ignoriert Gross und Kleinschreiben in der Source.

var
  s: String;
begin
  ...
  s:= StringReplace(s, 'CbA', 'AbC', [rfReplaceAll, rfIgnoreCase]);