DBGrid и Memo-поля
DBGrid и Memo-поля
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] := chr(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;
