Leer un *.txt y Luego Imprimirlo

[newdelphi7]

Buenas, probablemente la pregunta este fuera de lugar porque en realidad mi problema no es realizar la impresion, sino como leer un archivo txt....

Estoy haciendo una aplicacion en PHP y no encontre forma de pasarle los comandos de ESC para hacer imprimir una impresora Star Sp200 y/o Epson Tm-300, por lo que al final termine guardando los datos a imprimir en un archivo "imprimir.TXT"

La idea es realizar una aplicacion en Delphi que lea los datos en el fichero imprimir.txt y lo mande directamente a la impresora con este comando:
var
iImpresora : TextFile;
begin
Assignfile(iImpresora,'Lpt1');
Rewrite(iImpresora);
Writeln(iImpresora,' AQUI IRIA LO QUE VA A LEER EN CADA LINEA y SERA LO QUE SALDRA EN LA IMPRESORA');
CloseFile(iImpresora);
end;

Aqui mi pregunta: el fichero consta de 15 a 25 Lineas promedio me gustaria saber como puedo yo leer el fichero linea por linea e irlo guardando en una variable hasta que sea fin de archivo y no se imprima mas..... Nota: cada linea tiene como 30 caracteres mas o menos...

Gracias por su ayuda y su tiempo, de antemano.....

[ElKurgan]

Una forma sencilla de hacerlo sería como sigue:


var
iImpresora : TextFile;
vLista: TStringList;
begin
Assignfile(iImpresora,'Lpt1');
Rewrite(iImpresora);
vLista := TStringList.Create;
try
vLista.Strings.LoadFromFile('ElFicheroQueQuieroLeer');
Writeln(iImpresora, vLista.Strings.Text );
finally
CloseFile(iImpresora);
vLista.Free;
end;
end;


Un saludo

[ElKurgan]

Bueno, la prisa es mala consejera... Bastaba con poner esto:


...
try
vLista.LoadFromFile('ElFicheroQueQuieroLeer');
Writeln(iImpresora, vLista.Text );
finally
...


Mis disculpas...

[newdelphi7]

Gracias, pero no solo la prisa es mala consejera, sino tambien la falta de conocimiento en la materia, anoche me sente y pude hacer el sistemita... mira como lo hice.

Var
iImpresora: TextFile;
Fichero: TextFile;
Linea: String;
Contador: integer;
begin
Contador :=0;
AssignFile(Fichero,'C:\Tarjeta\tarjeta.txt');
Assignfile(iImpresora,'Lpt1');
Reset(Fichero);
While Eof(Fichero)=False Do
Begin
Readln(Fichero,Linea);
Rewrite(iImpresora);
Writeln(iImpresora, Linea);
Inc(Contador);
end;
Closefile(Fichero);
end;

Gracias de todas formas probare el metodo que me diste, a ver que tal y gracias de nuevo......