Memo.Text := Ansistring? nur wie

[emsländer]

Zitat von jbg:

Warum nicht einfach so einlesen:

Delphi-Quellcode:

var
  Stream: TFileStream;
  AnsiTemp: AnsiString;
begin
  ...  
  Stream := TFileStream.Create(odlg.FileName, fmOpenRead or fmShareDenyWrite);
  try
    SetLength(AnsiTemp, Stream.Size);
    if AnsiTemp <> '' then
      Stream.Read(AnsiTemp[1], Stream.Size);
  finally
    Stream.Free;
  end;

  Memo1.Lines.Text := string(AnsiTemp); // hier findet ein Aufruf von MultiByteToWideChar() statt
end;

Auch das funktioniert nicht und ich habe nur das erste Zeichen von über 8000 im Memo.

Gruss

EL