DBGrid и Memo
DBGrid и Memo
DBGrid и Memo Как из 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;
