Implementacion Secuencia

[[duilioisola]]

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.

[Manshula]

Gracias por la respuesta.

La idea de el marcar es "marcar" el fin de la secuencia

lo que me sugieren ahi es insertar un elemento "x" para comparar el fin por ese elemento y no por eof

[[duilioisola]]

No entiendo que es lo que quieres hacer con esto.

Sigo sin saber cual es el objetivo de todo esto.

Has preguntado porqué te sugieren poner un elemento que marque el final? Si es para leer archivos no hace falta.

[[Delphius]]

Manshula, cuando te respondí al mensaje privado te pedí que seas lo más detallista posible. Veo que preferiste ahorrarte palabras, de hecho no veo diferencia alguna entre el mensaje que me enviaste y el post.

Para que podamos ayudarte debes explicar mejor tu caso. La verdad es que no se te entiende. Tomate el tiempo para organizar bien tus ideas y exponerlas.

Te he dicho que no se cobran por la palabras.
Es preferible un post largo y bien explícito y descriptivo que un post vacio.

Saludos,