DBgrid con campo de tipo Text

[Jaco]

hola saben tengo el siguiente problema, tengo una tabla en Sql Server que tiene un campo de tipo "Text" entonces cuando activo el DataSet asociado a la Dbgrid, no me permite editar ese campo en especial, con los demas campos no tengo problemas, pero con ese tipo de dato si que no se como manejarlo, si alguna persona ha trabajado con estos tipos de datos o a tenido alguna experiencia parecida le agradeceria que me contara...
Gracias por todo.
Atte.
Jaco.

[Cabanyaler]

Hola, yo trabajo los campos ntext o comunmente conocidos como campos Memo del siguiente modo dentro de lod DBGrids, espero te sirva. No bstante puede sbuscar como hacerlo en Trucomania.

Suerte

// Para la visualización de texto memo en el grid
procedure TFModuloX.DBGridDrawColumnCell(
Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
Grid : TStringGrid;
Texto : String;
Rectangulo : TRect;
begin
Rectangulo:=Rect;
Grid := TStringGrid(Sender);
if Column.Field.DataType = ftMemo then
begin
Grid.Canvas.FillRect(Rect);
Texto := Column.Field.Value;
DrawText( Grid.Canvas.Handle,
PChar(Texto),
StrLen(PChar(Texto)),
Rectangulo,
DT_WORDBREAK);
end;
end;

[Cabanyaler]

Hola, yo trabajo los campos ntext o comunmente conocidos como campos Memo del siguiente modo dentro de lod DBGrids, espero te sirva. No bstante puede sbuscar como hacerlo en Trucomania.

Suerte

// Para la visualización de texto memo en el grid
procedure TFModuloX.DBGridDrawColumnCell(
Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
Grid : TStringGrid;
Texto : String;
Rectangulo : TRect;
begin
Rectangulo:=Rect;
Grid := TStringGrid(Sender);
if Column.Field.DataType = ftMemo then
begin
Grid.Canvas.FillRect(Rect);
Texto := Column.Field.Value;
DrawText( Grid.Canvas.Handle,
PChar(Texto),
StrLen(PChar(Texto)),
Rectangulo,
DT_WORDBREAK);
end;
end;