在delphi中用TParser 类解析字符串

do2008

于 2006-10-22 10:23:00 发布

阅读量3.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： delphi integer token string stream float

本文链接：https://blog.youkuaiyun.com/do2008/article/details/1345104

这篇博客介绍了如何在Delphi中使用TParser类来解析字符串，展示了两种不同的用法，一种用于常规解析，另一种用于词频统计。文章通过示例代码详细解释了TParser在处理不同类型的词（如符号、整数、浮点数和字符串）以及如何处理不成对的单引号导致的异常。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

BDN参考的写法:http://bdn.borland.com/article/26380

procedure TForm1.Button6Click(Sender: TObject);
var
theParser: TParser;
oString: TStringStream;
str:AnsiString;
Pos,Line:integer;
begin
oString := TStringStream.Create(Memo1.Lines.text);
oString.Position := 0;
theParser:= TParser.Create(oString);

while (theParser.Token <> toEOF) do //while we're in the file
begin
    //Get Token
    str:=theParser.TokenString();
    //Get the position in the stream
    Pos:=theParser.SourcePos();
    //Get the line number
    Line:=theParser.SourceLine;
    //Get token type
    case (theParser.Token) of
      toSymbol:
        Memo2.Lines.Add(