FileStream: Falsche Ausgabe unter D2010

[Neutral General]

Zitat von Uwe Raabe:

Weil Unicode-Chars 2 Byte groß sind, TStream.Size aber Bytes angibt.

Delphi-Quellcode:

  
setlength(s,size div 2);
readbuffer(s[1],size div 2);

Gelesen werden müssen trotzdem noch alle Bytes

Bzw wenn es ne ASCII/ANSI Datei ist würde ich folgendes empfehlen:

Delphi-Quellcode:

var s: AnsiString; 
begin 
  with TFilestream.Create('c:\test.txt',fmOpenRead) do
    try 
      SetLength(s,Size); 
      ReadBuffer(s[1],Size); 
      ShowMessage(s); // Um die Warnung wegzubekommen: ShowMessage(String(s))
    finally 
      free; 
    end;
end;