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.
Johannes M.
.