cümleleri kelimelere ayırma

[karflake]

Delphi'deki bir class yardımıyla bir cümle kelimelere ayrılabiliyormuş. Ancak aşağıda yer alan bu kod Türkçe karakterlerde sorun çıkarıyor.

Kod: Tümünü seç

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;

Kullanımı:

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
 ParseThis('Hava nasil oralarda?');
end;

Yukarıdaki kod cümledeki her kelimeyi showmessage ile gösteriyor. Bu kelimeler bir stringlist'e eklenerek kod daha başka amaçlar için de kullanılabilir.