Esta es una implementacion de secuencia de caracteres que hice pero me han sugerido un par de cosas y quisiera saber si lo dejo asi o hago los cambios.
1) en el TSecuencia.LeerPrim;
mi profesor dice que estoy leyendo el segundo elemento, no el primero.
2)Me sugirieron reemplazar en el Tsecuencia.fin
en vez de comparar con eof, insertar una marca de fin por el Tsecuencia.marcar y luego comparar el fin a traves de ese elemento.
espero que se halla entendido, soy novato en esto. Cualquier ayuda viene bien saludos
Código:
unit Secuencia;
interface
type
TSecuencia = class
private
f: TextFile;
filename: string;
public
procedure leerPrim(var x:char);
procedure leerSig(var x:char);
procedure escribir(var x:char);
procedure marcar;
function fin: boolean;
end;
implementation
uses SysUtils, Dialogs, Classes;
procedure TSecuencia.leerPrim;
begin
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;
procedure TSecuencia.leerSig;
begin
read(f, x);
end;
function TSecuencia.fin(): boolean;
begin
result := eof(f);
end;
procedure TSecuencia.escribir;
begin
write (f,x);
end;
procedure TSecuencia.marcar();
var x: char;
begin
closefile(f);
end;
end.