В ячейках DBGrid изображается поле типа text как (Memo)

[belartvlad29]

Уважаемые эксперты, помогите пожайлуста. Ситуация такова, написал программу на Delphi 2010 которая связывается MySQL Server 5.1 и отображает таблицу через компонент DBGrid, но в DBGrid поля типа text вместо любого теста отображаются как (Memo).
Что мне сделать, чтобы текстовые поля отображались корректно.
Заранее спасибо.

[artemavd]

Если у вас в БД поле имеет тип Мемо, то вы и не увидите текст в ячейке. Мемо - это тип, который позволяет хранить в БД текст большого объему. Поэтому если в БД выбран этот тип, то в ячейке и будет написно (Мемо). Настройте DBMemo на поле в БД, имеющее тип Мемо и тогда Вы увидите текст в ячейке, он отобразится в DBMemo.

[ArtInt]

Но обойти данную проблему можно, и это уже не раз обсуждалось и на форуме и в DelphiWorld это есть.
Привожу отрывок кода, чтобы было понятнее о чем речь:

procedure TForm1.cyDBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var
   P, P1: array [0..1023] of Char; { MemoField buffer }
   BS, BS1:TADOBlobStream;
   S, S1: string;
begin
   if (Field is TMemoField) then
   begin

   if Field.Name='ADOQuery1Realname' then
   with (Sender as TcyDBGrid).Canvas do
   begin
 { Table1Notes is the TMemoField }
     BS1 := TAdoBlobStream.Create(AdoQuery1Realname, bmRead);
     FillChar(P1, SizeOf(P1), #0);
     BS1.Read(P1, SizeOf(P1));
     BS1.Free;
     S1 := StrPas(P1);
 { remove carriage returns &  line feeds }
     while Pos(#13, S1) >  0 do S1[Pos(#13, S1)] := ' ';
     while Pos(#10, S1) >  0 do S1[Pos(#10, S1)] := ' ';
 { clear the cell }
     FillRect(Rect);
 { fill cell with memo data }
     TextOut(Rect.Left, Rect.Top, S1);
   end;

end;

P.S. Вроде бы в библиотеке EhLib (DBGridEh) можно настроить показ содержимого мемо полей.