Сообщество Чайников

Вопрос

Как просканированить строки с помощью TParser?

Ответ

В Delphi есть класс, называемый TParser, который IDE использует для парсинга исходного кода. Вы тоже можете использовать этот класс для парсинга строк. Функция берет строку и делит ее на слова.

procedure ParseThis(MyStr: String);
var
    MyParser: TParser;
    MS: TMemoryStream;
begin
    MS := TMemoryStream.Create;
    MS.Position := 0;
    MS.Write(MyStr[1], Length(MyStr));
    MS.Position := 0;
    MyParser := TParser.Create(MS);
    MyStr := MyParser.TokenString;
    ShowMessage(MyStr);
    while MyParser.Token <> toEOF do begin
    MyParser.NextToken;
if MyParser.TokenSymbolIs(MyParser.TokenString) then begin
   MyStr := MyParser.TokenString;
        ShowMessage(MyStr);
    end;
    end;
    MyParser.Free;
    MS.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    ParseThis('Сканировать эту строку');
end;

Из конференции Delphi