Portierung javascript:escape function nach Delphi für widestring

[KarstenKattner]

Mein eigentliches Problem ist:

Ich erstelle im Delphi-Programm einfache html-seite bzw. xml-Datei mit Links auf Dateien mit unicode-filenamen. Leider funktionieren die Links dann nicht im Browser.

Habe im Netz mein Problem soweit eingegrenzt:


http://www.devguru.com/Technologies/ecmascript/quickref/escape.html

Für normale Strings hatte ich sowas ähnliches schon gemacht, gibts das schon für widestring?

[Bernhard Geyer]

Wenn Du es chon für normale Strings gemacht hast, setze die Funktion doch einfach auf WideStrings um

[KarstenKattner]

Habe ich inzwischen auch. Für die html Seite funktioniert es auch (ob es besser geht weis ich nicht), nur xml/xsl habe ich och keine Lösung.

function wideescape(s: widestring): string;
var I: integer;
begin
result := '';
for I := 1 to length(s) do
if ((s[i] >= 'A') and (s[i] <= 'z')) or ((s[i] >= '0') and (s[i] <= '9'))
or (s[i] = '@') or (s[i] = '*') or (s[i] = '-') or (s[i] = '_') or (s[i] = '+') or (s[i] = '.') or (s[i] = '/') then
result := result + s[i]
else
if s[i] < widechar(256) then
result := result + '%' + IntToHex(byte(s[i]), 2)
else
result := result + '&#x' + IntToHex(word(s[i]), 4);
end