Resumen memo en dbgrid

[roman]

En el editor de campos de la componente Table que uses (menú contextual) agrega un campo calculado (Field Type: Calculated) de tipo String y longitud la máxima que desees mostrar en el grid, digamos, 75 caracteres.

En el evento OnCalcField del Table pones:

Código Delphi [-]
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
var
  S: String;

begin
  S := DataSet.FieldByName('notes').AsString;
  if Length(S) > 75 then
    S := Copy(S, 1, 70) + '[...]';

  DataSet.FieldByName('resumen').AsString := S;
end;

Los [...] son para indicar que el texto está incompleto.

// Saludos