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.

zusammenfalten · markieren

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]

Eine Funktion zum Zensieren

Eine Funktion zum Zensieren

Forumregeln