Ver Mensaje Individual
  #6  
Antiguo 09-05-2006
Assolon Assolon is offline
Registrado
 
Registrado: abr 2006
Posts: 7
Reputación: 0
Assolon Va por buen camino
Con variable

Paradox no lo he utilizado nunca, da igual aqui te pongo un ejemplo que recorre un bucle e imprime los valores de una variable:

var
strMensaje: string;
variable: integer;
iImpresora : TextFile;
begin
Assignfile(iImpresora,'Lpt1'); //Puerto: LPT1, COM1, etc;
Rewrite(iImpresora);
strMensaje := 'Imprimiendo...';
writeln(iImpresora, strMensaje);
for variable:=0 to 10 do begin
// writeln lo que hace es imprimir el valor de 'variable'
// iImpresora es donde estamos escribiendo dicho valor que en nuestro caso es el Lpt1, la impresora.
Writeln(iImpresora, intTostr(variable));
end;

strMensaje := 'Fin de impresion';

writeln(iImpresora, strMensaje);
CloseFile(iImpresora);


//Lo que tiene que salir en la impresora es lo siguiente
Imprimiendo...
0
1
2
3
4
5
6
7
8
9
Fin de impresion

Con esto tiene que acabar tus dudas, sino pillate un manual y empieza desde el principio.


Responder Con Cita