Difference between revisions of "StringReplace/de"

From Lazarus wiki
Jump to navigationJump to search
m
 
(2 intermediate revisions by 2 users not shown)
Line 1: Line 1:
 
{{StringReplace}}
 
{{StringReplace}}
<br>
+
 
<br>
 
 
=StringReplace=
 
=StringReplace=
Flags:<br>
+
 
 +
Flags:
 +
 
 
{| class="wikitable sortable"
 
{| class="wikitable sortable"
 
! Flag !! Wert
 
! Flag !! Wert
Line 13: Line 14:
 
|1
 
|1
 
|}
 
|}
<br>
+
 
Syntax:<br>
+
Syntax:
 +
 
 +
<syntaxhighlight lang=pascal>
 
  Neuerstring := StringReplace(Originalstring,
 
  Neuerstring := StringReplace(Originalstring,
 
                               String oder Zeichen das ersetzt werden soll,
 
                               String oder Zeichen das ersetzt werden soll,
 
                               String oder Zeichen, das stattdessen eingefügt werden soll,
 
                               String oder Zeichen, das stattdessen eingefügt werden soll,
 
                               Ein Flag oder beide Flags in eckigen Klammern);
 
                               Ein Flag oder beide Flags in eckigen Klammern);
<br>
+
</syntaxhighlight>
 +
 
 
=Anwendungsbeispiele=
 
=Anwendungsbeispiele=
Beispiel 1 entfernt alle Steuerzeichen aus einem String:<br>
+
 
<syntaxhighlight>
+
==Beispiel 1==
 +
Entfernt alle Steuerzeichen aus einem String:
 +
 
 +
<syntaxhighlight lang=pascal>
 
function funAlleSteuerzeichenEntfernen(strUebergabe: string): string;
 
function funAlleSteuerzeichenEntfernen(strUebergabe: string): string;
 
var
 
var
Line 36: Line 43:
 
end;  
 
end;  
 
</syntaxhighlight>
 
</syntaxhighlight>
<br>
+
 
Beispiel 2 entfernt alle Steuerzeichen ausser dem Steuerzeichen Tab aus einem String:<br>
+
==Beispiel 2==
<syntaxhighlight>
+
Entfernt alle Steuerzeichen außer dem Steuerzeichen Tab aus einem String:
 +
 
 +
<syntaxhighlight lang=pascal>
 
function funAlleSteuerzeichenAusserTabEntfernen(strUebergabe: string): string;
 
function funAlleSteuerzeichenAusserTabEntfernen(strUebergabe: string): string;
 
var
 
var
Line 56: Line 65:
 
end;
 
end;
 
</syntaxhighlight>
 
</syntaxhighlight>
<br>
+
 
<br>
+
==Beispiel 3==
--[[User:Olaf|Olaf]] 06:16, 9 July 2013 (UTC)
+
Ignoriert Gross und Kleinschreiben in der Source.
[[Category:FreePascal/de]]{{AutoCategory}}
+
 
 +
<syntaxhighlight lang=pascal>
 +
var
 +
  s: String;
 +
begin
 +
  ...
 +
  s:= StringReplace(s, 'CbA', 'AbC', [rfReplaceAll, rfIgnoreCase]);
 +
</syntaxhighlight>

Latest revision as of 15: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]);