Eine Funktion zum Zensieren

[robinWie]

Hallo,
ich habe mal zwei Funktionen (eine für ein TMemo und eine für ein TRichEdit) geschrieben, mit den man Texte Zensieren kann. Sind bisjetzt nicht sehr viele Wörter, aber mehr sind mir nicht eingefallen. Ich bin halt gut erzogen . Einiger Wörter werden nicht zensiert sonder ersetzt.
Ihr könnt die Liste ja erweitern.

Delphi-Quellcode:

 // Funktion fuers Memo
function CensorMemo(Memo: TMemo): Boolean;
var
 S: string;
 i: integer;
begin
  try
    Assert(Assigned(Memo));
    for i := 0 to Memo.Lines.Count-1 do
      begin
        S := UpperCase(Memo.Lines.Strings[i]);

        //English Words
        S := StringReplace(S, 'FUCK',    'F**K',    [rfReplaceAll]);
        S := StringReplace(S, 'BITCH',   'B***H',   [rfReplaceAll]);
        S := StringReplace(S, 'FUCKER',  'F***ER',  [rfReplaceAll]);
        S := StringReplace(S, 'ASSHOLE', 'A**HOLE', [rfReplaceAll]);
        S := StringReplace(S, 'SHIT',    'S**T',    [rfReplaceAll]);
        S := StringReplace(S, 'NIGER',   'AFRICAN', [rfReplaceAll]);
        S := StringReplace(S, 'NIGGER',  'AFRICAN', [rfReplaceAll]);
        S := StringReplace(S, 'FUCKING', 'F***ING', [rfReplaceAll]);

        //German Words
        S := StringReplace(S, 'ARSCHLOCH',  'A****loch',                    [rfReplaceAll]);
        S := StringReplace(S, 'WIXER',      '<PIEP>',                       [rfReplaceAll]);
        S := StringReplace(S, 'SCHLAMPE',   'PROMISKE PERSON',              [rfReplaceAll]);
        S := StringReplace(S, 'PENNER',     'OBDACHLOSER',                  [rfReplaceAll]);
        S := StringReplace(S, 'KANAKE',     'UNSOZIALE PERSON',             [rfReplaceAll]);
        S := StringReplace(S, 'PARASIT',    'UNSOZIALE PERSON',             [rfReplaceAll]);
        S := StringReplace(S, 'HURRE',      'Prostituierte',                 [rfReplaceAll]);
        S := StringReplace(S, 'HURE',       'Prostituierte',                [rfReplaceAll]);
        S := StringReplace(S, 'HURRENSOHN', 'SOHN EINER Prostituierten',     [rfReplaceAll]);
        S := StringReplace(S, 'HURRENTOCHTER','TOCHTER EINER Prostituierten', [rfReplaceAll]);
        S := StringReplace(S, 'HURENSOHN', 'SOHN EINER Prostituierten',     [rfReplaceAll]);
        S := StringReplace(S, 'HURENTOCHTER','TOCHTER EINER Prostituierten', [rfReplaceAll]);
        S := StringReplace(S, 'KAKKE',      'FÄKALIEN',           [rfReplaceAll]);
        S := StringReplace(S, 'KAKE',       'FÄKALIEN',                     [rfReplaceAll]);
        S := StringReplace(S, 'KAGE',       'FÄKALIEN',                     [rfReplaceAll]);
        S := StringReplace(S, 'WIXE',       'EJAKULAT',           [rfReplaceAll]);
        S := StringReplace(S, 'WIX',        'EJAKULAT',           [rfReplaceAll]);
        S := StringReplace(S, 'SCHEISSE',   'FÄKALIEN',                     [rfReplaceAll]);
        S := StringReplace(S, 'SCHEISS',    'SCH***S',                      [rfReplaceAll]);
        S := StringReplace(S, 'ARSCH',      'A***H',                        [rfReplaceAll]);

        Memo.Lines.Strings[i] := LowerCase(S);
      end;
    Result := True;
  except
    Result := False;
  end;
end;

//Funktion fuers TRichEdit

function CensorRichText(RTF: TRichEdit): Boolean;
var
 S: string;
 i: integer;
