Imprimir una linea

[delphi.com.ar]

En el foro tienes unos cuantos ejemplos de uso de Streams, por ejemplo http://www.clubdelphi.com/foros/showthread.php?t=27767

Código Delphi [-]
procedure PrintLine(S: string);
begin
  with TFileStream.Create('LPT1', fmOpenWrite) do
    try
      S := S + #13#10;
      Write(S[1], Length(S));
    finally
      Free;
    end;
end;

Saludos!

[prequejo]

Muchas gracias!!!

me funciona perfectamente.

A ver si voy agarrando practica con estas cosas sencillas (para vosotros los expertos) gracias a vuestra ayuda, para seguir con cosas más complejas.

Muchas gracias de nuevo, que me has ayudado mucho