Setsames Verhalten von TFileStream

[Christian Seehase]

Moin Sascha,

ich vermute mal, dass es daran liegt, dass Du die Datei nicht schliesst.
Nach dem SendToPrinter fehlt noch ein FreeAndNil(Stream), und wenn Du das Programm beendest geschieht das automatisch.
Ausserdem solltest Du das ganze in den üblichen Resourcenschutzblock einbinden.

Delphi-Quellcode:

begin
  Stream := TFileStream.Create('LPT1', fmOpenWrite);
  try
    temp := memo_test.Text;
    sendtoprinter(Stream, temp);
  finally
    FreeAndNil(Stream);
  end;
end;

BTW: Belegte Resourcen sollte man auch immer wieder gezielt freigeben.

[EDIT]
TFileStream verhält sich also völlig korrekt
[/EDIT]