Delphi: Unicode <-> Ansi + Algorithmus für Seriennummer

[Bernhard Geyer]

Zitat von c.wuensch:

Problem 1:
Der String wird als Unicode übergeben, der Befehl Ord() funktioniert also nicht. Wie kriege ich diesen String denn nur ins ANSI-Format umgewandelt???

Wenn der String als Unicode-String rüberkommt wird er sicherlich auch Sonderzeichen, welche nicht in der Westlichen Codepage vorhanden sind. Deshalb mußt Du eine WideString -> String-Wandlung durchführen, welche umkehrbar ist. Dafür biedet sich UTF8 an. In der Unit System.pas gibt es dazu die Funktionen UTF8Encode/UTF8Decode.