Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Курс видеоуроков программирования и крэкерства 5.0
(актуальность: январь 2017)
Свежие инструменты, новые видеоуроки!

  • 300+ видеоуроков
  • 800 инструментов
  • 80 свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



DBGrid и Memo-поля

Если ваш холодильник управляется системой windows95/98, то вам следует быть внимательным:
1)Установка и удаление новых продуктов не всегда происходит корректно, для безопасности следует отформатировать морозилку перед инсталяцией ещё не замороженных продуктов!
2)Несанкционированный доступ ваших соседей к вашему холодильнику может быть пресечён установкой пароля. В случае, если вы забыли пароль рекомендуется вызвать слесаря-сантехника для удаленного доступа через заднюю стенку аппарата...
3)Вообще, причин, по которым вы не сможете насладиться вкусом ваших продуктов очень много! (Заметьте, холодильних WinFroze позволяет наслаждаться ВИДОМ продукта в любое время, имея прозрачную дверцу).

В обработчик события 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS