Midas 中文单字过滤补丁
来源:互联网 发布:大连程序员工资 编辑:程序博客网 时间:2024/05/05 18:01
如:like '%小%'
单字过滤
经测试两种方式 Filter属性、Locate方法 正常。
提供各种版本的补丁,欠缺的版本会尽快补上。
http://u.skygz.com/ContentPane.aspx?down=ok&filepath=skygz%2f%c6%e4%cb%fc%2fMidaslib.rar
测试所用代码:
Unit Main;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBClient, StdCtrls, Grids, DBGrids;
Type
TForm1 = Class(TForm)
Cmdlocate: TButton;
TxtValue: TEdit;
Label1: TLabel;
ClientDataSet1: TClientDataSet;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
CmdFilter: TButton;
Procedure CmdlocateClick(Sender: TObject);
Procedure CmdFilterClick(Sender: TObject);
Procedure FormCreate(Sender: TObject);
Private
{ Private declarations }
Public
{ Public declarations }
End;
Var
Form1: TForm1;
Implementation
{$R *.dfm}
//注释引用MidasLib,将改用Midas.dll
Uses
MidasLib;
Procedure TForm1.CmdlocateClick(Sender: TObject);
Begin
ClientDataSet1.Filtered := false;
ClientDataSet1.Locate('text1', TxtValue.Text, [loCaseInsensitive, loPartialKey]);
End;
Procedure TForm1.CmdFilterClick(Sender: TObject);
Begin
ClientDataSet1.Filtered := false;
ClientDataSet1.Filter := 'text1 like ''%' + TxtValue.Text + '%''';
ClientDataSet1.Filtered := true;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Const
Datas: Array[0..5] Of String = ('中', '国', '人', '民', '银', '行');
Var
I: Integer;
Begin
TxtValue.Text := '国';
With ClientDataSet1 Do
Begin
With FieldDefs.AddFieldDef Do
Begin
DataType := ftAutoInc;
Name := 'ID';
End;
With FieldDefs.AddFieldDef Do
Begin
DataType := ftString;
Size := 20;
Name := 'Text1';
End;
CreateDataSet;
For I := 0 To 50 Do
Begin
Randomize;
Insert;
FieldByName('Text1').AsString := Datas[Random(6)] + '中文_' + IntToStr(I + 1);
Post;
End;
End;
End;
End.
- Midas 中文单字过滤补丁
- Midas中文修正版Up4
- mysql必知必会 - 过滤数据(单字段过滤)
- 中文分词技术比较:单字切分 vs 中文分词
- SonyEricsson_K700模拟器中文补丁
- Wine 中文输入法 补丁
- gentoo中文内核补丁
- Eclipse 3.4中文补丁下载
- log4cxx中文输出错误补丁
- VS2010代码提示中文补丁
- EBS R12中文升级补丁
- TortoiseSVN_32/64 包含中文补丁
- 过滤制定中文字符
- 中文过滤程序
- Struts1.2中文过滤
- 过滤中文标点
- 正则表达式过滤中文
- EditText中文过滤,InputFilter
- 穿梭在GLOBE坐标之间
- 超越3D,4D来了...
- 数据结构学习中
- About Event
- 连接跟踪的源代码分析
- Midas 中文单字过滤补丁
- 笑话:过得爽歪歪
- jiant1声明
- 基于混合TCP-UDP的HTTP协议实现方法
- MSSQL查询优化
- asp.net 对xml文件的读写,添加,修改,删除操作
- 数据库系统优化--业务逻辑设计优化
- struts+spring+hibernate配置实例
- 定时开关机