Thank you, it works. For example (if anybody else needs this solution):
// Custom OnGetText handler
procedure TForm2.DoGetText(Sender: TField; var Text: string; DisplayText: Boolean);
var
J: Integer;
begin
J := Sender.AsInteger;
case FDisplayMode of
0: Text := Format(’%d м’, [J]);
1: Text := Format(’%d км %d м’, [J div 1000, J mod 1000]);
2: Text := Format(’%d км %d пк + %d’, [J div 1000 + 1, (J mod 1000) div 100 + 1, J mod 100]);
end;
end;
// Attach the custom handler to the field instance
procedure TForm2.tbl_SectionEncodingsAfterOpen(DataTable: TDADataTable);
begin
tbl_SectionEncodings.FieldByName(‘FirstCoord’).BoundedField.OnGetText := Self.DoGetText;
end;
Out of curiosity, is it possible to implement this with a strongly typed table (client-side)?