No entiendo que es lo que quieres hacer con esto.
Aparentemente, abres un archivo y lees caracteres.
- En ningún lugar le envias el nombre del archivo. Quizás sería un buen lugar en LeerPrim.
Código Delphi
[-]
procedure TSecuencia.leerPrim(Archivo: string; var x:char);
begin
FileName := Archivo;
try
assignFile (f, filename);
reset(f);
except
on exception do
begin
ShowMessage('Error al intentar abrir el archivo.');
exit;
end;
end;
read(f,x);
end;
También puedes hacerlo en un metodo para inicializar el objeto.
LeerPrim lee el primer caracter despues de abrir el archivo. Parece que todo es correcto.
- LeerSig no verifica si ya ha llegado al final.
Código Delphi
[-]
procedure TSecuencia.leerSig;
begin
if (not fin) then
read(f, x);
else
Raise exception.Create("No hay mas datos para leer!");
end;
- Qué se supone que hace marcar?
Parece que solo cierra el archivo. Quizás te sugirieron que miraras si habías llegado al final antes de cerrarlo, para no dejar nada sin leer.
- Sobra var x: char; en marcar.