使用ado数据集修剪从delphi中的表中获取的字符串数据

Question

我有一个数据类型char的表列，并通过使用ADO数据集我获取数据。 但是由于char类型，它显示带有尾随额外空格的数据。 此ADO数据集所在的表单由多种形式继承。 我想通过使用一些ADO数据集属性在父表单上的Delphi代码中进行一些更改来修剪额外的空格

我已经使用了数据字段的FixedChar属性，使其为false，但是没有用

Answer 1

Select Cast(mycharcolumn as varchar(10)) as mynewcharcolumn from tablename

如果您可以更改检索数据的查询（如我在此处所示），那么您可以在数据集级别将char列有效地转换为varchar列。

如果您无法对查询进行更改，则另一种方法是将计算列添加到数据集的Tfield列表中，并且在OnCalcFields事件处理程序中，您可以Trim(mycharcolumn)以“计算”计算的值然后在代码中使用的字段代替原始字段。

Answer 2

您还可以设置字段的OnGetText事件并修剪文本：

procedure TMyForm.AdoDataSet1GetText(Sender: TField; var Text: string; DisplayText: Boolean);
begin
  Text := Trim(Text);
end;