Hola, estoy haciendo un trabajo para la universidad, pero me he trabado con un error de código, si alguien me ayuda a encontrarlo se lo agradecería mucho
Código:
var
Form2: TForm2;
CAlta,CMedia,CBaja: integer;
RAlta,RMedia,RBaja:Real;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.Button3Click(Sender: TObject);
begin
Form2.Close;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
Seek(Archivo,0);
While Not Eof(Archivo) DO
Begin
Read(Archivo,Res);
IF (Res.Temporada='Alta') THEN
Begin
CAlta:= CAlta+1;
RAlta:= RAlta+ Res.Tarifa;
end
else
IF (Res.Temporada='Media') THEN
Begin
CMedia:= CMedia+1;
RMedia:= RMedia+ Res.Tarifa;
End
else
IF (Res.Temporada='Baja') THEN
Begin
RBaja:= RBaja+ Res.Tarifa;
CBaja:= CBaja+1;
End;
End;
Listbox1.items.Add(IntToStr(CAlta));
End;
end.
He recorrido el prog con F7 y me di cuenta que cuando necesita comprobar el End Of File me dice "Eof=inaccesible value" entonces directamente pasa al end, por lo tanto las variables no toman los valores. La verdad es que me encuentro desorientado.