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

[DarKraZY]

También se puede hacer con el evento OnGetText del campo que tienes como Memo.

Código Delphi [-]
procedure TForm1.IBDataSet1NOMBRE_CAMPO_MEMOGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  Text := Copy(IBDataSet1NOMBRE_CAMPO_MEMO, 1, 10) + '[...]';
  DisplayText := True; // Esto es importante para que salga
end;

De esta manera no es necesario crear un campo calculado.

[nachito_tuc]

Gracias por las ideas. Ahora no se si alguno de los 2 tuvo en cuenta que no uso una tabla sino un query. Se puede igual?

Saludos

[roman]

Me parece que cualquiera de las dos soluciones puede usarse igualmente con un Query, pero basta que pruebes para que te enteres.

// Saludos