Cita:
Empezado por Carmelo Cash
Hola:
Muchas gracias a los que participaron, pero entonces mi código no es una burrada?
Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); Var Fichero: TextFile; Linea: String; Contador: integer; begin Contador :=0; AssignFile(Fichero,'C:\Prueba.txt'); Reset(Fichero); While Eof(Fichero)=False Do Begin Readln(Fichero,Linea); Inc(Contador); end; Closefile(Fichero); ShowMessage(IntToStr(Contador)); // << Cantidad de Líneas
Lo dejo así, y al que me critique le digo... Mu? |
Efectivamente, no es una burrada. Es una solución.
Ahora, si te interesa... Delphi cuenta con unas clases que te pueden ser de mucha ayuda para abrir, guardar, y editar archivos. En un ejemplo que mostré anteriormente hice uso de la clase TStrings.
Además de poder trabajar con el archivo, te evitarás tener que ir contando... esta clase ya cuenta con la propiedad Count que te devolverá la cantidad de lineas.
Para saber más sobre la clase puedes buscar en los foros, que se ha comentado al respecto. Y no te olvides de leer la ayuda que ofrece Delphi.
Saludos,