Cita:
Empezado por fmonte
Me muestra la palabra MEMO en ves de mostrarme la informacion
|
No es muy complicado hacer que se sustituya el contenido del memo por el texto (MEMO) que ves ahora; Para ello puedes utilizar el evento OnDrawColumnCell del DBGrid; Se lee el memo y se repinta la celda con el texto; También puedes eliminar los saltos de línea si te molestan para mostrar todo el memo seguido.
Aquí tienes un pequeño ejemplo de cómo hacerlo.
Código Delphi
[-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Str: string;
begin
if (Column.Index = 3) then begin
if Column.Field is TMemoField then begin
Str := TBlobField(Column.Field).AsString;
while Pos(#13, Str) > 0 do
Str[Pos(#13, Str)] := ' ';
while Pos(#10, Str) > 0 do
Str[Pos(#10, Str)] := ' ';
DbGrid1.Canvas.FillRect(Rect);
DbGrid1.Canvas.TextOut(Rect.Left, Rect.Top, Str);
end;
end;
end;