Eine Funktion zum Zensieren

[monta]

Ich würde einfach alles in eine Section schreiben

Code:

[Ersetzungen]
BITCH=B***H
FUCKER=F***ER
usw...

Und das könnte man ja dann in zwei Stringlisten einlesen, über ReadSection und ReadsectionValues und dann jeweils in Replace einsetzen:

Delphi-Quellcode:

for i := 0 to Stringlist.Count - 1 do
  S := StringReplace(S, Stringlist1[i],   Stringlist2[i],   [rfReplaceAll]);

Das wäre mein Ansatz.