Difference between revisions of "StringReplace/de"

From Lazarus wiki
Jump to navigationJump to search
m (Fixed syntax highlighting; deleted category included in page template)
 
Line 26: Line 26:
 
=Anwendungsbeispiele=
 
=Anwendungsbeispiele=
  
Beispiel 1 entfernt alle Steuerzeichen aus einem String:
+
==Beispiel 1==
 +
Entfernt alle Steuerzeichen aus einem String:
  
 
<syntaxhighlight lang=pascal>
 
<syntaxhighlight lang=pascal>
Line 43: Line 44:
 
</syntaxhighlight>
 
</syntaxhighlight>
  
Beispiel 2 entfernt alle Steuerzeichen außer dem Steuerzeichen Tab aus einem String:
+
==Beispiel 2==
 +
Entfernt alle Steuerzeichen außer dem Steuerzeichen Tab aus einem String:
  
 
<syntaxhighlight lang=pascal>
 
<syntaxhighlight lang=pascal>
Line 62: Line 64:
  
 
end;
 
end;
 +
</syntaxhighlight>
 +
 +
==Beispiel 3==
 +
Ignoriert Gross und Kleinschreiben in der Source.
 +
 +
<syntaxhighlight lang=pascal>
 +
var
 +
  s: String;
 +
begin
 +
  ...
 +
  s:= StringReplace(s, 'CbA', 'AbC', [rfReplaceAll, rfIgnoreCase]);
 
</syntaxhighlight>
 
</syntaxhighlight>

Latest revision as of 14:44, 8 April 2020

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]);