Eine Funktion zum Zensieren

[robinWie]

Zitat:

*motz* Fäkalien schreibt man mit Ä

Danke für den Hinweis.
__________________________________________________ ___________________
So. Jetzt kommt bei "WordList" der Dateiname der Ini rein.
[edit]Es gibt noch eine Freiheit: Man kann die Section angeben und das beste
jetzt funktioniert es [/edit]

Delphi-Quellcode:

function CensorMemo(Memo: TMemo; WordList, Section: string): Boolean;
var
 S: string;
 i,i1: integer;
 F: TiniFile;
 List1, List2: TStringList;
begin
  try
    Assert(Assigned(Memo));
    List1 := TStringList.Create;
    List2 := TStringList.Create;
    F     := TIniFile.Create(WordList);
    F.ReadSection      (Section, List1);

     for i := 0 to List1.Count -1 do
      List2.Add(F.ReadString(Section, List1.Strings[i], '<PIEP>'));

    for i := 0 to Memo.Lines.Count -1 do
      begin
        S := UpperCase(Memo.Lines.Strings[i]);
        for i1 := 0 to List1.Count -1 do
          S := StringReplace(S, List1.Strings[i1], List2.Strings[i1], [rfReplaceAll]);
        Memo.Lines.Strings[i] := LowerCase(S);
      end;
    Result := True;
  except
    Result := False;
  end;
  List1.Free;
  List2.Free;
  F.Free;
end;