StringReplace/de

From Lazarus wiki
Revision as of 07:31, 9 July 2013 by Olaf (talk | contribs)
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 ausser 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;



--Olaf 06:16, 9 July 2013 (UTC)