Dann muß man also das Wort vorher extrahieren und prüfen ob es kapital ist (
if Wort = AnsiUpperCase(Wort) then
)
und dann eine entsprechende Ersetzungsfunktion benutzen.
Oder ganz einfach: Wenn Großbuchstabe nicht am Wortanfang steht oder wenn er direkt oder indirekt (wegen ß, was es aktuell nicht in Groß gibt) von einem Großbuchstaben gefolgt wird, dann bleibt er groß.
Für RegEx lassen sich solche einfachen Regeln leicht mittels Look-Ahead- und Look-Behind-Befehlen (
Look-Around) umsetzen.
http://www.delphipraxis.net/183730-t...ml#post1288522
http://stackoverflow.com/questions/1...ns-editpad-pro
http://www.regular-expressions.info/replacecase.html