string - 如何使用 DisplayFormat 在数字之间添加空格

Question

如何使用 DisplayFormat 在数字之间添加空格。

像这个例子:

50130301037855000150550010000000131000000132

我需要这个:

5013 0301 0378 5500 0150 5500 1000 0000 1310 0000 0132

有人有想法吗？谢谢。

Answer 1

您不能只使用 DisplayFormat 属性来设置格式，但您可以依靠 OnGetText 事件来实现。

我假设你的字段是字符串类型，例如:

function InsertBlankEach4Chars(S: string): string;
begin
  Result := '';
  while S <> '' do
  begin
    Result := Result + Copy(S, 1, 4) + ' ';
    Delete(S, 1, 4);
  end;
  Result := Trim(Result);
end;

procedure TMyForm.MyQueryFieldGetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
begin
  if DisplayText then
    Text := InsertBlankEach4Chars(Sender.AsString)
  else
    Text := Sender.AsString;
end;

_{免责声明:此代码是在浏览器中编写的，未经测试。如果您打算在时间敏感的过程中使用它，我警告您可能会优化此功能以获得更好的性能。}