TTextStream - Textdateien einlesen

[chaosben]

Dann habe ich noch ein Problem ... beim Flush im Destructor eines schreibenden (logisch ) TTextStreams kommt eine Zugriffverletzung an der Stelle FByteBuffer := FEncoding.GetBytes(FStringBuffer); in der Funktion "WideCharToMultiByte".

Ich gebe zu, dafür kannst du wahrscheinlich nicht direkt was, aber falls dir eine Lösung einfällt, würde ich mich freuen.

Das hier funktioniert nicht:

Delphi-Quellcode:

procedure TForm30.FormCreate(Sender: TObject);
var
  tt : TTextStream;
begin
  tt := TTextStream.Create('f:\test.txt', saWrite);
  tt.WriteLine(DateTimeToStr(Now));
  tt.Free;

end;

Das gleiche in einer ConsolenApp geht [edit]auch nicht[/edit].