| hackering
311884
|
2015/1/29 12:20:02 |
DELPH7+win7
下测试无用 |
| ouweining
88523
|
2014/3/30 9:24:42 |
| XE5下测试也有问题,取出不完整...谁能教一下,如何取完整.谢谢! |
| 5xiaoxi2
77604
|
2014/1/2 14:06:16 |
| 下不了，没火柴 |
| isxuzhu
46270
|
2013/5/19 0:15:15 |
| XE4测试结果显示有问题，取出不完整 |
| isxuzhu
46018
|
2013/5/3 20:42:38 |
| 下不了，没火柴 |
| hackermo
45861
|
2013/4/25 14:15:20 |
| 我测试每次Parse只能分255个字符？ |
| winniez
45822
|
2013/4/19 15:08:21 |
var
tmpclass: libscws.TSCWSWordParser;
tmpresult: libscws.TSCWSResult;
tmpstring: string;
begin
tmpstring := Edit1.text;
tmpclass := TSCWSWordParser.Create();
tmpresult := TSCWSResult.Create();
tmpclass.AddDict('D:\scws_Delphi1.2.1\dictionary\dict.utf8.xdb', false);
tmpclass.Duality := true;
tmpclass.MultiModes := [mcmDuality]; // ,mcmShort,mcmZMain, mcmZAll ,
tmpclass.Charset := 'utf8';
tmpclass.RuleFile := 'D:\scws_Delphi1.2.1\dictionary\rules.ini';
tmpresult := tmpclass.Parse(tmpstring);
while not tmpresult.Eof do
begin
self.momresult.Lines.Add(tmpresult.text);
tmpresult.Next;
end;
tmpclass.Free;
tmpresult.Free; |
| ihvte
45782
|
2013/4/14 1:14:57 |
| 测试了一下。简单使用还行吧 |
| ozhy1
45779
|
2013/4/13 16:47:19 |
| 无实例 不知如何用 |
| doremi
45776
|
2013/4/12 15:56:00 |
| 看起来不错 |
![]() |
|
