delphi - 如何使用 like 子句和元音变音来过滤数据集中的字符串字段？

Question

虽然有一些documentation关于数据集过滤，仅概述语法细节。在我的应用程序中，我想使用数据集过滤器来过滤人名。通常情况下，这工作得非常快，但我偶然发现了一个过滤小问题，例如 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。

Answer 1

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

访问TWideStringField值(value)利用AsWideString属性(property)。我在 D 2009 中进行了快速测试，当我尝试过滤数据集时，我得到了以下结果:

First chance exception at $7594845D. Exception class EAccessViolation with message 'Access violation at address 4DB1E8D1 in module 'midas.dll'. Read of address 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 字符串执行相同的操作(您的代码将通过用 TFDMemTable 替换 TClientDataSet 并添加 FireDAC 单元来更改)。