1

尽管有一些关于数据集过滤的文档，但仅概述了语法细节。在我的应用程序中，我想使用数据集过滤器过滤人名。通常这工作得非常快，但我偶然发现了一个小问题过滤，例如TClientDataset. 如何为变音符号添加类似过滤器？表达方式

[X] LIKE 'Ö%'

（对于给定的字段X）不起作用（与表达式相反[X] LIKE 'A%'）。这只是一个错误还是我需要在某处设置字符集/编码？

最小的例子：

procedure TForm1.FormCreate(Sender: TObject);
var
  LField: TFieldDef;
  LCDs: TClientDataSet;
const
  SAMPLE_CHAR: string = 'Ö';
begin
  LCds := TClientDataSet.Create(Self);
  LField := LCds.FieldDefs.AddFieldDef();
  LField.DataType := ftString;
  LField.Size := 10;
  LField.Name := 'X';
  LCDs.CreateDataSet;
  LCDs.Append;
  LCDs.FieldByName('X').AsString := SAMPLE_CHAR;
  LCDs.Post;

  ShowMessage(LCds.FieldByName('X').AsString);
  LCds.Filter := '[X] LIKE ' + QuotedStr(SAMPLE_CHAR + '%');
  LCds.Filtered := true;
  ShowMessage(LCds.FieldByName('X').AsString);
end;

第一个消息框显示Ö，而第二个消息框为空。如果您SAMPLE_CHAR从更改Ö为A，两个消息框都会显示A。

4

1 回答 1

2

使用ftWideString数据类型创建一个TWideStringField字段，而不是ftString，后者在内部创建一个TStringField字段。TStringField用于 ANSI 字符串，而TWideStringField用于 Unicode 字符串。这样做，否则你会丢失数据。

要访问TWideStringField值，请使用AsWideString属性。我在 D 2009 中进行了快速测试，当我尝试过滤数据集时，我得到了这个：

第一次机会例外，价格为 $7594845D。异常类 EAccessViolation 带有消息“模块“midas.dll”中地址 4DB1E8D1 的访问冲突。读取地址 00FC0298'。

测试代码：

procedure TForm1.FormCreate(Sender: TObject);
var
  S: string;
  FieldDef: TFieldDef;
  MemTable: TClientDataSet;
begin
  S := 'Ŧĥε ｑùíçķ ƀřǭŵņ fôｘ ǰűmpεď ōvêŗ ţħě łáƶÿ ďơǥ';

  MemTable := TClientDataSet.Create(nil);
  try
    FieldDef := MemTable.FieldDefs.AddFieldDef;
    FieldDef.DataType := ftWideString;
    FieldDef.Size := 255;
    FieldDef.Name := 'MyField';

    MemTable.CreateDataSet;
    MemTable.Append;
    MemTable.FieldByName('MyField').AsWideString := S;
    MemTable.Post;

    ShowMessage(MemTable.FieldByName('MyField').AsWideString); { ← data lost }
    MemTable.Filter := '[MyField] LIKE ' + QuotedStr('%' + 'ǰűmpεď' + '%');
    MemTable.Filtered := True; { ← access violation }
    ShowMessage(MemTable.FieldByName('MyField').AsWideString);
  finally
    MemTable.Free;
  end;
end;

我希望它与您的 Delphi 版本无关，但如果可以的话，我还是更喜欢使用 FireDAC。在那里，您将对 Unicode 字符串执行相同的操作（您的代码将通过将TClientDataSet替换为TFDMemTable并添加 FireDAC 单元来更改）。

于 2017-07-27T20:28:01.400 回答