1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

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.}