تفكيك الجمل strings باستخدام Parser

سلام

يوجد في الدلفى كلاس يسمى TParser ,

يقوم Parser بتفكيك الجمل ,الى مجموعة كلمات Token

اليك البرنامج البسيط التالي , فقط ضع زر على الفورم ,

اكتب الاجراء التالي و الذي يقوم بتفكيك الجملة MyStr الى مجموعة كلمات :

[l]

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;

[/l]

وفي الزر قم باستدعاء الاجراء السابق كالتالي :

[l]

procedure TForm1.Button1Click(Sender: TObject);

begin

 ParseThis('This is Test of The Parser in Arabteam2000');

end;

[/l]

وشكرا