es sind keine HEX Daten, es sind normale
UniCode Textdaten.
Mit aktuellem Delphi wäre es wohl einfach da...
Mit NonUnicode-Delphi7(wenn dein Profil stimmt) den Memo-Inhalt eventuell in einen WideString passender länge umkopieren... oder eine ander eder unendlich vielen Möglichkeiten suchen/nutzen.
Quick&Dirty könntest du auch nur jedes 2. Zeichen in einen AnsiString einsetzen, denn die zusätzlichen 00 deuten auf simples 16Bit-
UniCode mit ohne HiByte-Nutzung hin(das ist aber unsauber und kann schon bei Umlauten oder sonstigen Sonderzeichen scheitern)
Delphi-Quellcode:
function Uni16StrToAnsiStr(const s : string):string;
var i:integer;
begin
SetLength(Result, Length(s) div 2);
for(i:=0 to Length(Result)-1 do Result[1+i]:=s[1+(i*2)];
end;