Меню сайта
Мини-чат
Чтобы добавить сообщение, необходимо авторизоваться.
Главная » Статьи » Не стандартные примеры на Delphi » Базы Данных

Получение Memo с помощью Query

Получение Memo-значения в область Edit без использования Memo-поля.

  • Разместите на вашей форме объект Query (Query1)
  • Разместите на вашей форме объект Edit (Edit1)
  • Разместите на вашей форме объект Button (Button1)
  • Дважды щелкните на Query и добавьте поле Memo. (Biolife.db использует текстовое поле)
  • Установите свойство Query1 SQL следующим образом: Select * from Biolife
  • Установите свойство Query1 Active в True
  • Добавьте следующий код в обработчик события кнопки Button1 OnClick:


       
    procedure TForm1.Button1Click(Sender: TObject);
    var
    bs : TBlobStream;
    p  : array [0..50] of char;
    begin
    FillChar(p, SizeOf(p), #0);
    bs:= TBlobStream.Create(Query1Notes, bmRead);
    try
    bs.Read(p,50);
    finally
    bs.Free;
    end;
    Edit1.Text:=StrPas(p);
    end;
Категория: Базы Данных | Добавил: DelphiAiX (20.05.2012)
Просмотров: 259 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]