DBGrid и Memo-поля
В обработчик события 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 Read(Result[1], 255); Result[0] := #255; end else begin Read(Result[1], Size); Result[0> Free; while Pos(#10, Result) > 0 do Result[Pos(#10, Result)] := ' '; while Pos(#13, Result) > 0 do Result[Pos(#13, Result)] := ' '; end;end;