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

[mirage228]

Hi,

wenn der WideString ANSI Zeichen enthält könntest Du einfach nach string casten, also z.B.

Delphi-Quellcode:

var
  WS: WideString;
  S: string;
begin
  WS := 'wide string';
  S := string(WS); // obwohl der Delphi Compiler Dir auch S := WS; durchgehen lässt, aber bei Ord könntest Du so casten
end;

Bei Deinem 2. Problem kann ich Dir leider nicht weiterhelfen