DParser

pascal:
Program DParser;

uses Classes;

var
  InFile           : TFileStream;
  Parser           : TParser;
begin
  InFile := TFileStream.Create('parser.dat', fmOpenRead);
  if Assigned(InFile) then begin
    try
      Parser := TParser.Create(InFile);
      if Assigned(Parser) then begin
        try
          while Parser.Token <> toEOF do begin
            case Parser.Token of
              toInteger : WriteLn('Found integer: "', Parser.TokenInt, '"');
              toFloat   : WriteLn('Found float:   "', Parser.TokenFloat, '"');
              toString  : WriteLn('Found string:  "', Parser.TokenString, '"');
              toSymbol  : WriteLn('Found symbol:  "', Parser.TokenString, '"');
            else
              // Skip all other characters
              ;
            end;
            Parser.NextToken;
          end;
        finally
          WriteLn('Freeing parser object');
          Parser.Free;
        end;
      end;
    finally
      WriteLn('Freeing infile object');
      InFile.Free;
    end;
  end;
end.  $Log: dparser.pp,v $
end.  Revision 1.4  2005/02/14 17:13:18  peter
end.    * truncate log
end.
}
 
¿Ya le viste algún error? Dejanos tu correción ;-)

Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress elimina los tags HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios.

Otro punto antes de comentar, Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:

De esta manera el código sale coloreado.

Otro punto importante para muchos que sienten que se les ignora: Todos los comentarios los reviso y en su debido momento los apruebo, pero ojo con el último párrafo.

Para poner los símbolos de las librerías sin que desaparezcan, debes escribir los símbolos de mayor > y menor qué < con su entidad HTML correspondiente, así como el símbolo de &

Mis Algoritmos se reserva el derecho de alterar, publicar o no los comentarios así como cambiar estas reglas de uso.

Si estas de acuerdo, adelante puedes comentar :)

P.D. No le hago tareas a nadie, mejor hagan la mía :P