StringMacros

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von Codewalker · begonnen am 20. Okt 2012 · letzter Beitrag vom 20. Okt 2012

Vorheriger Beitrag

Nächster Beitrag

jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.963 Beiträge

Delphi 12 Athens

AW: StringMacros

20. Okt 2012, 13:13

Kann es sein, dass du das mit dem Enumerator noch nicht so ganz verstanden hast?

Wie wäre es so?

markieren

Delphi-Quellcode:

			function TStringMacros.Replace(const Source: String): String;

var

  CurrentValue: TPair<string, TFuncOfString>;

begin

  Result := Source;

  for CurrentValue in Self do

    Result := StringReplace(Result, CurrentValue.Key, CurrentValue.Value(), [rfReplaceAll, rfIgnoreCase]);

end;