Unicode-Umwandlung

[blackdrake]

Hallo.

Ich habe es aufgrund der Vorlage von Ydobon herausgefunden, wie es funktioniert!

Delphi-Quellcode:

function unicode(inp: string): PWideChar;
begin
  result := PWChar(@inp[1]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  movefilew('testa', unicode(#$53#$30#$8C#$30#$6F#$30#$5E#$97#$38#$5E#$6B#$30#$ED#$77#$44#$30#$C6#$30#$AD#$30#$B9#$30#$C8#$30#$67#$30#$42#$30#$8B#$30 +
        #$02#$30#$2E#$00#$69#$00#$64#$00#$78#$00));
end;

Ich muss jetzt also beim Papierkorb bei der Info2 Auslesung beim richtigen Offset solange 2 Bytes einlesen, bis ein Byte-Paar $00 $00 ist. Dann höre ich auf, die Bytepaare an s (string) anzuhängen. Die $00 $00 Null-Terminierung muss nicht bei movefilew() vorhanden sein.

Gruß
blackdrake

[edit=mkinzler]Umbruch in Code eingefügt Mfg, mkinzler[/edit]