Thema: Delphi TMemoryStream + Unicode

Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: TMemoryStream + Unicode

  Alt 1. Sep 2005, 06:28
Hallo Markus,

das Zwischenspeichern muss wirklich nicht sein:

Delphi-Quellcode:
var
  ms: TMemoryStream;
  ws: WideString;
begin
  ms := TMemoryStream.Create;

  // Schreiben
  ws := 'Das ist eigentlich ganz einfach - äöüÄÖÜß';
  ms.Write(ws[1], length(ws) shl 1);

  // Lesen
  ms.Position := 0;
  SetLength(ws, ms.Size shr 1);
  ms.Read(ws[1], ms.Size);

  ShowMessage(ws);
  ms.Free;
end;
Grüße vom marabu
  Mit Zitat antworten Zitat