Как пользоваться TParser?

← →
arche (2003-10-21 08:55) [0]

Я нашел в инете кое-какие примеры его использования(всякое разбиение на слова и т.п.), но они работают не так, как описывают их создатели (вообще не работают), поэтому вопрос остался тот же: Как пользоваться TParser?

← →
[lamer]Barmaglot (2003-10-21 09:18) [1]

Ищи книгу "Delphi - руководство разработчика" Автор Марко Канту.
Если я точно помню название. Там имеется и пример парсера и использование класса TParser.
Если книги не найдешь, тогда кинь код который не работает, а то на пальцах тяжко...

← →
arche (2003-10-21 10:08) [2]

все, нашел работающий код!

--------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TStream;
s: string;
begin
Stream := TMemoryStream.Create;
try
s := Edit1.Text;
Stream.WriteBuffer(s[1], length(s));
Stream.Position := 0;
with TParser.Create(Stream) do
try
while Token <> toEOF do
begin
//CheckToken(toSymbol);
Listbox1.Items.Add(TokenString);
NextToken;
end;
finally
Free;
end;
finally
Stream.Free;
end;
end;

← →
me (2003-10-21 12:50) [3]

Зачем где-то искать? Смотри текст стандартного модуля HTTPProd - там это используется "в полный рост"

Как пользоваться TParser? Найти похожие ветки