Delphi

Вопрос

Как разбить строку на слова?

Ответ

(*
В 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;

Кирилл Краснов