🚀 go-pugleaf

On Mon, 26 Jun 2000 22:00:05 +0200, "Bediaga" <bediaga@euskalnet.net>
wrote:

>Tengo un peque�o pero gran problema, necesito imprimir un resultado que me
>ofrece mi programa. 


F�jate en la cl�usula 'assign'

=============================================

Procedure Listado;
  var lista:text;
      nom  :string[80];
      i:integer;
begin
  assign(lista,'LPT1');
  rewrite(lista);
  writeln(lista,' LISTADO DE NOMBRES Y TELEFONOS DE LA AGENDA');
  writeln(lista,' ===========================================');
  writeln(lista);
  writeln(lista);
  i:=0;
..
..


end;


Saludos
========================================================
Apuntes sobre el sintetizador musical anal�gico:
http://www.geocities.com/SunsetStrip/Stadium/1675/sintetizador.html
====================================================================

Bediaga schrieb:

> Hola colegas
>
> Tengo un peque�o pero gran problema, necesito imprimir un resultado que me
> ofrece mi programa. He probado con poner LST despues del write, utilizando
> la unidad PRINTER. Pero no me imprime nada. Pues necesito saber eso cuanto
> antes, muchisimas gracias. Pero por favor si sabeis como se hace esto
> mandadme un email a BediagaXXX@euskalnet.net  (Quitar las XXX)
>
> Este programa en teoria deberia de funcionar no???
>
> *-------------------------------*
>
> Program Prueba (Inpuut, Output);
> Uses PRINTER, CRT;
>
> Var Nombre:String;
>
> Begin
> Clrscr;
> Write ('Introduzca su nombre: ');
> Readln (Nombre);
> Write (LST, 'Tu nombre es ',Nombre);
> End.
> *--------------------------------------------*

Primero que nada no estas ni siquiera cerrando la linea, osea falta un
"writeln(lst)"
Si resulta que estas usando una impresora de lineas (creo que se llama matriz
de puntos en castellano)
deberia funcionar con ese cambio, pero si es una impresora de paginas (como la
mayoria, si es que no es la totalidad de las actuales) neceitas ademas cerrar
la pagina para que realmente se imprima.

Ademas has de tener instalada la impresora para ms-dos