database – 有没有办法自动删除文本字段中的所有前导和尾随空格

发布时间：2020-12-15 09:39:58 所属栏目：大数据来源：网络整理

导读：在使用TADODataSet组件访问Access数据库的Delphi应用程序中,有什么方法可以在将记录写入磁盘时从文本字段中删除前导和尾随空格？或者在检索数据时,但不修改我的所有查询. 我的意思是在ADO引擎中,没有使用BeforePost中的Trim()编写每个表. 解决方法有你提出

在使用TADODataSet组件访问Access数据库的Delphi应用程序中,有什么方法可以在将记录写入磁盘时从文本字段中删除前导和尾随空格？或者在检索数据时,但不修改我的所有查询.

我的意思是在ADO引擎中,没有使用BeforePost中的Trim()编写每个表.

解决方法

有你提出的所有限制……不

我的建议是只编写一次BeforePost事件,并将所有表链接到相同的beforepost事件.

在objectinspector中

Table1.BeforePost:= TrimFieldsBeforePost;
Table2.BeforePost:= TrimFieldsBeforePost;
....

在你的代码中

procedure TMyForm.TrimFieldsBeforePost(DataSet: TDataSet);
var
  i: integer;
begin
  i:= 0;
  while i < Dataset.Fields.Count do begin
    if (Dataset.Fields[i].DataType in
      [ftString,FtMemo,ftFixedChar,ftWideString,FtVariant,ftFixedWideChar,ftWideMemo]) then begin
      Dataset.Fields[i].AsString:= Trim(Dataset.Fields[i].AsString);
    end;
    Inc(i);
  end;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!