Поля DBGrid и Memo

Следующая статья: Заголовок в DBGrid.

Как из Memo-поля выбрать данные для DBGrid?

В обработчик события GetText TMemoField поместите следующую строку:

Text:=GrabMemoAsString(TMemoField(Sender));

Поместите следующую функцию так, чтобы к ней можно было свободно обратиться:

function GrabMemoAsString(TheField: TMemoField): String;
begin
  if TheField.IsNull then
    Result :=''
  else
  with TBlobStream.Create(TheField, bmRead) do 
  begin
    if Size >= 255 then
    begin
      SetLength(Result,255);
      Read(Result,255);
    end
    else
    begin
      SetLength(Result, Size);
      Read(Result, Size);
    end;
    Free;
    while Pos(#10, Result)>0 do
      Result[Pos(#10,Result)]:='';
    while Pos(#13, Result)>0 do
      Result[Pos(#13, Result)] :='';
  end;
end;