Oh, ich glaube Delphi 6 kann das wirklich noch nicht. FreePascal auch nicht, ich erinnere mich jetzt grob... Korrektur im Anhang
Jetzt hoffe ich nur, daß Delphi 6 CharInSet kann, sonst muss da halt ein
Result[i] in LowerCaseChars
hin.
Für Delphi 6 ist CharInSet unbekannt. Wird wohl eine nicht mehr ganz zeitgemässe Version von Delphi sein
mir gefällt sie trotzdem.
Habe ein unicodefähige Rot13 gefunden, jetzt sehe ich was im IconStream steckt.
Der Vollständigkeit halber hier noch die Rot13 die auch mit D6 frunzt.
Delphi-Quellcode:
function Rot13(AValue: WideString): WideString;
var
i: Integer;
lValue: UTF8String;
begin
lValue := UTF8Encode(AValue);
for i:=1 to Length(lValue) do
case UpCase(lValue[ i ]) of
'A'..'M':
lValue[ i ] := Chr(Byte(lValue[ i ]) + 13);
'N'..'Z':
lValue[ i ] := Chr(Byte(lValue[ i ])- 13);
end;
result := UTF8Decode(lValue);
end;
Damit funktioniert der Output des Programms wie erwartet.