FastStrings eingestellt?

[jaenicke]

Delphi-Quellcode:

const
  HtmlCodes: array[0..3] of String = ('ä', 'å', 'æ', 'ç');
// Das ä hat den Zeichencode $E4, also ist das die unterste Grenze beim Ersetzen

if (DerString[i] >= Chr($E4)) and (HtmlCodes[Ord(DerString) - $E4] <> '') then
  // Zeichen i durch HtmlCodes[Ord(DerString) - $E4] ersetzen

Das kann man natürlich effizienter umsetzen, z.B. indem alle Zeichen in das Array gelegt werden und daher weniger Abfragen nötig sind.

Eine schnelle Möglichkeit einer ähnlichen Vorgehensweise habe ich ja verlinkt.