begin
  try
    Assert(Assigned(RTF));
    for i := 0 to RTF.Lines.Count-1 do
      begin
        S := UpperCase(RTF.Lines.Strings[i]);

        //English Words
        S := StringReplace(S, 'FUCK',    'F**K',    [rfReplaceAll]);
        S := StringReplace(S, 'BITCH',   'B***H',   [rfReplaceAll]);
        S := StringReplace(S, 'FUCKER',  'F***ER',  [rfReplaceAll]);
        S := StringReplace(S, 'ASSHOLE', 'A**HOLE', [rfReplaceAll]);
        S := StringReplace(S, 'SHIT',    'S**T',    [rfReplaceAll]);
        S := StringReplace(S, 'NIGER',   'AFRICAN', [rfReplaceAll]);
        S := StringReplace(S, 'NIGGER',  'AFRICAN', [rfReplaceAll]);
        S := StringReplace(S, 'FUCKING', 'F***ING', [rfReplaceAll]);

        //German Words
        S := StringReplace(S, 'ARSCHLOCH',  'A****loch',                    [rfReplaceAll]);
        S := StringReplace(S, 'WIXER',      '<PIEP>',                       [rfReplaceAll]);
        S := StringReplace(S, 'SCHLAMPE',   'PROMISKE PERSON',              [rfReplaceAll]);
        S := StringReplace(S, 'PENNER',     'OBDACHLOSER',                  [rfReplaceAll]);
        S := StringReplace(S, 'KANAKE',     'UNSOZIALE PERSON',             [rfReplaceAll]);
        S := StringReplace(S, 'PARASIT',    'UNSOZIALE PERSON',             [rfReplaceAll]);
        S := StringReplace(S, 'HURRE',      'Prostituierte',                 [rfReplaceAll]);
        S := StringReplace(S, 'HURE',       'Prostituierte',                [rfReplaceAll]);
        S := StringReplace(S, 'HURRENSOHN', 'SOHN EINER Prostituierten',     [rfReplaceAll]);
        S := StringReplace(S, 'HURRENTOCHTER','TOCHTER EINER Prostituierten', [rfReplaceAll]);
        S := StringReplace(S, 'KAKKE',      'FÄKALIEN',           [rfReplaceAll]);
        S := StringReplace(S, 'KAKE',       'FÄKALIEN',                     [rfReplaceAll]);
        S := StringReplace(S, 'KAGE',       'FÄKALIEN',                     [rfReplaceAll]);
        S := StringReplace(S, 'WIXE',       'EJAKULAT',           [rfReplaceAll]);
        S := StringReplace(S, 'WIX',        'EJAKULAT',           [rfReplaceAll]);
        S := StringReplace(S, 'SCHEISSE',   'FÄKALIEN',                     [rfReplaceAll]);
        S := StringReplace(S, 'SCHEISS',    'SCH***S',                      [rfReplaceAll]);
        S := StringReplace(S, 'ARSCH',      'A***H',                        [rfReplaceAll]);
        RTF.Lines.Strings[i] := LowerCase(S);
      end;
    Result := True;
  except
    Result := False;
  end;
end;

[edit] Rechtschreibfehler berichtigt [/edit]

[bigg]

Hi,

jetzt muss ich auch mal draufhauen. Nein, Nein, es ist nicht bös gemeint, ich habe nur ein paar Anregungen für dich. Die Idee finde ich im übrigen Klasse.

1. Könnte man soetwas sogar in "Echtzeit" realisieren. Ein Syntax-Highlighter funktioniert im Grunde genauso.
2. Ist dein Algorithmus relativ träge, jedoch keineswegs falsch.
3. Solltest du nicht jedes Wort einzeln ersetzen, sondern dir vielleicht eine Blacklist anlegen, in denen die Kraftausdrücke gespeichert sind und diese durchsuchen und bei Bedarf ersetzen bzw. anderes zeichnen.


PS: TStringList.Text ist im übrigen eine Funktion, die die einzelnen Zeilen zusammenkopiert. Ruft man diese Funktion mehrfach auf (grade in StringReplace), würde die gesamte Funktion noch langsamer werden, als sie jetzt schon ist.